استدعاء كود

[ابو هبه]

السلام عليكم ورحمة الله وبركاته

 

الرجاء من الاخوه الافاضل مساعدتي في هذا الملف

المطلوب استدعاء الكود الموجود  CommandButton1 بواسطة زر   استدعاء كود  CommandButton2  

 

ملاحظه :-    CommandButton1 خالي من اي كود المرجو اضافة اي كود للتجربه حتى يمكن استدعاءه والتعديل عليه

 

مع خالص شكري وتقديري

مثال.rar

تم تعديل مايو 13, 2014 بواسطه ابو هبه

[ابو هبه]

 

السلام عليكم ورحمة الله وبركاته

 

الرجاء من الاخوه الافاضل مساعدتي في هذا الملف

المطلوب استدعاء الكود الموجود  CommandButton1 بواسطة زر   استدعاء كود  CommandButton2  

 

ملاحظه :-    CommandButton1 خالي من اي كود المرجو اضافة اي كود للتجربه حتى يمكن استدعاءه والتعديل عليه

 

مع خالص شكري وتقديري

 

 

 

السلام عليكم ورحمة الله وبركاته

 

الرجاء من الاخوه الافاضل مساعدتي في هذا الملف

المطلوب استدعاء الكود الموجود  CommandButton1 بواسطة زر   استدعاء كود  CommandButton2  

 

ملاحظه :-    CommandButton1 خالي من اي كود المرجو اضافة اي كود للتجربه حتى يمكن استدعاءه والتعديل عليه

 

مع خالص شكري وتقديري

 

اين اهل الخبره؟ الرجاء المساعده

[رجب جاويش]

السلام عليكم

تفضل أخى

Private Sub CommandButton1_Click()
Range("A2:A10").Interior.ColorIndex = 5
End Sub

Private Sub CommandButton2_Click()
CommandButton1_Click
End Sub

مثال.rar

[ابو هبه]

 

السلام عليكم

تفضل أخى

Private Sub CommandButton1_Click()
Range("A2:A10").Interior.ColorIndex = 5
End Sub

Private Sub CommandButton2_Click()
CommandButton1_Click
End Sub

معذرة اخي العزيز المطلوب هو عند الضغط على زر  CommandButton2 يفتح لي الكود الموجود في زر  CommandButton1  لكي اعدل عليه او اضيف عليه سطرجديد او اغير في الكود

المهم احضار الكود وفتحه ...مع فائق شكري وتقديري لجهدك المبذول

[ابو هبه]

 

 

السلام عليكم

تفضل أخى

Private Sub CommandButton1_Click()
Range("A2:A10").Interior.ColorIndex = 5
End Sub

Private Sub CommandButton2_Click()
CommandButton1_Click
End Sub

معذرة اخي العزيز المطلوب هو عند الضغط على زر  CommandButton2 يفتح لي الكود الموجود في زر  CommandButton1  لكي اعدل عليه او اضيف عليه سطرجديد او اغير في الكود

المهم احضار الكود وفتحه ...مع فائق شكري وتقديري لجهدك المبذول

 

[ابو هبه]

 

 

 

السلام عليكم

تفضل أخى

Private Sub CommandButton1_Click()
Range("A2:A10").Interior.ColorIndex = 5
End Sub

Private Sub CommandButton2_Click()
CommandButton1_Click
End Sub

معذرة اخي العزيز المطلوب هو عند الضغط على زر  CommandButton2 يفتح لي الكود الموجود في زر  CommandButton1  لكي اعدل عليه او اضيف عليه سطرجديد او اغير في الكود

المهم احضار الكود وفتحه ...مع فائق شكري وتقديري لجهدك المبذول

 

 

[رجب جاويش]

أخى الفاضل / أبو هبه

أعتقد أن هذه العمليه صعبه وربما تكون غير ممكنه

والله أعلم

[ابو هبه]

أخى الفاضل / أبو هبه

أعتقد أن هذه العمليه صعبه وربما تكون غير ممكنه

والله أعلم

شكرا لك اخي الفاضل ولجهودك المبذوله تقديري وامتناني لك