Eventos en 6 de 8 hojas

has probado a poner el codigo en el libro y controlar el nombre de la hoja?


"daniel_hg" escribió en el mensaje
news:%

Hola, ¿cómo puedo hacer para introducir el mismo código en el evento
Change de 6 de las 8 hojas de un libro?
Las hojas del libro están nombradas, y los índices de las mismas no son
consecutivos.
Por supuesto que no sea copiar y pegar (podrían ser muchas más hojas)

Gracias.

Hola daniel_hg,

Podrias usar el evento SheetChange de ThisWorkbook. Por ejemplo coloca algo
como el codigo que sigue en el modulo de ThisWorkbook:

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
Select Case Sh.Name
Case "Hoja1", "Hoja2", "Hoja3", "Hoja4", "Hoja5", _
"Hoja6", "Hoja7", "Hoja8"
'aqui tu codigo, p. ej.: Msgbox Sh.Range("A1")
End Select
End Sub

Saluodos,
KL


"daniel_hg" wrote in message
news:%

Hola, ¿cómo puedo hacer para introducir el mismo código en el evento
Change de 6 de las 8 hojas de un libro?
Las hojas del libro están nombradas, y los índices de las mismas no son
consecutivos.
Por supuesto que no sea copiar y pegar (podrían ser muchas más hojas)

Gracias.

Gracias, JUSTO LO QUE BUSCABA, muchas gracias.

"KL" escribió en el mensaje
news:%

Hola daniel_hg,

Podrias usar el evento SheetChange de ThisWorkbook. Por ejemplo coloca
algo como el codigo que sigue en el modulo de ThisWorkbook:

Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
Select Case Sh.Name
Case "Hoja1", "Hoja2", "Hoja3", "Hoja4", "Hoja5", _
"Hoja6", "Hoja7", "Hoja8"
'aqui tu codigo, p. ej.: Msgbox Sh.Range("A1")
End Select
End Sub

Saluodos,
KL


"daniel_hg" wrote in message
news:%

Hola, ¿cómo puedo hacer para introducir el mismo código en el evento
Change de 6 de las 8 hojas de un libro?
Las hojas del libro están nombradas, y los índices de las mismas no son
consecutivos.
Por supuesto que no sea copiar y pegar (podrían ser muchas más hojas)

Gracias.