Necesito una Macro

[juliocesaras]

Saludos,

Necesito una macro que pueda utilizar en excel 2010, explico el tema:

[TABLE]

[TR]

[TD]si(A2) tiene la fecha enero pegue los valores de la columna C (C2:C1048576) en la columna H (H2:H1048576)

[/TD]

[/TR]

[TR]

[TD]si(A2) tiene la fecha febrero pegue los valores de la columna C (C2:C1048576) en la columna I (I2:I1048576)

[/TD]

[/TR]

[TR]

[TD]si(A2) tiene la fecha marzo pegue los valores de la columna C (C2:C1048576) en la columna J (J2:J1048576)

[/TD]

[/TR]

[TR]

[TD]si(A2) tiene la fecha abril pegue los valores de la columna C (C2:C1048576) en la columna K (K2:K1048576)

[/TD]

[/TR]

[TR]

[TD]y asi sucesivamente, hasta llegar a diciembre

[/TD]

[/TR]

[/TABLE]

Adjunto archivo Ejemplo.

Les agradezco la colaboración a este mensaje.

Ejemplo.xls

[tese1969]

Buenas, juliocesaras

Prueba esa primera versión y dime si te podría valer....

Pulsa el botón y te pasará los datos al mes requerido.....

Un saludo,

Tese

Ejemplo-1_Tesev1.xls

[juliocesaras]

Muchas gracias por su respuesta,

Se me olvido colocarle otra columna, porque lo que debo copiar tiene fórmulas, necesito que pegue solo los valores.

Envío de nuevo el archivo, de nuevo muchas gracias.

Ejemplo-1_Tesev1.xls

[tese1969]

Buenas,

Cambia el final de esta línea........

Range(Cells(2, columna), Cells(ultfila, columna)).PasteSpecial xlPaste[COLOR=#ff0000]All [/COLOR][COLOR=#0000cd](el All lo sustituyes por Values)[/COLOR]

[/CODE]

y te quedaría

[CODE]
Range(Cells(2, columna), Cells(ultfila, columna)).PasteSpecial xlPasteValues
[/CODE]

Mira a ver si así te funciona como deseas...

Un saludo,

Tese

[juliocesaras]

Muchas gracias, hasta ahora voy bien, solo quiero colocarle un mensaje como el que anexo, claro que esta línea no me sale.

MsgBox ("Tareas del " & .Range("A1") & " realizadas."), ¿Como lo hago?

Otra opción que no me aparece, cuando ejecuto la macro, es la opción deshacer, se puede hacer?.

Que pena molestarlo tanto. Muchas gracias.

[tese1969]

Escríbelo así:

MsgBox "Tareas del " & Range("A2").Value & " realizadas."

[/CODE]

Y no, no se puede deshacer......lo correcto es si estás probando, guardar antes de ejecutar........por si las moscas....jejeje

Un saludo,

Tese