תתחום גם את "הכנס קוד משתמש" בגרשיים בצד השני ראיתי ששכחת. דבר שני תנסה אוליי לעשות איזה תנאי IF שאם Code לא שווה לכלום אז תתבצע איזה פעולה או שיכנס לו איזה ערך מסויים.
לפני הקריאה תגדיר on error resume next. ואחרי השורה תבדוק את err.number אח"כ תאפס את ה on error ע" on error goto 0 למרות שבכלל לא מומלץ להשתמש ב inputbox...........
Dim temp as String dim code as integer temp = inputbox("Enter bla bla bla") z if IsNumeric(temp) then code = val(temp) end if אני מקווה שכל השיטות נכונות, פשוט לא כתבתי הרבה זמן.
