07/01/2005, 09:12
|
 | | | Fecha de Ingreso: enero-2004 Ubicación: viña del mar
Mensajes: 180
Antigüedad: 21 años, 1 mes Puntos: 3 | |
| hola, tambien puedes hacer que la macro recorra la columna ( en lel ejemplo la columna a) hasta encontrar la ultima celda con valor y rescatar este para copiarlo donde tu quieras.
en el ejemplo los datos empiezan desde la celda a2
Sub Macro1()
Sheets("Hoja1").Select
Range("a2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(-1, 0).Select
Selection.Copy
Sheets("Hoja2").Select
Range("az52").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
__________________
hay tres tipos de matemáticos, los que saben contar y los que no.
Oscar |