23/10/2009, 04:21
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 9 meses Puntos: 88 | |
 Respuesta: Pasar datos de una hoja a otra en excel
Hola! cuexco.
Nota que para escribir 4 datos estás recorriendo desde la fila "1" cuatro columnas... ¡¡¡Eso es muy ineficiente!!!
Me parece que resumiendo las ideas comentadas por 3pies, lo que se "acomoda" a tus necesidades es:
Código vb:
Ver originalSub recorrer() With Sheets("Hoja3").[a65536].End(xlUp).Offset(1) .Offset(, 0).Formula = Sheet("Hoja1").[g4].Value .Offset(, 1).Formula = Sheet("Hoja1").[d8].Value .Offset(, 2).Formula = Sheet("Hoja1").[d12].Value .Offset(, 3).Formula = Sheet("Hoja1").[b17].Value End With End Sub
Comenta si te ha servido, ¿si?
Saludos, Cacho. 
|