Sub FiltrujPoNumerze()
Dim ws As Worksheet
Dim nrUmowy As String
Dim wiersz As Long
Set ws = ActiveSheet
wiersz = ActiveCell.Row
nrUmowy = ws.Cells(wiersz, "A").Value
If nrUmowy = "" Then
MsgBox "Brak numeru umowy w tym wierszu."
Exit Sub
End If
ws.Range("A1").AutoFilter Field:=1, Criteria1:=nrUmowy
End Sub
Wyświetlenia: 29
