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.

2 respuestas

Respuesta
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
Respuesta
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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas