abdelfattah
Well-known Member
- Joined
- May 3, 2019
- Messages
- 1,431
- Office Version
- 2019
- 2010
- Platform
- Windows
i have this code by filtered data based on cell a5 i try show all data if cell a5="" but it gives me error how can i fixed
thanks
VBA Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 5 And Target.Column = 1 Then
If Target.Address = Range("a5").Address = "" Then
sheet1.ShowAllData
sheet1.Cells.AutoFilter Field:=5, Criteria1:=sheet1.Range("a5").Value
End If
End If
End Sub