|
07/01/2005, 16:01
|
 | | | Fecha de Ingreso: enero-2004 Ubicación: viña del mar
Mensajes: 180
Antigüedad: 21 años, 9 meses Puntos: 3 | |
| te habia escrito en tu otro post , pero si no lo leiste te lo repito aqui
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 |