Merhaba,
UserForm üzerinde Texbox4'e yazılan tarihi, Textbox5'e yazılan sayı kadar, sayfamda ilk boş satırdan itibaren alt alta yazdırıyorum.
Ancak tarihlerin gün ve yıl sabit kalmak üzere, ay kısmını 1'er ay arttırarak yazdırmak istiyorum.
Örnek:
TexBox4 = 01.10.2024
TexBox5 = 4 ise;
A sütünundaki ilk boş satıra;
A14 = 01.10.2024
A15 = 01.11.2024
A16 = 01.12.2024
A17 = 01.01.2025
Şeklinde bir yardıma ihtiyacım var, saygılarımla.
Private Sub CommandButton1_Click()
Set s2 = Sheets("Sayfa1")
For i = 1 To TextBox5.Value
yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
s2.Cells(yeni, "A") = TextBox4.Value
Next i
End Sub
UserForm üzerinde Texbox4'e yazılan tarihi, Textbox5'e yazılan sayı kadar, sayfamda ilk boş satırdan itibaren alt alta yazdırıyorum.
Ancak tarihlerin gün ve yıl sabit kalmak üzere, ay kısmını 1'er ay arttırarak yazdırmak istiyorum.
Örnek:
TexBox4 = 01.10.2024
TexBox5 = 4 ise;
A sütünundaki ilk boş satıra;
A14 = 01.10.2024
A15 = 01.11.2024
A16 = 01.12.2024
A17 = 01.01.2025
Şeklinde bir yardıma ihtiyacım var, saygılarımla.
Private Sub CommandButton1_Click()
Set s2 = Sheets("Sayfa1")
For i = 1 To TextBox5.Value
yeni = s2.Cells(Rows.Count, "A").End(3).Row + 1
s2.Cells(yeni, "A") = TextBox4.Value
Next i
End Sub