Macro para ocultar filas en ciertas hojas
Tengo este código que me oculta filas:
Sub Ocultarfilas()
For Each celda In Range("$A$10:$A$19")
If celda.Value <= 0 Then
ActiveCell.EntireRow.Hidden = True
Else
ActiveCell.EntireRow.Hidden = False
End If
ActiveCell.Offset(1).Select
Next
End Sub
Pongo un ejemplo; en mi libro de trabajo tengo 5 pestañas (A, B, C, D, E), pero solo necesito que se oculten las filas que tienen "0", en el rango A10:A19 en las pestañas C, D, E, ¿cómo puedo modificarlo a mi interés?
También comento que me tengo que colocar en A10, para que oculte las celdas con 0, sino oculta otras que no tienen relación
1 Respuesta
H o l a:
Te anexo la macro actualizada, oculta las filas en las hojas con los nombres:
"C", "D" y "E", si las hojas tienen otros nombres cambia los nombres en esta línea de la macro:
Case "C", "D", "E"
La macro:
Sub Ocultarfilas()
'Act.Por.Dante Amor
For Each h In Sheets
Select Case h.Name
Case "C", "D", "E"
For Each celda In h.Range("A10:A19")
If celda.Value <= 0 Then
celda.EntireRow.Hidden = True
Else
celda.EntireRow.Hidden = False
End If
Next
End Select
Next
MsgBox "Fin"
End Sub:) S aludos. D a n t e A m o r. Recuerda valorar la respuesta. G r a c i a s ;)
