בעיה | מי יכול לעזור לי לגבי קוד 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
שאני מפעיל המאקרו זה פותח לי לבחור מאקרו

[חננאל צ]

@menajemmendel
https://jumbomail.me/j/kKXQNsa3tU-kDJ9
הנה שלחתי גמבומייל

[menajemmendel]

@חננאל-צ כתב בבעיה | מי יכול לעזור לי לגבי קוד VBA מאקרו שלא עובד לי משהוא מה:

@menajemmendel
https://jumbomail.me/j/kKXQNsa3tU-kDJ9
הנה שלחתי גמבומייל

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

[חננאל צ]

@menajemmendel
https://jumbomail.me/j/kKXQNsa3tU-kDJ9**

[דאבל]

@חננאל-צ אתה כתבת את הקוד?

[חננאל צ]

@דאבל בינה מלכותית

[דאבל]

@חננאל-צ רואים זה קוד לא מושלם עוד לא ראיתי שהוא כותב קוד VBA מלא שעובד בלי תיקונים.
אם תהיה לי סבלנות אנסה לעבור עליו

[חננאל צ]

@דאבל נראה לי שרק החלק ההתחלה בקוד עם הסוגרים עושה בעיות

Sub הפקדה(קוד_כרטיס As String, סכום As Double)

[דאבל]

@חננאל-צ נכון, הוא הכניס את הגדרה של המשתנים בתוך השם...

[חננאל צ]

@דאבל אז מה הוא היה צריך לעשות.
ואיך אני יכול לתקן את זה

[menajemmendel]

@חננאל-צ
הא, זה מה שהתכוונתי שכתבתי לך שלא כתבת את כל הקוד, אם בינה מלאכתותי כתב לך, אז בא נתחיל מתחילה

1. מה בדיוק אתה רוצה שהמאקרו יעשה?
2. גם הייתי ממליץ לך לעלות קובץ אקסל שאתה רוצה שהמאקרו יפעל עליו (לא צריך עם מידע אמיתי, אבל שידעו מה לעשות)
3. ועוד שאלה האם אתה מבין טיפה בVBA או כלום לא?

[חננאל צ]

@menajemmendel מבין ממש טיפהחוברת1.xlsm
דוגמא
יש לי כרטיסים מגנטים מקודדים עם קוד אישי עבור כל נתמך, של מועדון לחנות גמילות חסדים שלי, ואני רוצה להפקיד לו כסף במערכת באקסל , ובסליקה דרך תוכנת אקסל זה יוריד לו מהסכום
הכרטיסים בנויים עם קוד מספרים בלבד כדוגמת "10018501" , על הכרטיס של כל נתמך כתוב את שמו בלבד.
באקסל מופיע עמודה עם קוד כרטיס, אדם הנתמך, וסכום, ויתרה
ההפקדה מוזנת ידנית בקובץ אקסל ע"י סיסמת מנהל שאני יגדיר
אני רוצה שיהא אפשרות לראות היסטורית עיסקאות בכרטיס
סיסמת מנהל תיהיה בקובץ אקסל עצמו, מתי ירצו להוסיף הפקדה, כל מי שיש לו הקוד סיסמת מנהל יוכל להפקיד כסף
ההסטוריית עיסקאות אני מעונין שזה ישמר לי טבלה נפרדת עבור כל נתמך
וישמר עבור כל עיסקה" תאריך עברי, קוד תומך, שם התומך, וסכום עיסקה, וכמה יתרה
וכן שיהא אפשרות לבטל עיסקה אחרי הביצוע
לבטל עיסקה יהיה אפשר ע"י סיסמת מנהל
ולתעד בדוח את היסטוריית התיקונים והביטולים
לא צריך אבטחה נוספת עבור הפקדת כסף

[menajemmendel]

פוסט זה נמחק!

[menajemmendel]

@חננאל-צ בכל אופן קח בחשבון שאקסל הוא לא ה''צד החזק'' שלי