Prompt to copy formulas

E

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.
 
R

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
 
E

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
Click to expand...
in message news:[email protected]...
 
Top