מילוי תאריך רץ בטופס מאקרו לטבלה

[searchnicks]

כפי שרואים בתמונה

מה הפקודה המתאימה, שלפי המס' צקים שרשום, הוא ימשיך למלא בשורות הנוספות, כחודשים עוקבים, את התאריך הבא, והסכום שצויין בטופס

וכן צריך משהו נוסף, שאם אני מוסיף עוד, שימלא בתאים הריקים הבאים, ולא על חשבון התאים הקיימים, כלומר שיוסיף שורות חדשות

אשמח לכל עזרה וייעוץ, או למילים מתאימות לחיפוש גוגל

[searchnicks]

אשמח לפחות למילים מתאימות לחיפוש גוגל

[searchnicks]

עקב שאני רוצה לתרום לפורום בדרכים שאני יכול
אני מביא את התשובה שקיבלתי בפורום אחר

Private Sub CommandButton1_Click()


Dim ws As Worksheet, LRow as Long, i as Integer
Set ws = Worksheets("sheets")

LRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Offset(1, 0).Row

ws.Range("A" & LRow) = Me.TextBox2
ws.Range(ws.Cells(LRow, 2), ws.Cells(LRow + Me.TextBox1, 2)) = Me.TextBox3

For i = (LRow + 1) To (LRow + Me.TextBox1 - 1)
    ws.Range("A" & i ) = DateAdd("m", 1, ws.Range("A" & i -1))
Next i

Unload Me

End Sub

אם מישהו יצטרך...