Macro para pegar datos hacia abajo

[edy3006]

Buenas tardes, tengo el siguiente ejemplo, me gustaría que me ayudaran para hacer una macro
A B C D E F
1 10/06/14
2...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[RoC]

edy3006: Copia este código, no es muy elegante, pero funciona.

<i>
</i>Sub Copiar()
Dim UltLinea As Long, i As Integer
UltLinea = Columns(3).Find("*", , , , xlByColumns, xlPrevious).Row
For...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[edy3006]

perfecto ROC, el unico inconveniente es que me funciona nada mas hasta encontrar la primera fecha las demas me las pone en cero, de antemano agradezco que me hayas contestado


Salduos

 

[edy3006]

Buenos días nada mas para comentarles que ya logre la macro, de antemano muchas gracias por su apoyo


Saludos