For...Next Döngüsü

[captan]

Herkese Kolay Gelsin,

Ekteki örneğimde, Sayfa1 A:A da A2 den itibaren Textbox1 deki tarihten
Textbox2 deki tarihe kadar saymasını istiyorum.

 

[Zeki Gürsoy]

[a2] = CDate(TextBox1)
For i = 1 To CDate(TextBox2) - CDate(TextBox1)
    Cells(i + 2, 1) = CDate(TextBox1) + i
Next

 

[captan]

[a2] = CDate(TextBox1)
For i = 1 To CDate(TextBox2) - CDate(TextBox1)
    Cells(i + 2, 1) = CDate(TextBox1) + i
Next

Teşekkürler,