תחומים - פורום חרדי מקצועי

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

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

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

עדכון:
לאחר חיפוש, מצאתי הכפתור, (היה לכפתור אחד שני מצבים)
תודה לכל אלו שרצו לסייע

חכם!!

אכן, מוכר, כבר תקופה יחסית ארוכה (כמה חודשים).
יש לזה הרבה מאד שמות. כולם אותו רעיון.

@WWW עדיף לבכות פעם אחת... ולחייך כל שאר החיים 😛

רמז: בקודים שכבר השתמשת יש את הפתרון.
בלי גוגל, נראה לי שתספיק מחשבה.

@clickone @dovid
יש לכם מקורות נוספים להציע כדי ללמוד VBA?

אני מעדיף קריאה, לאו דווקא בצורת ספר, אלא גם דפי אינטרנט

@dovid
אכן לא חשבתי על זה...
תיקון קטן, 13 ולא 12

@aiib לא מצאתי תוכנת ניהול סוללה (לא צריכת חשמל) של מחשבי toshiba

@shraga אלי אקפסרס?

@yits ברור
השיבוץ מייבא אוטומטית למפה ויזואלית שמייבא לפי המיקום של התא את השם שמצויין משמאל לציון מיקום תא בגיליון שיבוץ

@מתמחה-במחשבים http://tchumim.com/user/מתמחה-במחשבים/settings

תשובה עם רעיון זהה שקיבלתי עכשיו בפורום מיקרוסופט
כאן

זה לא עניין של הרשאות זה לא פעיל בכלל,
רק בגלל טעות שלי בהגדרה זה הופיע בכל זאת.

@מתמחה-במחשבים נושא חדש בבקשה, בקטגוריה תכנות.

@מתמחה-במחשבים כלומר אם המתכנת בנה את הדף כך, אז אפשר

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

אנא הימנעו מלהזכיר מאגרים לא חוקיים, זה עלול לסבך אתכם.

יש לי כזה דיסק
https://www.ebay.com/itm/LENOVO-39T2851-39T2850-UJ-852-DVD-MULTI-RECORDER-CD-RW-DRIVE-/281773836133