error en macro

18/11/2009 - 21:38 por j_lete | Informe spam
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
 

Leer las respuestas

#1 AnSanVal
18/11/2009 - 23:10 | Informe spam
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

Preguntas similares