برجاء المساعدة فى انشاء زر ماكرو يقوم بهذه الوظيفة

[فضل]

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

الى منتداى العزيز والى كل اعضائة الكرام . كل عام وسيادتكم بخير

داعيا الله المولى العزيز الكريم فى هذا الشهر المبارك ان يتقبل الله فيه صلاتكم ودعائكم وصومكم وكل مافيه اللهم امين .

مرفق الملف موضح به المطلوب

والف الف شكر مقدما وجزاكم الله كل خير

عمل زر ماكرو.rar

[عبدالله المجرب]

اخي فضل

اولاً نرجو منك تعديل العنوان بما يتناسب مع المضمون

ثانياً جرب المرفق تم اضافة الكود لعمل اللازم

Sub Officna()

If ActiveCell.Column <> Range("A1").Value Then

MsgBox ("عمود الخلية لا يساوي قيمة الخلية A1")

Exit Sub

End If

X = "ح"

XX = Range("A1").Value

Selection.Value = X & XX

End Sub

عمل زر ماكرو.rar

تم تعديل أغسطس 16, 2011 بواسطه عبدالله المجرب

[فضل]

استاذى الفاضل / عبدالله المجرب

تسلم الايادى ياباشا ويسلم العقل والفكر السليم والف الف شكر وجزاك الله كل خير. وهو المطلوب بالضبط

وربنا يجعل هذا الفكر والعلم فى ميزان حسناتك يوم القيامة ان شاء الله .

اما بخصوص ملاحظة سيادتكم الكريمة بتعديل العنوان ليتلائم مع المضمون فهذة ملاحظة جديرة بكل الاحترام والتقدير

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

ولكن مااستطيع ان اوعدك به وللمنتدى العظيم باننى عند كتابة اى مشاركة اخرى سوف اهتم بكتابة اسم العنوان ليتلائم مع المضمون .

لايسعنى فى النهاية الا ان اشكر سيادتكم ودعواتى لكم بالتوفيق .

[ياسر الحافظ]

اخي فضل

ثانياً جرب المرفق تم اضافة الكود لعمل اللازم

استاذنا ابو احمد

جزالك الله كل الخير ... يا سباق بالخير وبالتميز

وفقك الله

ابو الحارث

[ايهاب السعيد]

جزالك الله كل الخير