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

SOS UN GROSO


Gracias che!

y mil disculpas x mal expresarme, es que aveses trato de hacer mas chica mi pregunta, para que no sea tan aburrida de leerla, y al final termino mal expresandome. :S..

en fin, tu codigo anda de marabilla, se te ocurrio asi tan rapido? faah

ahora tendria que hacer lo mismo con cada dato correspondiente de E"x" , con referencia a los datos de la columna D"x". pero eso lo tendre que investigar yo, ya me distes una mano tremenda.

Muchisimas gracias!.

Saludos