Macro para ocultar y mostrar filas mediante una condición
Para Dante Amor;
Hola Dante, gracias por tu ayuda ah sido de gran utilidad, solo que necesito me apoyes estoy aun perdida, lo que necesito es:
>>Cuando de clic en el command button 3, me muestre solo las filas que tienen la letra P en la columna C, esto a partir de la Fila 9; al hacer clic en el command button 4 me oculte las mismas filas, es decir las que tengan la letra P en la columna C.
>>Para mostrar el SHIP es lo mismo pero los que tengan la letra ES, y los command button son:
command button 1: Para Mostrar
command button 2 : Para Ocultar
Respuesta de Dante Amor
1
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 SubAgregué el CommandButton5 para mostrar todo
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
