Aplicar Macro a dos hojas en excel 2013.
Tengo está macro para excel:
Sub Actualizar ()
Application.ScreenUpdating = False
Dim celda se range
Foro each celda in range ("b10:b160")
Celda.EntireRow.Hidden = Celda = " "
Next
End Sub
______________
Sub MostrarFilas()
Range ("b10:b160") .EntireRow.Hidden = False
End Sub
El problema o lo que necesito es aplicar esta macro, con un mismo botón, para ocultar o mostrar las celdas de ciertos rangos en dos hojas de excel.
Soy nuevo con las Macros.
2 Respuestas
Si tu idea es utilizar un mismo botón para las 2 acciones (mostrar u ocultar), la macro sería esta sola:
Sub Mostrar_OcultarFilas()
'x Elsamatilde
If Range("B10").EntireRow.Hidden = True Then
Range("b10:b160").EntireRow.Hidden = False
Else
Range("b10:b160").EntireRow.Hidden = True
End If
End SubLa macro Actualizar no haría falta salvo que tengas otra idea... espero aclaraciones entonces.
PD) En la sección Macros de mi sitio encontrarás instrucciones y ejemplos para iniciarte en este tema.
Te recuerdo que si tu consulta queda resuelta, debes valorar cada respuesta (Excelente o Buena) para ir dándolas por cerradas. Si aún necesitas alguna aclaración comenta y la seguimos tratando.
Sdos.
Elsa
Te recuerdo que si tu consulta quedó resuelta, debes valorar cada respuesta (Excelente o Buena) para ir dándolas por cerradas. A continuación de este mensaje verás botones como estos:
Si aún necesitas alguna aclaración comenta y la seguimos tratando.
Sdos.
Si ésos códigos te funcionan 'por separado', sólo debes mandar llamar a las hojas, es decir:
Sub Actualizar ()
'Copié y pegué tus códigos suponiendo que funcionan'
Sheets.("Aquí va el nombre de hoja").select
Application.ScreenUpdating = False
Dim celda se range
For each celda in range ("b10:b160")
Celda.EntireRow.Hidden = Celda = " "
'Aquí comienza tu segundo código'
Sheets.("Aquí va el nombre de tu otra hoja").select
Range ("b10:b160") .EntireRow.Hidden = False
End SubEspero que te sirva, cualquier fallo me avisa. Saludos. c: