בעיה | מי יכול לעזור לי לגבי קוד VBA מאקרו שלא עובד לי משהוא מה
-
מי יכול לעזור לי לגבי קוד VBA מאקרו שלא עובד לי משהוא מה
1.mp4
הוא פותח לי את המאקרו, ואין שום שגיאה בכתיבהSub הפקדה(קוד_כרטיס As String, סכום As Double) Dim wsתומכים As Worksheet Set wsתומכים = ThisWorkbook.Sheets("תומכים") Dim wsהפקדות As Worksheet Set wsהפקדות = ThisWorkbook.Sheets("הפקדות") Dim row As Range For Each row In wsתומכים.UsedRange.Rows If row.Cells(1, 1).Value = קוד_כרטיס Then row.Cells(1, 3).Value = row.Cells(1, 3).Value + סכום wsהפקדות.Cells(wsהפקדות.UsedRange.Rows.Count + 1, 1).Value = Date wsהפקדות.Cells(wsהפקדות.UsedRange.Rows.Count, 2).Value = קוד_כרטיס wsהפקדות.Cells(wsהפקדות.UsedRange.Rows.Count, 3).Value = row.Cells(1, 2).Value wsהפקדות.Cells(wsהפקדות.UsedRange.Rows.Count, 4).Value = סכום wsהפקדות.Cells(wsהפקדות.UsedRange.Rows.Count, 5).Value = row.Cells(1, 3).Value - סכום wsהפקדות.Cells(wsהפקדות.UsedRange.Rows.Count, 6).Value = row.Cells(1, 3).Value Exit Sub End If Next row End Sub -
@חננאל-צ
@menajemmendel מותר לתייג אותך? -
@חננאל-צ
אני לא מבין במאקרו, וכאשר מזכירים ניק עם @ זה שולח לו הודעה.
הוא מבין מאוד במאקרו, ואוהב לעזור, ולכן תייגתי אותו, אבל לא כולם אוהבים שמתייגים אותם, ולכן שאלתי אותו האם ניחא דעתיה מכך, או שלהבא לא אתייג אותו... -
-
@menajemmendel
שאני מפעיל המאקרו זה פותח לי לבחור מאקרו -
@menajemmendel
https://jumbomail.me/j/kKXQNsa3tU-kDJ9
הנה שלחתי גמבומייל -
@menajemmendel
https://jumbomail.me/j/kKXQNsa3tU-kDJ9
הנה שלחתי גמבומייל@חננאל-צ כתב בבעיה | מי יכול לעזור לי לגבי קוד VBA מאקרו שלא עובד לי משהוא מה:
@menajemmendel
https://jumbomail.me/j/kKXQNsa3tU-kDJ9
הנה שלחתי גמבומיילקובץ שהתפרסם בציבור נחסם אוטומטי, נראה לי שצריך לכתוב את הכתובת עם כוכביות
-
@חננאל-צ כתב בבעיה | מי יכול לעזור לי לגבי קוד VBA מאקרו שלא עובד לי משהוא מה:
@menajemmendel
https://jumbomail.me/j/kKXQNsa3tU-kDJ9
הנה שלחתי גמבומיילקובץ שהתפרסם בציבור נחסם אוטומטי, נראה לי שצריך לכתוב את הכתובת עם כוכביות
-
מי יכול לעזור לי לגבי קוד VBA מאקרו שלא עובד לי משהוא מה
1.mp4
הוא פותח לי את המאקרו, ואין שום שגיאה בכתיבהSub הפקדה(קוד_כרטיס As String, סכום As Double) Dim wsתומכים As Worksheet Set wsתומכים = ThisWorkbook.Sheets("תומכים") Dim wsהפקדות As Worksheet Set wsהפקדות = ThisWorkbook.Sheets("הפקדות") Dim row As Range For Each row In wsתומכים.UsedRange.Rows If row.Cells(1, 1).Value = קוד_כרטיס Then row.Cells(1, 3).Value = row.Cells(1, 3).Value + סכום wsהפקדות.Cells(wsהפקדות.UsedRange.Rows.Count + 1, 1).Value = Date wsהפקדות.Cells(wsהפקדות.UsedRange.Rows.Count, 2).Value = קוד_כרטיס wsהפקדות.Cells(wsהפקדות.UsedRange.Rows.Count, 3).Value = row.Cells(1, 2).Value wsהפקדות.Cells(wsהפקדות.UsedRange.Rows.Count, 4).Value = סכום wsהפקדות.Cells(wsהפקדות.UsedRange.Rows.Count, 5).Value = row.Cells(1, 3).Value - סכום wsהפקדות.Cells(wsהפקדות.UsedRange.Rows.Count, 6).Value = row.Cells(1, 3).Value Exit Sub End If Next row End Sub -
@חננאל-צ רואים זה קוד לא מושלם עוד לא ראיתי שהוא כותב קוד VBA מלא שעובד בלי תיקונים.
אם תהיה לי סבלנות אנסה לעבור עליו -
@דאבל נראה לי שרק החלק ההתחלה בקוד עם הסוגרים עושה בעיות
Sub הפקדה(קוד_כרטיס As String, סכום As Double) -
@חננאל-צ
הא, זה מה שהתכוונתי שכתבתי לך שלא כתבת את כל הקוד, אם בינה מלאכתותי כתב לך, אז בא נתחיל מתחילה- מה בדיוק אתה רוצה שהמאקרו יעשה?
- גם הייתי ממליץ לך לעלות קובץ אקסל שאתה רוצה שהמאקרו יפעל עליו (לא צריך עם מידע אמיתי, אבל שידעו מה לעשות)
- ועוד שאלה האם אתה מבין טיפה בVBA או כלום לא?
-
@חננאל-צ
הא, זה מה שהתכוונתי שכתבתי לך שלא כתבת את כל הקוד, אם בינה מלאכתותי כתב לך, אז בא נתחיל מתחילה- מה בדיוק אתה רוצה שהמאקרו יעשה?
- גם הייתי ממליץ לך לעלות קובץ אקסל שאתה רוצה שהמאקרו יפעל עליו (לא צריך עם מידע אמיתי, אבל שידעו מה לעשות)
- ועוד שאלה האם אתה מבין טיפה בVBA או כלום לא?
@menajemmendel מבין ממש טיפהחוברת1.xlsm
דוגמא
יש לי כרטיסים מגנטים מקודדים עם קוד אישי עבור כל נתמך, של מועדון לחנות גמילות חסדים שלי, ואני רוצה להפקיד לו כסף במערכת באקסל , ובסליקה דרך תוכנת אקסל זה יוריד לו מהסכום
הכרטיסים בנויים עם קוד מספרים בלבד כדוגמת "10018501" , על הכרטיס של כל נתמך כתוב את שמו בלבד.
באקסל מופיע עמודה עם קוד כרטיס, אדם הנתמך, וסכום, ויתרה
ההפקדה מוזנת ידנית בקובץ אקסל ע"י סיסמת מנהל שאני יגדיר
אני רוצה שיהא אפשרות לראות היסטורית עיסקאות בכרטיס
סיסמת מנהל תיהיה בקובץ אקסל עצמו, מתי ירצו להוסיף הפקדה, כל מי שיש לו הקוד סיסמת מנהל יוכל להפקיד כסף
ההסטוריית עיסקאות אני מעונין שזה ישמר לי טבלה נפרדת עבור כל נתמך
וישמר עבור כל עיסקה" תאריך עברי, קוד תומך, שם התומך, וסכום עיסקה, וכמה יתרה
וכן שיהא אפשרות לבטל עיסקה אחרי הביצוע
לבטל עיסקה יהיה אפשר ע"י סיסמת מנהל
ולתעד בדוח את היסטוריית התיקונים והביטולים
לא צריך אבטחה נוספת עבור הפקדת כסף -
@menajemmendel מבין ממש טיפהחוברת1.xlsm
דוגמא
יש לי כרטיסים מגנטים מקודדים עם קוד אישי עבור כל נתמך, של מועדון לחנות גמילות חסדים שלי, ואני רוצה להפקיד לו כסף במערכת באקסל , ובסליקה דרך תוכנת אקסל זה יוריד לו מהסכום
הכרטיסים בנויים עם קוד מספרים בלבד כדוגמת "10018501" , על הכרטיס של כל נתמך כתוב את שמו בלבד.
באקסל מופיע עמודה עם קוד כרטיס, אדם הנתמך, וסכום, ויתרה
ההפקדה מוזנת ידנית בקובץ אקסל ע"י סיסמת מנהל שאני יגדיר
אני רוצה שיהא אפשרות לראות היסטורית עיסקאות בכרטיס
סיסמת מנהל תיהיה בקובץ אקסל עצמו, מתי ירצו להוסיף הפקדה, כל מי שיש לו הקוד סיסמת מנהל יוכל להפקיד כסף
ההסטוריית עיסקאות אני מעונין שזה ישמר לי טבלה נפרדת עבור כל נתמך
וישמר עבור כל עיסקה" תאריך עברי, קוד תומך, שם התומך, וסכום עיסקה, וכמה יתרה
וכן שיהא אפשרות לבטל עיסקה אחרי הביצוע
לבטל עיסקה יהיה אפשר ע"י סיסמת מנהל
ולתעד בדוח את היסטוריית התיקונים והביטולים
לא צריך אבטחה נוספת עבור הפקדת כסף -
פוסט זה נמחק!
@חננאל-צ בכל אופן קח בחשבון שאקסל הוא לא ה''צד החזק'' שלי
-
@חננאל-צ בכל אופן קח בחשבון שאקסל הוא לא ה''צד החזק'' שלי
![חיפוש גוגל בפורום](javascript:{bootbox.prompt({title:'<div style="text-align: center;"><img src="/assets/uploads/files/1625950269825-mt-google.png" width="400"></div>',placeholder:'כתוב מילים לחיפוש ב Google',buttons:{confirm:{label:'חיפוש'},cancel:{label:'ביטול'}},backdrop:true,callback:function(result){if(result!=null&&result!=''){var a=document.createElement('a');a.href='https://www.google.co.il/search?q=site:mitmachim.top '+encodeURIComponent(result.trim());a.target='_blank';a.click();}}})();};){kind=link}