Error de nombre ambiguo: Worksheet_Change
Buenas noches, por favor ya una excelente experta me dio la respuesta a "copiar un dato en la hoja 1 (A1) y que este mismo dato se coloque en la hoja2 (Columna B), no obstante yo vuelva a la hoja1 y en A1 yo cambie ese valor colocado anteriormente y que al irme a la hoja 2 me aparezca este valor pero debajo del colocado anteriormente". Con el siguiente comando
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False)= "A1" Then
fila= Sheets ("Hoja2").Range ("B65536"). End (x1Up).Row +1
Target.Copy Destination: =Sheets("Hoja2").Cells (fila,2)
End if
End Sub
Ahora bien mi pregunta es que al hacer lo mismo para agregar otra columna me sale un error que me dice "Error en nombre ambiguo", como podría hacer agregar otra columna en la hoja 1 y que me realice la misma operación en la hoja 2.
Muchas gracias por su ayuda.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False)= "A1" Then
fila= Sheets ("Hoja2").Range ("B65536"). End (x1Up).Row +1
Target.Copy Destination: =Sheets("Hoja2").Cells (fila,2)
End if
End Sub
Ahora bien mi pregunta es que al hacer lo mismo para agregar otra columna me sale un error que me dice "Error en nombre ambiguo", como podría hacer agregar otra columna en la hoja 1 y que me realice la misma operación en la hoja 2.
Muchas gracias por su ayuda.
1 Respuesta
Respuesta de Elsa Matilde
1
La rutina que ya tenés se ejecuta con cada cambio que realices en la celda A1 (If Target.Address...)
Para que también se ejecute cuando ingresas algo en B1 por ejemplo, deberás contemplarlo en esa línea:
If Target.Address(false, false) = "A1" or target.Address(false, false) = "B1" Then
También podés establecerlo para toda 1 fila:
If Target.Row = 1 Then
El resto de las instrucciones contempla que siempre se escribirá en col B... si esto también se modificará, aclarame bien cuál será tu tarea y poder así ajustar la rutina .
Para que también se ejecute cuando ingresas algo en B1 por ejemplo, deberás contemplarlo en esa línea:
If Target.Address(false, false) = "A1" or target.Address(false, false) = "B1" Then
También podés establecerlo para toda 1 fila:
If Target.Row = 1 Then
El resto de las instrucciones contempla que siempre se escribirá en col B... si esto también se modificará, aclarame bien cuál será tu tarea y poder así ajustar la rutina .
