MACRO PARA MOVER SOLO EL MES

[ramonvar]

Buenas Tarde a Todos los del Foro

Mi necesidad es la siguiente.:

1- En la columna "E", tengo algunas celdas vacías y otras con fechas

2- Las celdas vacías no deben lógicamente ser consideradas, solo las que están llenas con algunas fechas, estas inclusive no necesariamente están en orden

3- De las celdas con fechas, solo necesito sacar el mes, pero en la columna "F"

4- A cada tanto este fichero es actualizado, por lo tanto tendrá celdas vacías y algunas celdas con fechas, nuevamente

Tengo esta macro que encontré en este foro y trate de adaptarlo a mis necesidades, pero como mi conocimiento es prácticamente nada en términos de macro solicito una mano de los expertos, para que me funcione de acuerdo a lo explicado arriba

esta es la macro encontrada

Sub ObtenerMes_GP()
    
    Dim Rango As Range: Set Rango = Range("E19", Range("E19").End(xlDown))
    With Rango
        vr = .Cells(1, 1).Address(0, 0)
        .Offset(, 1) = "=text( " & vr & ", ""mm"" )"
        .Offset(, 1).Value = .Offset(, 1).Value
    End With
        
    Set Rango = Nothing
    
End Sub

Adjunto Archivo

FORO - 2019.xlsm

[JSDJSD]

Hola   ramonvar, prueba el adjunto y comenta

FORO - 2019 (Prueba1).xlsm

[ramonvar]

JSDJSD, Está a la perfección, gracias por tu tiempo.. abrazo

Podemos dar por cerrado este tema

[ramonvar]

Con la disculpa del Caso, JSDJSD, probe la macro, y luego la revise, y tendría que haberlo hecho lo contrario

Porque al revisarle me percaté que se cambió el valor del rango de la celda E, de E19 a E26, pero en realidad las celdas con fecha podría comenzar en la celda E19, y así hasta el final del informe que no se cuantas filas tendría.

No me resuelve en síntesis esta solución inicial

[JSDJSD]

Siempre es bueno agradecer a quien te ayuda o intenta ayudarY en este foro es atraves del corazoncito que se encuentra en la parte inferior derecha de cada aporte. 

Por cierto esa macro que encontraste fue realizada por uno de los Grandes Maestros de este foro (Gerson Pineda).

[ramonvar]

1. Si asi mismo es, no recordaba de quien era la macro, pero recuerdo que era para extraer el año.. intente adecuarlo a mis necesidades pero por lo ya explicado arriba es que pido una mano.. lo estuve probando y no me resuelve, a las celdas vacías si lo iniciamos en la celda E19, polo rellena con el valor 1, sin embargo eso no debería de ocurrir..
2. Espero nuevamente la ayuda de Uds los maestros.

[JSDJSD]

Prueba ahora haber si es lo que buscas

FORO - 2019 (Prueba2).xlsm

[ramonvar]

Buen día JSDJSD

Estuve probando tu última ayuda y ya me falta muy poco, tal vez sea por no hacerme entender correctamente, pero te envío en anexo la situación del fichero, lo que sucede es que me está eliminando los contenidos ya existente en la columna "F", lo cual no debería de suceder, solamente pretendo extraer el mes de la columna "E" y pasarla a la "F"..., los valores existente en la columna "F", deben de permanecer..

Abrazo

 

FORO - 2019.xlsm

[JSDJSD]

Hola  ramonvar, Prueba el adjunto y comenta

FORO - 2019 (Prueba3).xlsm

[ramonvar]

Buenas Tarde JSDJSD, ya cumple lo solicitado, lo que me llamó la atención es que en caso que, en la fila 19 de la columna "E", contenga una fecha no extrae el mes correspondiente en la columna "F"..., esto te comento porque podría comenzar en es fila con formato Ej. 02/03/2019..

Nada mas faltaría ajustar ese detalle, nuevamente va mis agradecimientos por tu tiempo

[JSDJSD]

Sube tu archivo

[ramonvar]

Hola JSDJSD

Ahora lo subo, con la disculpa del caso

FORO - 2019 (Prueba3).xlsm

[JSDJSD]

Prueba el adjunto y comenta, el problema es que no guardas una lógica en la estructura de tus datos.

FORO - 2019 (Prueba4).xlsm

[ramonvar]

Excelente JSDJSD, la verdad, y sin querer justificar, es que ese archivo lo exporto de un sistema, y me lo toma así, conforme uno va dando de Alta.. pero en fin, ahora si ya podrás descansar, está excelente y podemos sí darlo por encerrado. 

Mi agradecimiento por todo este tiempo que has dedicado por darme este apoyo

Abrazo