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 de James Bond
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
