Copy Paste con base en una palabra especifica

[Kakanas]

Buenas Tardes.

Tengo un problema y no se como resolverlo, espero y me puedan ayudar, les platico.

Tengo un archivo donde tengo en la columna "A" Folios y en la Columna "D" Fechas, sucede que hay celdas en la columna "A" que no tienen informacion y esas celdas las relleno con la palabra "NADA", pero su celda correspondiente en la columna "D" si tiene una fecha. Necesito sustituir la palabra "NADA" por la fecha que viene en la celda correspondiente de la columna "D" Ejemplo:

A D

F125 15/02/2013

NADA 16/02/2013

F365 17/02/2013

NADA 18/02/2013

Quiero que el resultado sea:

A D

F125 15/02/2013

16/02/2013 16/02/2013

F365 17/02/2013

18/02/2013 18/02/2013

Espero me puedan ayudar y de antemano muchas gracias.

P.D. Quiero resolverlo con una macro!!!

[Ama]

Hola Kakanas bienvenido

Hay un apartado dedicado a macros y vba en el foro:.

Macros y programación VBA

Anotalo para futuras cuestiones en las que se requiera utilizar macros para resolver el tema.

También es muy útil subir un archivo de ejemplo para adaptar a el la solución.

Aquí puedes ver como subir un archivo ademas de algunos consejos para facilitarte el uso del foro.

https://www.ayudaexcel.com/foro/normas-reglas-del-foro-65/reglas-del-foro-12516/

[maferupe]

bueno yo lo haría con una formula de condicional, es sencillo:

[TABLE=width: 352]

[TR]

[TD]Columna A[/TD]

[TD]Columna B[/TD]

[TD]Columna C Formula[/TD]

[/TR]

[TR]

[TD]F125 [/TD]

[TD]15/02/2013[/TD]

[TD]F125 [/TD]

[/TR]

[TR]

[TD]NADA[/TD]

[TD]16/02/2013[/TD]

[TD]16/02/2013[/TD]

[/TR]

[TR]

[TD]F365 [/TD]

[TD]17/02/2013[/TD]

[TD]F365 [/TD]

[/TR]

[TR]

[TD]NADA[/TD]

[TD]18/02/2013[/TD]

[TD]18/02/2013[/TD]

[/TR]

[TR]

[TD] [/TD]

[TD] [/TD]

[TD] [/TD]

[/TR]

[/TABLE]

donde la formula es:

=SI(A1="NADA";B1;A1)

y la arrastras hasta tu última fila