VBA Input Box

[GCLIFTON]

Question: I need help. I am trying to write a VBA to Copy Set rng = Range("A1", "T189") 26, or 27 or 30 times by using the InputBox("Enter repetitions") and it is not working. All in one worksheet. Can anyone help me with that Code

 

[GCLIFTON]

To give an example

 

[shg]

I don't understand what you're trying to do.

 

[GCLIFTON]

I need the below data to copy 26 times or however many times i place int he Input Box. I also need it to apply an Unit number (190A) to each of the 26 so once the Macro has ran 26 times with 26 Different Unit number i can filter it. All in one spreadsheet. The original spreadsheet Range is "A1", "T189"

1 2 3 4 5
A. Data 1 Data 2 Data 3 Data 4 Data 5
B. Data 2 Data 3 Data 4 Data 5 Data 6
C. Data 3 Data 4 Data 5 Data 6 Data 7

 

[GCLIFTON]

I apologize i am so new to this.

 

[shg]

Post your code?

 

[GCLIFTON]

Here is my current Marco: It will not copy 26 . And i cant figure out how to have it read another another Worksheet to apply unit numbers to each of the 26 Copies separately.

Like the first copy lines of 189 in Cell U1 all the well down to U189 = Sheet 2 A1 and so on an so on from Sheet 2 which has 26 Unit Numbers


Sub copy()


Dim rng As Range, i As Integer, n As Long
Dim R As Integer
Set rng = Range("A1", "T189")
R = 189
n = 0
i = InputBox("Enter repetitions")
Do Until n = i + 1
rng.copy Destination:=Range("A" & R + 1)
n = n + 1
R = R * (n + 1)
Loop
End Sub

 

[GCLIFTON]

Maybe this is a better way to say it

In Sheet 1 A1,T189 needs to be copied 26 Times because i have 26 Unit in Sheet 2. Each time in Sheet 1 A1, T189 is copied in Cell U1 down to Cell U189 i need 1 unit to loop for each of the copied data all in Sheet 1

 

[shg]

Maybe ...

Sub copy()
  Dim rng As Range
  Dim i As Long
  
  Set rng = Range("A1:T189")
  For i = 1 To InputBox("Enter repetitions")
    rng.copy rng.Offset(rng.Rows.Count * i)
  Next i
End Sub

 

[GCLIFTON]

That Maybe is dead on it. Thank you so much. Would happen to know the code to add a value to each of the Copies from Sheet 2 A1:A26. Or a easier way.