Numero de hojas
Hola Como estas
Necesito ejecutar una macro en diferentes hojas, pero es posible que en cualquier momento se cree una nueva hoja, por lo tanto como hago para que no tenga ningún problema cada vez que se cree una nueva, ya que puedo crear una instrucción que se ejecute en cada una, pero el problema es con las nuevas.
Gracias
Luis Fernando
Necesito ejecutar una macro en diferentes hojas, pero es posible que en cualquier momento se cree una nueva hoja, por lo tanto como hago para que no tenga ningún problema cada vez que se cree una nueva, ya que puedo crear una instrucción que se ejecute en cada una, pero el problema es con las nuevas.
Gracias
Luis Fernando
1 Respuesta
Respuesta de Elsa Matilde
1
La forma de que una rutina sirva para cualquier hoja es haciendo mención a ActiveSheet en lugar de Sheets("nombre")
Quizás te sirva también saber el nro de hojas para luego posicionarte:
Dim nrohojas As Integer
nrohojas = ActiveWorkbook.Sheets.Count
Otras instrucciones que te pueden servir son:
Activesheet.next
Activesheet. Previous
Saludos y comentame si con esto podes armar tus rutinas.
Elsa
PD) Nuevas aplicaciones en:
http://es.geocities.com/lacibelesdepunilla/manuales_aplicaciones
Quizás te sirva también saber el nro de hojas para luego posicionarte:
Dim nrohojas As Integer
nrohojas = ActiveWorkbook.Sheets.Count
Otras instrucciones que te pueden servir son:
Activesheet.next
Activesheet. Previous
Saludos y comentame si con esto podes armar tus rutinas.
Elsa
PD) Nuevas aplicaciones en:
http://es.geocities.com/lacibelesdepunilla/manuales_aplicaciones
Hola, gracias por tu pronta respuesta, tengo la siguiente duda: ¿Cómo identifica la ultima hoja para que termine de ejecutar?
Luis Fernando
Luis Fernando
Utilizando la variable nrohojas así:
Dim hojaAct as integer
For hojaAct = 1 to nrohojas
o directamente así:
For hojaAct = 1 To Sheets.Count
'instrucciones a ejecutar
next
Saludos
Elsa
** Todo macros en manual 400Macros. Descarga la demo desde:
http://es.geocities.com/lacibelesdepunilla/manuales_aplicaciones
Dim hojaAct as integer
For hojaAct = 1 to nrohojas
o directamente así:
For hojaAct = 1 To Sheets.Count
'instrucciones a ejecutar
next
Saludos
Elsa
** Todo macros en manual 400Macros. Descarga la demo desde:
http://es.geocities.com/lacibelesdepunilla/manuales_aplicaciones
