תחומים
    • הרשמה
    • התחברות
    • חיפוש
    • קטגוריות
    • פוסטים אחרונים
    • משתמשים
    • חיפוש
    חוקי הפורום

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

    תכנות
    1
    3
    321
    טוען פוסטים נוספים
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
    תגובה
    • הגב כנושא
    התחבר בכדי לפרסם תגובה
    נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
    • searchnicks
      searchnicks נערך לאחרונה על ידי

      כפי שרואים בתמונה
      0_1538565809506_8c375c4a-448e-4ada-955b-075eca936ef4-image.png

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

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

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

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

      תגובה 1 תגובה אחרונה תגובה ציטוט 0
      • searchnicks
        searchnicks נערך לאחרונה על ידי

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

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

        תגובה 1 תגובה אחרונה תגובה ציטוט 0
        • 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
          

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

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

          תגובה 1 תגובה אחרונה תגובה ציטוט 4
          • הועבר מ תכנות ע"י  dovid dovid 
          • 1 / 1
          • פוסט ראשון
            פוסט אחרון
          בא תתחבר לדף היומי!