Prompt to copy formulas
 

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.

Prompt to copy formulas
 

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" wrote in message ...
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.

Prompt to copy formulas
 

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" wrote
in message ...
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.


.