Ayuda Macro
Hola expertos tengo esta macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "B7" Then
Range("B7").Select
cadena = (ActiveCell.FormulaR1C1)
Sheets("Hoja1").Select
Sheets("Hoja1").Name = cadena
End If
End Sub
Funciona bien el único problema es que solo se autoejecuta en la hoja a la cual se le copio el código y me gustaría que se autoejecutara en todas las hojas incluyendo las nuevas
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "B7" Then
Range("B7").Select
cadena = (ActiveCell.FormulaR1C1)
Sheets("Hoja1").Select
Sheets("Hoja1").Name = cadena
End If
End Sub
Funciona bien el único problema es que solo se autoejecuta en la hoja a la cual se le copio el código y me gustaría que se autoejecutara en todas las hojas incluyendo las nuevas
1 Respuesta
Respuesta de Elsa Matilde
1
Cuando quieras que una rutina se ejecute desde todas las hojas la tenés que colocar en el objeto ThisWorkBook:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'aquí podés excluir algunas o no
End Sub
Te queda ajustar si se hará mención a "Hoja1" o a ActiveSheet, dependerá de qué es lo que estás intentando hacer.
Saludos
Elsa
Tus mejores opciones en manuales Excel desde:
http://es.geocities.com/lacibelesdepunilla/manuales
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'aquí podés excluir algunas o no
End Sub
Te queda ajustar si se hará mención a "Hoja1" o a ActiveSheet, dependerá de qué es lo que estás intentando hacer.
Saludos
Elsa
Tus mejores opciones en manuales Excel desde:
http://es.geocities.com/lacibelesdepunilla/manuales
