variable rows to be copied

[tpeter]

I have multiple tabs in one spreadsheet. When the user enters a tab I have a
user form that asks for how many rows they would like to have. This could
range from 1-250. The textbox info is placed in cell m2. I don't know how to
copy range c15:k15 the number of times it takes to meet the users request. An
example would be if they entered 5 in the textbox, select range c15:k15 and
copy in down four times. Any help would be great.

Tim Peter

 

[JLGWhiz]

Your description is not very clear. To expand Range("C15:K15") to five
rows:

rng = Range("C15:K15")
rng.Resize(5, 9)

would increase the range size by five rows.

 

[Rick Rothstein]

Give this a try...

HowManyTimes = 5
Range("C15:K15").Resize(HowManyTimes).Value = Range("C15:K15").Value

 

[JLGWhiz]

If it is just copying, then:

Range("C15:K15").Copy Range("C15:K20")

 

[Patrick Molloy]

try something like this:

Option Explicit
Sub Main()
Dim qrows As Long
qrows = InputBox("How many rows")
If qrows > 0 Then
Range("C15:k15").Copy
Range("C16").Resize(qrows - 1).PasteSpecial xlPasteAll
Application.CutCopyMode = False
End If


End Sub