בירור | העתקה בלחיצה על תיבה נבחרת באקסל

[למה מה קרה]

@יוני-1
יש את הקוד הזה:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 Target.EntireRow.Copy
End Sub

לחיצה על מקש ימני תעתיק לך את כל השורה של התא

[יוני 1]

@למה-מה-קרה איפה מריצים את הקוד הזה?

[למה מה קרה]

@יוני-1
יש לך בסרגל למעלה לשונית מפתחים?
אם לא כנס ל-
קובץ>אפשרויות>התאמה אישית של רצועת הכלים
בצד שמאל יהיה לך רשימה של כל הלשוניות תסמן V בלשונית מפתחים
לאמח"כ כנס ללשונית מפתחים
בצד ימין כנס ל-visual basic
יפתח לך חלונית חדשה,
בצד ימין תיכנס ל- חוברת עבודה זו, ותדביק שם את הקוד

[סקרן 0]

@למה-מה-קרה דרך יותר פשוטה לפתוח את עורך הקוד - בלחיצה על alt + F11

[mlpk]

@למה-מה-קרה כתב בבירור | העתקה בלחיצה על תיבה נבחרת באקסל:

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

איפה בצד ימין - נפתח לי חלונית שכל התפריט באנגלית:

[דאנציג]

@mlpk
ב INSERT/MODULE:

[mlpk]

@למה-מה-קרה כתב בבירור | העתקה בלחיצה על תיבה נבחרת באקסל:

@יוני-1
יש את הקוד הזה:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 Target.EntireRow.Copy
End Sub

לחיצה על מקש ימני תעתיק לך את כל השורה של התא

איך זה עובד? ומה אני עושה?
ניסיתי להדביק את הקוד הזה כמו ש @דאנציג הראה לי;
איך אני משתמש עם האופציה הזאת באקסל?

[דאנציג]

@mlpk
זה נראה שחסר משהו במאקרו, תשאל את בעליו @למה-מה-קרה

[ישעיהו כץ]

@דאנציג אולי חסר השם של המאקרו, כלומר אמור להיות private sub, ואז אנטר ואח"כ ההמשך

[דאנציג]

@ישעיהו-כץ נסיתי להוסיף שם למאקרו ולא הצליח, וגם בדרך שאתה העלית זה מראה שגיאה.

[יוני 1]

@mlpk זה עובד מעולה ממש
צריך לא ללחוץ בצד ימין אלא בשמאל איפה שרשום חוברת עבודה זו
ואז כונטרול+S לשמור ולשמור כסוג קובץ תומך מאקרו
עובד מעולה

[יוני 1]

@למה-מה-קרה תודה רבה רבה עזר לי מאוד תבורך
אין באמת אפשרות להפוך את המקש הימני לשמאלי ?

[למה מה קרה]

@יוני-1
יש אפשרות
רק הבעיה בזה שמתי שאתה רוצה לעבור בין תא לתא עם העכבר זה מפעיל את הפקודה של העתקה

[יוני 1]

@למה-מה-קרה כלומר לוחץ על התא הנבחר ואז על תא אחר ? ורק אז זה מעתיק ?

[יוני 1]

@למה-מה-קרה עברתי קצת בגוגל לפי הפקודה שהבאת לי ראיתי שיש אופציה לעשות דאבל קליק
אבל זה לא עובד

[למה מה קרה]

@יוני-1
תמחק את מה שהבאתי, תיכנס מחדש ל- "חוברת עבודה זו"
ותדביק:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
 Target.EntireRow.Copy
End Sub

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