
22/10/2009, 20:07
|
| | Fecha de Ingreso: julio-2008 Ubicación: Guadalajara, Jalisco, Mexico.
Mensajes: 46
Antigüedad: 16 años, 7 meses Puntos: 1 | |
Pasar datos de una hoja a otra en excel Sub recorrer()
' recorrer Macro
'
Sheets(3).Select
Range("A1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.FormulaR1C1 = "21-10-2009"
Range("B1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.FormulaR1C1 = "AGUSTIN CORTES"
Range("C1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.FormulaR1C1 = "COL. CENTRO"
Range("D1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.FormulaR1C1 = "TONALA, JALISCO"
End Sub
hOLA:
El codigo anterior pega datos predefinidos en la hoja3.
Lo que quiero hacer es que los obtenga de la hoja1:
dato1=celda "G4"
dato2=celda "D8"
dato3=celda "D12"
dato4=celda "B17"
Cómo hago referencia para que seleccione los datos de la hoja1.
Saludos, gracias. |