مساعدة في كود VBA

[محمد تامر الباشا]

السلام عليكم

احتاج كود .....عند الضغط على زر يستدعي اكواد ازرار اخرة

مثل
 

Private Sub CommandButton1_Click()    زر
Private Sub CommandButton2_Click()   زر اخر

احتاج امر لتنفيذ اوامر زرين عند ضغط على زر جديد ثالث

وشكرا

 

[عبدالله بشير عبدالله]

وعليكم السلام

حسب فهمي لطلبك

اكتب في الزر الجديد

CALL CommandButton1_Click

CALL CommandButton2_Click

[محمد تامر الباشا]

كتبت ولم يعمل الكود ....قام باستدعاء 

CALL CommandButton1_Click

والثاني لم يراه

 

[عبدالله بشير عبدالله]

ارفق الملف لنرى ما السبب رعاك الله

[أبو إيمان]

يمكنك وضع كل كود داخل موديول عادي وتقوم باستدعاؤه في حدث النقر الخاص بالزر

[lionheart]

Use this macro in the same module

Sub Test1()
    Call CommandButton1_Click
    Call CommandButton2_Click
End Sub

 

If you need to execute the commands away from their module you can use Application.Run

Sub Test2()
    Application.Run "Sheet1.CommandButton1_Click"
    Application.Run "Sheet1.CommandButton2_Click"
End Sub