Ejecutar macro con hojas ocultas
Hay alguna manera de ejecutar una macro en excel en la cual lo que necesito es que en vez de que me muestre todo el proceso, esta muestre una hoja en la cual tengo una imagen que dice cargando, la idea es que muestre esa hoja, en vez de todo el proceso a efectuar en la macro
Puedes ejecutar cualquier macro solamente haciendo referencia a la hoja, no es necesario que te cambies de hoja, por ejemplo si estás en la hoja1 y quieres procesar algo en la hoja2 (hoja oculta), por ejemplo:
Sub Proceso()
Set h2 = Sheets("Hoja2")
h2.Range("B5") = h2.Range("B3") + h2.Range("B4")
End SubLo anterior es solamente un ejemplo, cambia "Hoja2" por el nombre de tu hoja que tienes oculta.
En la variable objeto h2, estoy estableciendo la hoja que voy a utilizar, es por eso, que en las siguientes instrucciones que utilizan la "hoja2" pongo la referencia h2
Si tienes dudas de cómo adaptar lo anterior con tu macro, escribe o pega aquí tu macro y realizo las adecuaciones.
Saludos. Dante Amor
Si es lo que necesitas.
Sub Macro1()
Sheets("Hoja2").Select
Range("A2:E2").Select
Selection.Copy
Range("A4").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Hoja1").Select
Range("C3,C5,C7,C9,C11,C3").Select
Selection.ClearContents
End Sub
Te anexo la macro actualizada para que puedas ocultar la hoja2
Sub Macro1()
Set h2 = Sheets("Hoja2")
h2.Range("A2:E2").Copy
h2.Range("A4").PasteSpecial Paste:=xlPasteValues
Range("C3,C5,C7,C9,C11,C3").ClearContents
End SubDe esta forma optimizas el código y no tienes que cambiar de una hoja a otra.
Saludos. Dante Amor
'Seleccionamos todas las celdas de la hoja plantilla'y la almacenamos en la variable rangoSheets(LUZ).ActivateRange("A1:G98").SelectDim Patron As StringDim Inicio As StringPatron = "&??*".... esta hoja estaría oculta....me podeís ayudar ¿? - Vicente Sanz
Puedes crear una pregunta nueva - Dante Amor
Hola dante por favor tu ayuda, ya que no puedo poner a ejecutar mi macro si oculto la hoja "DATA", solo quiero que se vea en mi libro de excel la hoja formularioMil gracias Sub Ingreso_datos()'Copia CedulaApplication.ScreenUpdating = FalseSheets("FORMULARIO").SelectRange("C11").SelectSelection.CopySheets("DATA").SelectRange("B2").SelectDo While Not IsEmpty(ActiveCell)ActiveCell.Offset(1, 0).ActivateLoopSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False - Cristian Orlando Moreno Duarte