اذهب الي المحتوي
أوفيسنا

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


فضل

الردود الموصى بها

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

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

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

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

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

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

رابط هذا التعليق
شارك

346594948.gif

اخي فضل

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

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

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

تم تعديل بواسطه عبدالله المجرب
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information