Macro para rellenar celdas en blanco
Hola Experto Jaime
Tengo una macro que rellena celdas en blanco:
Sub rellenar()
ultimafila = Range("l1048576").End(xlUp).Offset(1, 0).Row
Range("d1").Select
Do Until ActiveCell.Row = ultimafila
If ActiveCell = "" Then
Selection.FillDown
End If
ActiveCell.Offset(1, 0).Select
Loop
End SubLo que pasa que esta macro solo toma la ultima celda de la columna "D". Y la copia en los espacios vacíos, tomando como referencia la columna "L".
Lo quiero es que la macro copie el último registro del rango ("D1:L1") del "hoja 1", que tiene los mismo registro que la "hoja 2".
Muchas gracias por tu respuesta.
Saludos,
Pedro G.
1 respuesta
No llego a entender completamente tu pregunta, pues necesitaría ver los datos...
Aun asi.. si es que los datos son como creo... podrías probar cambiar tu macro por...
Sub rellenar()
ultimafila = Range("L1048576").End(xlUp).Offset(1, 0).Row
Range("d1").resize(ultimafila, 9).filldown
End sub
Hola Experto Jaime
Gracias por la respuesta. Acabo de modificar la macro y funciona, pero copia dos filas demás.
Pero lo quiero es copiar los datos desde otro libro y la macro solo funciona en en la hoja 2.
Te puedo enviar el archivo a tu correo para que me entiendas mejor.
Muchas gracias
Ya esta.
