Prompt to copy formulas

[Eva Shanley]

I have some code that copies formulas down 9000 rows, but
the range to copy down will change frequently. Is there a
way to prompt the user via an input box for the number of
rows they want to copy down, and then do so? As always,
TIA.

 

[Ron de Bruin]

Hi Eva

Try this to copy the formula in B1 down

Sub test()
Dim LastRow As Long
LastRow = Application.InputBox("Enter a number", Type:=1)
With Worksheets("Sheet1")
.Range("B1:B" & LastRow).FillDown
End With
End Sub

 

[Eva Shanley]

Ron, thanks for the quick response. The code works great
and I'm sure I'll use it frequently. Thanks for the help!

-----Original Message-----
Hi Eva

Try this to copy the formula in B1 down

Sub test()
Dim LastRow As Long
LastRow = Application.InputBox("Enter a number", Type:=1)
With Worksheets("Sheet1")
.Range("B1:B" & LastRow).FillDown
End With
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Eva Shanley" <[email protected]> wrote

in message news:[email protected]...