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 يوم مثلا و بعدين تعرض رساله ان البرنامج مثلا يحتاج لتفعيل او اى رساله اخرى ... ارجو المساعده فى كتابة مثل هذا الكود و جزاكم الله خير