Rellenar hacia abajo
Publicado por DAvid (8 intervenciones) el 04/03/2008 16:45:34
Buenos días a todos, tengo el sieguiente problema, espero alguien me pueda asesorar, necesito que la siguiente macro se repita una y otra vez pero únicamente en un rango previamente seleccionado manualmente
Sub rellenar()
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.FillDown
End sub
Lo que quiero es rellenar las celdas vacías hacia abajo copiando la información que está en la celda superior,
o si tienen una idea mejor agradecería me la dijeran por favor...
Espero me haya explicado bien.
Saludos
Sub rellenar()
Range("a1").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
Selection.FillDown
End sub
Lo que quiero es rellenar las celdas vacías hacia abajo copiando la información que está en la celda superior,
o si tienen una idea mejor agradecería me la dijeran por favor...
Espero me haya explicado bien.
Saludos
Valora esta pregunta
0