Loop

[jonazperzzon]

Hey!

Im trying to get this loop to work.
I want to use the input from the user, i get this in "D".
The input is a date. Then I want vba to put the date + 1 day as long as "lange" is bigger then 0. The cells where I want the date + 1 day are 24 cells witch are combined.

How about that for a problem?

  Dim i As String
i = 27
Do While IsEmpty(Lange) = False
Worksheets("Sheet1").Cells("i, 2").Value = D
i = i + 25
Lange = Lange - 1
Loop

 

[Weaver]

How about this for an answer

Sub test()
    i = 27
    For j = lange To 0 Step -1
        Worksheets("Sheet1").Cells("i, 2").Value = D
        i = i + 25
    Next j
End Sub

 

[jonazperzzon]

Thank u