Trying to create a loop

[Oliver1804]

ThisWorkbook.Save
Sheet4.Range("A1").Value = Environ("Username")
Sheet4.Range("B1").Value = Time()
Sheet4.Range("C1").Value = Date
Sheet4.Range("D1").Value = ActiveWorkbook.Name


I'm sorry if this is a stupid question, I'm new to this, how can I get this code to repeat itself. It works but obviously only on the top row.

Thank you for your time

 

[VBE313]

How many times do you want it to repeat?

 

[Oliver1804]

Thanks for your reply, I would like to have it repeat a hundred times.

 

[jasonb75]

I would assume that there must be some kind of conditions to go with the requirement, repeating that code in a loop 2 times, 100 times, or 1,000,000,000 times would have no real purpose.

This will do what you ask, but I suspect that it will be far from what you need.

Dim n As Long
For n = 1 To 100
    ThisWorkbook.Save
    Sheet4.Range("A1").Value = Environ("Username")
    Sheet4.Range("B1").Value = Time()
    Sheet4.Range("C1").Value = Date
    Sheet4.Range("D1").Value = ActiveWorkbook.Name 
Next

To loop code, you can use For or For Each and Next, either Do, Do While or Do Until and Loop or While and Wend.
For most loops you could use any of those methods, however there advantages to certain ones depending on the actual appliaction of the code.

 

[Oliver1804]

I think I may have worded my question wrong, as the code just creates a loop of saving the file a 100 times, I understand why you said it has no real purpose.

What I meant to say is that when the button is clicked the username, time, date, and file name is filled out on the 1st row of sheet4 (columns A-D), then when its next clicked again the second row is filled etc

 

[VBE313]

I don't think you are referring to a loop, you just want to have data entry in the next available row in Sheet4, is that correct? If so, please check the following code.

Sub Oliver1804()
Dim lastRow As Long
With Sheets("Sheet4")
    lastRow = .Cells(Rows.Count, 1).End(xlUp).Row
    .Cells(lastRow, 1).Offset(1, 0).Resize(1, 4).Value = Array(Environ("Username"), Time(), Date, ActiveWorkbook.Name)
End With
End Sub

 

[Oliver1804]

Thank you both, it works.

Thanks again for your time