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

Preguntas similare

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

Respuesta Responder a este mensaje
#2 j_lete
27/11/2009 - 20:38 | Informe spam
Muchas gracias!!!
Solo por entenderlo un poco mejor.
Si la celda de donde esta el valor es siempre, ¿porque el if?
Saludos

"AnSanVal" escribió:

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
>


.

Respuesta Responder a este mensaje
#3 AnSanVal
28/11/2009 - 10:15 | Informe spam
Muchas gracias!!!
Solo por entenderlo un poco mejor.
Si la celda de donde esta el valor es siempre, ¿porque el if?
Saludos



El "IF" evita que el código se ejecute cada vez que modifiques cualquier otra celda que no sea "L4".

Saludos: Antonio
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida