Rellenar un rango con fórmulas con vba

Tengo un código en vba que me rellena ya la fórmula hacia bajo, pero solo me rellena una columna, quisiera saber que tengo modificar para que me rellene del rango I9 al BE9. Gracias pongo el código que tengo .

Sub obtner_formatos()
Application.ScreenUpdating = False
UltimaFila = Range("B1048576").End(xlUp).Offset(1, 0).Row
Range("I9:BE9").Select
Do Until ActiveCell.Row = UltimaFila
If ActiveCell = "" Then
Selection.FillDown
End If
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub

2 Respuestas

Respuesta
2

Prueba esta macro y comentas

Sub rellenar()
Set datos = Range("b1").CurrentRegion
Set datos2 = Range("i9").CurrentRegion
filas = datos.Rows.Count
With datos2
    Set rellena = .Rows(2).Resize(filas - 1)
    .Copy: rellena.PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
End With
set datos=nothing: set datos2=nothing: set rellena=nothing
End Sub
Respuesta
2

Te anexo la macro

Sub Rellenar()
'Por.Dante Amor
    u = Range("B" & Rows.Count).End(xlUp).Row
    Range("I9:BE9").AutoFill Destination:=Range("I9:BE" & u), Type:=xlFillDefault
End Sub

.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas