Ahmedpoop

اهلا بك ... بالتوفيق

السلام عليكم و رحمة الله بداية اود ان اشكر كل القائمين على هذا المنتدى العظيم الذى افادنى كثيرا عندى اكواد ماكرو لبرنامج معين ... عند تشغيلها عن طريق بوتن من داخل الاكسيل تعمل بصوره طبيعيه ... و لكن بعد استخدام برنامج RibbonEditor لعمل ريبون يحتوى على ازرار لجميع اوامر البرنامج تظهر رسالة الخطا و لا اعلم ما الخطا فى البرنامج و لماذا يعمل عن طريق ازرار داخل البرنامج و لا يعمل عن طريق ازار الريبون الذى تم عمله باستخدام البرنامج wrong number of arguments or invalid property assignment كود احد الاوامر Sub GO_UP() ' 'RACK TO CHECK IF THE DATE IS WITH IN PERIOD OR OUT OF DATE" Dim UDAT As Variant Dim UDATM As String UDAT = Range("A2").Value If UDAT <> 1 Then Range("A2").ClearContents ThisWorkbook.Save UDATM = MsgBox("This program is out of date." & vbNewLine & "For original version please contact ahmedmahdy2010@yahoo.com.", vbCritical) GoTo NDSUB End If 'Insuring that this sheet is signed If Range("K3").Value <> Range("A1").Value Then MSG = MsgBox("Please don't remove designer data." & vbNewLine & "Correct and retry.", vbCritical) GoTo NDSUB End If ' Calculationview Macro ' Go to calculation view ' ' Range("A1").Select Range("E2").Select NDSUB: End Sub ارجو المساعده من اهل الخبرة

شكرا جزيلا اخى الكريم ..... جزاك الله خير استفسار اخر هل يمكن عمل ماكرو يقوم بمسح موديول من VBA EDITOR ......

السلام عليكم و رحمة الله بداية اود ان اشكر كل القائمين على هذا المنتدى العظيم الذى افادنى كثيرا عندى اكواد ماكرو لبرنامج معين ... عايز اضيف عليها كود يخليها تشتغل فترة 300 او 500 يوم مثلا و بعدين تعرض رساله ان البرنامج مثلا يحتاج لتفعيل او اى رساله اخرى ... ارجو المساعده فى كتابة مثل هذا الكود و جزاكم الله خير