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?
1

1 Respuesta

921.025 pts. "Todos somos genios. Pero si juzgas a un pez por su...
¿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
Y finaliza

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas