1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$A$2"
Range("E14:E3000").EntireRow.Hidden = False 'Cells(Rows.Count, 5).End(xlUp)).EntireRow.Hidden = False
If [A2] & [E3] = "" Then Range("E14", Cells(Rows.Count, 5).End(xlUp)).EntireRow.Hidden = True
If [A2] <> "" Then
For Each cel In Range("E14", Cells(Rows.Count, 5).End(xlUp))
If cel.Value = [A2] Then Else cel.EntireRow.Hidden = True
Next
End If
Case "$E$3"
Range("B14:B3000").EntireRow.Hidden = False 'Cells(Rows.Count, 2).End(xlUp)).EntireRow.Hidden = False
If [A2] & [E3] = "" Then Range("B14", Cells(Rows.Count, 2).End(xlUp)).EntireRow.Hidden = True
If [E3] <> "" Then
For Each cel In Range("B14", Cells(Rows.Count, 2).End(xlUp))
If cel.Value = [E3] Then Else cel.EntireRow.Hidden = True
Next
End If
End Select
Application.ScreenUpdating = True
End Sub |
Partager