Macro que ayude a copiar celdas de una misma columna
Tengo una tabla de excel, en la celda A3, tengo datos que necesito copiar en las celdas A4, A5, A6 y así sucesivamente, hasta que la macro encuentre otro dato en esa misma columna; suponiendo que en la celda A20, encontró otro dato, a partir de la celda A21 en adelante copiara la nueva información que encontró en A20 y la copiara en todas las celdas vacías de la columna A, hasta encontrar otra celda con otro dato y así sucesivamente. La macro terminara, hasta encontrarse con la celda que contiene la palabra END.
Esto necesito hacerlo con las columnas A, B, C, DE y E. Y todas inician en la fila 3 ( obviamente cada celda, contiene información diferente que sera copiada en su respective columna. )
1 Respuesta
Te anexo la macro
Sub CopiarCeldas()
'Dante Amor
Application.ScreenUpdating = False
u = Range("A" & Rows.Count).End(xlUp).Row
Range("A3:E" & u).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range("A3:E" & u).Copy
Range("A3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A3").Select
End SubSaludos.Dante Amor
No olvides valorar la respuesta.
Dante, como siempre, tan efectivo. Muchas Gracias! Excelente respuesta
Dante, habrá manera de que en el archivo anteriormente mencionado, ¿crear una macro que busque el ultimo dato de la columna "M" (Supungamos la celda M1000) y en la siguiente celda (M1001) coloque la palabra END y lo colore de verde y haga lo mismo para toda la fila desde la A hasta la Z?
Obviamente si se agregan más filas, con el transcurso del trabajo, reconozca cual es el ultimo campo de la columna M y en la siguiente celda vacía, coloque la palabra END en toda esa fila. ( La columna M, siempre contiene información, en todas su celdas, no habría problema por espacios blancos en medio )
Saludos y Gracias.
Con gusto te sigo ayudando.
Al final de mi respuesta dice: “Es una buena respuesta” y puedes seleccionar una de 3 opciones:
- Excelente
- Si
- No
Podrías valorar esta respuesta y crear una nueva pregunta para cada petición.
¡Gracias! Dante, como siempre ayudándome, y por supuesto que son, excelentes los trabajos que has realizado. Comente la nueva pregunta, con el titulo "Encontrar ultimo registro en una tabla de excel"
Te agradezco tu ayuda.
Saludos.
Marco Hernández
