السلام عليكم و رحمة الله
بداية اود ان اشكر كل القائمين على هذا المنتدى العظيم الذى افادنى كثيرا
عندى اكواد ماكرو لبرنامج معين ... عند تشغيلها عن طريق بوتن من داخل الاكسيل تعمل بصوره طبيعيه ... و لكن بعد استخدام برنامج 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
ارجو المساعده من اهل الخبرة