فضل قام بنشر أغسطس 16, 2011 قام بنشر أغسطس 16, 2011 السلام عليكم وحمة الله وبركاته الى منتداى العزيز والى كل اعضائة الكرام . كل عام وسيادتكم بخير داعيا الله المولى العزيز الكريم فى هذا الشهر المبارك ان يتقبل الله فيه صلاتكم ودعائكم وصومكم وكل مافيه اللهم امين . مرفق الملف موضح به المطلوب والف الف شكر مقدما وجزاكم الله كل خير عمل زر ماكرو.rar
عبدالله المجرب قام بنشر أغسطس 16, 2011 قام بنشر أغسطس 16, 2011 (معدل) اخي فضل اولاً نرجو منك تعديل العنوان بما يتناسب مع المضمون ثانياً جرب المرفق تم اضافة الكود لعمل اللازم 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 بواسطه عبدالله المجرب
فضل قام بنشر أغسطس 16, 2011 الكاتب قام بنشر أغسطس 16, 2011 استاذى الفاضل / عبدالله المجرب تسلم الايادى ياباشا ويسلم العقل والفكر السليم والف الف شكر وجزاك الله كل خير. وهو المطلوب بالضبط وربنا يجعل هذا الفكر والعلم فى ميزان حسناتك يوم القيامة ان شاء الله . اما بخصوص ملاحظة سيادتكم الكريمة بتعديل العنوان ليتلائم مع المضمون فهذة ملاحظة جديرة بكل الاحترام والتقدير وانا متفق مع سيادتك على هذا . ولكن اعذرنى وتقبل اسفى لاننى حاولت تعديل العنوان ولم انجح وهذا جهل منى . والنقطة الثانية خشيت ان اعدل العنوان بعنوان اخر لم يتلائم مع المضمون . ولكن مااستطيع ان اوعدك به وللمنتدى العظيم باننى عند كتابة اى مشاركة اخرى سوف اهتم بكتابة اسم العنوان ليتلائم مع المضمون . لايسعنى فى النهاية الا ان اشكر سيادتكم ودعواتى لكم بالتوفيق .
ياسر الحافظ قام بنشر أغسطس 16, 2011 قام بنشر أغسطس 16, 2011 اخي فضل ثانياً جرب المرفق تم اضافة الكود لعمل اللازم استاذنا ابو احمد جزالك الله كل الخير ... يا سباق بالخير وبالتميز وفقك الله ابو الحارث
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.