error en macro

Hola grupo:
En una hoja de excel he creado mediante validaciones un desplegable que
toma los valores de una lista.
Una vez he selecinado un centro de la lista, mediante la funcion buscarV,
traigo los datos asociados a ese cetro en la misma fila.
Mi intención es que en la fila inmediatamente inferior, se copien como
valores (pegado especial) dichos datos para modificarlos y compararlos con
los originales. Cuando seleccione otro centro, copia los nuevos valores en la
misma posición
He creado este codigo pero no funciona correctamente L4 es la celda dode
selecciono el centro de la lista de valores
Gracias
Private Sub Worksheet_Change(ByVal Target As Range)
Range("L4").Value = Target.Value
Range("n4:t4").Select
Selection.Copy
Range("n5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

End Sub

Hola.

Prueba con:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$L$4" Then
Range("n4:t4").Copy
Range("n5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
End Sub

Saludos: Antonio.
*********************************
"j_lete" escribió en el mensaje
news:
> Hola grupo:
> En una hoja de excel he creado mediante validaciones un desplegable que
> toma los valores de una lista.
> Una vez he selecinado un centro de la lista, mediante la funcion buscarV,
> traigo los datos asociados a ese cetro en la misma fila.
> Mi intención es que en la fila inmediatamente inferior, se copien como
> valores (pegado especial) dichos datos para modificarlos y compararlos con
> los originales. Cuando seleccione otro centro, copia los nuevos valores en la
> misma posición
> He creado este codigo pero no funciona correctamente L4 es la celda dode
> selecciono el centro de la lista de valores
> Gracias
> Private Sub Worksheet_Change(ByVal Target As Range)
> Range("L4").Value = Target.Value
> Range("n4:t4").Select
> Selection.Copy
> Range("n5").Select
> Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
> False, Transpose:=False
>
> End Sub
>


.

Muchas gracias!!!
Solo por entenderlo un poco mejor.
Si la celda de donde esta el valor es siempre, ¿porque el if?
Saludos