
28/07/2008, 07:38
|
 | | | Fecha de Ingreso: marzo-2007 Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 18 años Puntos: 88 | |
Respuesta: Macros & VBA ¡ No te imaginas lo sencillo que sería todo... si explicaras las cosas completa y correctamente desde un principio. !!!
En fin: prueba con este código:
Código:
Application.ScreenUpdating = False
Do
ActiveCell.Copy
If ActiveCell.Offset(1, -1) <> "" Then
ActiveSheet.Paste _
Range(ActiveCell, ActiveCell.Offset(0, -1).End(xlDown).Offset(0, 1))
ActiveCell.End(xlDown).Select
End If
ActiveCell.End(xlDown).Select
Loop Until ActiveCell.Row > 65000
Cells(1, ActiveCell.Column).Select
Application.ScreenUpdating = True
Recuerda que previo a ejecutar la macro tienes que seleccionar la primer celda de la segunda columna... como en cualquier "autofill", según tus especificaciones.
Te mando un saludo y espero que te sea útil... |