@menajemmendel הסתדרתי תודה רבה בכל אופן
@דאבל יש כח גדול על זה שהעיר את תשומת ליבי מה הבעיה

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

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

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

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

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

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

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

@menajemmendel
שאני מפעיל המאקרו זה פותח לי לבחור מאקרו

@דאנציג אה הבנתי

@דאנציג מה זה אומר

מי יכול לעזור לי לגבי קוד 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