23/10/2009, 17:32
|
| | | Fecha de Ingreso: julio-2008 Ubicación: Guadalajara, Jalisco, Mexico.
Mensajes: 46
Antigüedad: 15 años, 9 meses Puntos: 1 | |
| Respuesta: Pasar datos de una hoja a otra en excel
Cita:
Iniciado por mrocf  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. 
Hola mrocf:
Es excelente tu aportación, funciona correctamente.
Lo anterior también hace lo mismo pero obviamente lo hace por partes por que se repite el ciclo 4 veces, pero como siempre hay muchas maneras de resolverlas.
Gracias, saludos  . |