Macro para ocultar hojas de un libro según un texto en celda
Buenas noches, me gustaría contar con su ayuda para realizar
una macro que haga lo siguiente. Tengo
un libro de Excel con 20 hojas, necesito ocultar todas las hojas que en la celda
A4 tengan como contenido “No rows to display.”
Respuesta de Programar Excel
1
Aca tienes la macro, lo que hace es ocultar la hoja si en la celda A$ aparece el texto No rows to display.
Sub OcultaHoja()
Dim she As Worksheet
'A4 tengan como contenido “No rows to display.”
For Each she In Worksheets
b = she.Name
If Sheets(b).Cells(4, 1) = "No rows to display." Then Sheets(b).Visible = False
Next
