array en varias hojas y ejecutar macro

2 envíos / 0 nuevos
Último envío
tetorin
Imagen de tetorin
Offline
última acción: Hace 9 meses 1 semana
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntos
alta: 26/05/2011 - 02:57
Puntos: 3262
array en varias hojas y ejecutar macro

Buenas tardes a todos
espero me puedan ayudar
necesito correr una macro en un conjunto de hojas, no en todas las hojas de mi libro.,
no se mucho de esto, mas me compartieron este código
solo que este código trabaja en todas las hojas del libro, yo necesito que solo trabaje en un grupo determinado de hojas,
como la puedo ajustar para que haga eso?
me pueden ayudar?

anexo macro que me compartieron

Sub Dosomething()
Dim xSh As Worksheet
Application.ScreenUpdating = False
For Each xSh In Worksheets
xSh.Select
Call RunCode
Next
Application.ScreenUpdating = True
End Sub
Sub RunCode()
'your code here
End Sub

Saludos.. y gracias de antemano a todos

Etiquetas: 

pacomegia
Imagen de pacomegia
Offline
última acción: Hace 3 semanas 4 días
Nivel 1 - 200 puntosNivel 2 - 500 puntosNivel 3 - 1000 puntosNivel 4 - 2000 puntosNivel 5 - 4000 puntosadministrador
alta: 27/12/2006 - 23:26
Puntos: 11175
este macro de ejemplo recorre

este macro de ejemplo recorre las hojas una a una con un bucle For Each

Yo lo que hago en estos casos es comprobar el nombre de la hoja. En otras ocasiones las hojas donde tengo que ejecutar la macro tienen algún dato "clave" en una celda (por ejemplo que en la celda A1 haya un texto concreto que me indique que es una hoja a procesar)

Es simplemente poner comprobar una condición con un IF

¿qué condición debe cumplir tu hoja para saber si tienes que ejecutar la macro o no?

por ejemplo

For Each xSh In Worksheets
xSh.Select

if xSh.range("A1").value = "DatoSecreto" then
      Call RunCode

end if
Next

 

 

------
Ya sé Excel, pero necesito más.