Visual Basic para Aplicaciones - PAsar datos entre Hojas

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

PAsar datos entre Hojas

Publicado por Gustavo (2 intervenciones) el 17/06/2014 16:21:05
Buenos días para todos....

mi consulta es sobre una macro que estoy realizando (soy un primiparo en macros aun) la cual busca en que si en la celda seleccionada hay un "ok" me copie los datos desde a:g y me los pegue en la hoja de "Diseño" en la primera celda vacia de A... pero pues no se que pasa me aparece error 400 adjunto archivo en donde esta la macro gracias a aquella persona que me desee colaborar Feliz dia para todos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de JuanC

PAsar datos entre Hojas

Publicado por JuanC (565 intervenciones) el 18/06/2014 00:15:50
probá con esto:

1
2
3
4
5
6
7
8
Sub pasardatos()
Dim rng As Range
If ActiveCell = "ok" Then
   Set rng = Sheets("diseño").Range("a10")
   Set rng = rng.End(xlDown).Offset(1)
   Range(ActiveCell.Offset(, -5), ActiveCell.Offset(, -11)).Copy rng.Resize(1, 7)
End If
End Sub

Saludos, desde Baires, JuanC
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar