Ocultar filas en excel según texto columna
Tengo una hoja en excel con información en muchas filas y en las columnas entre la A y la J.
Necesito ocultar las filas que en la columna A tengan la letra n y mostrar las que tengan en la columna A la letra s. También necesito poder hacerlas visibles todas.
Respuesta de Joseph Sanchez
1
De esta manera ocultamos la que tengan la letra n
Private Sub CommandButton1_Click() Dim fila, final As Integer For fila = 2 To 1000 If Hoja1.Cells(fila, 1) = "" Then final = fila Exit For End If Next For fila = 1 To final If Hoja1.Cells(fila, 1).Text = "n" Then Hoja1.Cells(fila, 1).EntireRow.Hidden = True End If Next End Sub
de esta manera las muestras todas
Private Sub CommandButton2_Click() Dim fila, final As Integer For fila = 2 To 1000 If Hoja1.Cells(fila, 1) = "" Then final = fila Exit For End If Next For fila = 1 To final If Hoja1.Cells(fila, 1).Text = "n" Or Hoja1.Cells(fila, 1).Text = "s" Then Hoja1.Cells(fila, 1).EntireRow.Hidden = False End If Next End Sub
1 respuesta más de otro experto
Respuesta de Victor Rodriguez
1
Creo que un autofiltro seria lo más adecuado para tu caso, pero de todos modos te paso un código que ocultará todas las filas que tengan "n" en la columna A
Sub ocultar()
Range("A1").Select
Do
If ActiveCell.Value = "n" Then
ActiveCell.EntireRow.Hidden = True
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.Offset(1, 0).Select
End If
Loop Until ActiveCell.Value = ""
End Sub