Macros & VBA

[baskjzz]

Iniciado por mrocf

¡ 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...

Disculpame que te moleste nuevamente ,

es que el codigo k me pasastes funciono correctamente, pero me queda seleccionando la celda E1 , y necesitaria que seleccionaze la celda que fue copiada hacia abajo. osea si el dato E22 fue el k hicimos autofall hacia abajo, que por ultimo del if me quede seleccionada la celda E22, me entendes?


disculpame si te molesto , no es mi intencion.


Gracias