Worksheet_Change
Utilicé este método para automatizar el cambio del nombre de una hoja excel.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$c$2" Then
ActiveWorkbook.Worksheets(4).Name = "disponibilidad 1"
End If
End Sub
Al principio me iba bien, pero cuando le he añadido más condiciones para renombrar otras hojas
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$c$2" Then
ActiveWorkbook.Worksheets(4).Name = "disponibilidad 1"
ElseIf Target.Address = "$d$2" Then
ActiveWorkbook.Worksheets(5).Name = "disponibilidad 2"
End If
End Sub
De repente me ha dejado de funcionar (unos minutos más tarde) Sólo funciona si le quito la condición. ¿Sabes qué esta pasando?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$c$2" Then
ActiveWorkbook.Worksheets(4).Name = "disponibilidad 1"
End If
End Sub
Al principio me iba bien, pero cuando le he añadido más condiciones para renombrar otras hojas
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$c$2" Then
ActiveWorkbook.Worksheets(4).Name = "disponibilidad 1"
ElseIf Target.Address = "$d$2" Then
ActiveWorkbook.Worksheets(5).Name = "disponibilidad 2"
End If
End Sub
De repente me ha dejado de funcionar (unos minutos más tarde) Sólo funciona si le quito la condición. ¿Sabes qué esta pasando?
1 Respuesta
Respuesta
1
¿Cuál es el problema; que no se ejecuta el evento Change o que se ejecuta pero no hace lo que esperas? Porque a simple vista no hay nada mal (salvo que no tengas 5 hojas cosa que te daría otro tipo de error)
El tema ya está solucionado. Como bien comentas, el código estaba correcto, pero no ´me hacía nada. Al cerrar el archivo y volverlo a abrir ya funciona bien. Cosas de la informática ...
Gracias de todas formas
Gracias de todas formas
Y finaliza