Van todas las macros
Private Sub CommandButton1_Click()
'Por.Dante Amor
'Mostrar solamente las filas que tienen "ES"
Application.ScreenUpdating = False
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Rows("9:" & u).EntireRow.Hidden = False
For i = u To 9 Step -1
If Cells(i, "E") <> "ES" Then
Rows(i).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
'
Private Sub CommandButton2_Click()
'Por.Dante Amor
'Ocultar las filas que tienen "ES"
Application.ScreenUpdating = False
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Rows("9:" & u).EntireRow.Hidden = False
For i = u To 9 Step -1
If Cells(i, "E") = "ES" Then
Rows(i).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
'
Private Sub CommandButton3_Click()
'Por.Dante Amor
'Mostrar solamente las filas que tienen P
Application.ScreenUpdating = False
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Rows("9:" & u).EntireRow.Hidden = False
For i = u To 9 Step -1
If Cells(i, "C") <> "P" Then
Rows(i).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
'
Private Sub CommandButton4_Click()
'Por.Dante Amor
'Ocultar las filas que tienen P
Application.ScreenUpdating = False
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Rows("9:" & u).EntireRow.Hidden = False
For i = u To 9 Step -1
If Cells(i, "C") = "P" Then
Rows(i).EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub
'
Private Sub CommandButton5_Click()
'Por.Dante Amor
'Mostrar Todo
Application.ScreenUpdating = False
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Rows("9:" & u).EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub
Agregué el CommandButton5 para mostrar todo
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias