Private Sub Worksheet_Calculate() Application.EnableEvents = False 'spusti filter Range("B6:B30").AutoFilter Field:=1, Criteria1:=Range("F2").Text ' napr. "1" Application.EnableEvents = True End Sub
Užitočné (1) | ps84 |
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo xErr: If Not Intersect(Target, Range("F2")) Is Nothing Then Application.EnableEvents = False 'spusti filter Range("B6:B30").AutoFilter Field:=1, Criteria1:=Target.Text ' napr. "1" Application.EnableEvents = True End If Exit Sub xErr: Application.EnableEvents = True End Sub
Pomoc s excelom