אקסל: מקרו שלא עובד

[urig75]

אקסל: מקרו שלא עובד

מ"ע: חלונות 10
אקסל 2016 עברית

שלום רב, קודם כל תודה על כל העזרה בעבר וקטעי-הקוד. אני לא למדתי VB בעבר אבל אני לומד תוך כדי ההסברים שלכם מספיק כדי לבצע כל מיני פעולות קטנות שאני צריך.

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

 

[u333]

כדאי שתסביר בפשטות ובבהירות מה אתה מנסה לבצע ?

לגבי הפסקת פעולת המקרו - נראה על פניו כי הפקודה:
Application.EnableEvents = 0
בסוף המקרו clr גורמת לכך. אם תבטל אותה - זה יעבוד אך עדיין לא ברור לי מה אתה מנסה לבצע ???

 

[urig75]

גם אם אני מבטל את הפונקציה clr המקרו לא פועל

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

אשמח לעזרה..

 

[u333]

לא ענית על השאלה העיקרית - מהי מטרת המקרו ???

 

[מיכאל אבידן]

נסה לשנות את המקרו הראשון למשהו כמו להלן . . .

Private Sub Clr()
         Application.EnableEvents = 0
         Range("B1:H2").ClearContents
         Range("H4") = "Clr Sub"
         Application.EnableEvents = 1
End Sub