ماجدجلال

نعم شي ممتاز جدا وفعال الف شكر

الف شكرا لك استاذ علي سوف اجرب الكود , والنتيجة مسبقا معروفة الف شكر

السلام عليكم ورحمة الله وبركاتة لدي كود صممت للتنقل بين مجموعة من الخلايا بنئا علي رقم الشقة المدخل بواسطة الدالة inputbox وهذة هو الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim NoRoom As String If Range("D" & Target.Row).Value > 0 Then NoRoom = InputBox("ادخل رقم الشقة المراد ادخل بيانات النزيل فيها") End If Select Case NoRoom Case Is = 151 Range("A4").Select Case Is = 152 Range("A5").Select Case Is = 153 Range("A6").Select Case Is = 154 Range("A7").Select Case Is = 155 Range("A8").Select Case Is = 156 Range("A9").Select Case Is = 157 Range("A10").Select End Select End Sub المطلوب اود اضافة شرط في حالة اذا ادخل المستخدم رقم غير الارقام 151 152 153 154 155 156 157 وتظهر رسالة masbox تخبرة بان هذا الرقم غير موجود في ارقام الشقق ارجو المساعدة واذا كانت هناك طريقة افضل لكتابة الكود السابق ارجو وضعها , فان اغلب هذا الكود تعلمت كتابتة من هنا من هذا المنتدي ونطمع في تعليم المزيد , وشكرا لكم

شكرا استاذ علي وبارك الله فيك

شكرا للاخ ورايح اترجم الرد السابق والله يعين , لان الشرح السابق يحتاج الي شرح بالعربي ,, الف شكرا للاخ ... من خلال البحث في هذا المنتدي , وجدت ملف مرفق للاستاذ الكبير علي السحيب ممتاز جدا وهو ما اريد مع تعديل بسيط جدا هل استطيع ان نجعل جدول واحد بدلا من جدولين ؟ الملف المرفق الذي صممة الاستاذ علي فية جدولين , الاولي للبيانات والثاني يعرض فية البيانات التي يتم تصفيتها بمعيار محدد , وسؤالي هل استطيع ان اجعل الجدولين جدول واحد يتم فية ادخال البيانات ومن خلال ادخال معيار التصفية في اعلي الجدول والنقر علي الزر يتم تصفية البيانات وعرضها في نفس الجدول ,,, ارجو المساعدة وشكرا لكم ,, رابط الملف المرفق لاستاذ علي السحيب http://www.officena.net/ib/index.php?showt...8063&hl=التصفية

السلام عليكم ورحمة الله وكل عام وانت بخير هل يمكن تصميم ماكرو , ليقوم بعمل وتشغيل التصفية التلقائية علي مجموعة من البيانات بحيث ان الماكرو يقوم بتصفية البيانات علي اساس كلمة او رقم يكتب في خلية واحدة , وللتوضيح : لدي معلومات مكتوب في النطاق التالي A5 : S500 وتحتمل الزيادة بسبب ادخال معلومات جديدة . واريد من الماكرو تشغيل خاصية التصفية التلقائية ثم الذهاب الي الخلية D3 ويقوم بالتصفية علي اساس المعلومة المدونة فيها وشكرا لكم ,,, الف شكرا

شكرا لك استاذ علي هو المطلوب واكثر الف شكر

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

للمحترمين في قسم الاكسيل Bond.zip

شكرا جزيل اخي التقني عبي مجهوداتك العظيمة ,, ولكن في المرفق السابق النموذج يجمع الخليتين كما هو مطلوب ولكن ناتج الجمع لا يظهر في الجدول بعد اغلق النموذج , بمعني ان مع ادخال رقمين في الخانة A و B يظهر المجموع في الخانة C في النموذج فقط , فكيف اجعلها تظهر ايضا في الجدول ؟ ولك كل الشكر والتقدير ,,,

شكرا لك استاذ علي وبارك الله فيك

السلام عليكم ورحمة الله ,, لدي عمود موجود فية ارقام ولا اعرف كم عدد الخلايا التي فيها الارقام , وهي غير مفروزة , واريد دالة تعطينة اخر رقم في هذا العمود , وللتوضيح : عندي العمود K فيه ارقام تبدا هذة الارقام من الخلاية K5 و تمتد حتي نهاية غير معروفة علي حسب طول هذة الارقام , اريد دالة اضعها في الخلية K4 تعطيني اخر رقم تم كتابتة في هذا العمود علما انة يمكن كتابة ارقام اضافية ( اي ادخال بيانات جديدة في نفس العمود ) وشكرا لكم ,,,

شكرا استاذ محمد طاهر نجح الكود شكرا لك

شكرا استاذ محمد سوف اجرب واوافيك بالنتيجة

السلام عليكم ورحمة الله وبركاتة ,,, نجحت بفضل هذا المنتدي من تصمييم كود يعمل علي تصغير اطار الوورد بمجرد فتح ملف معينة , وذلك من خلال اضافة كود عند الخاصية open ولكن لم انجح في اضافة كود يعمل علي تكبير الاطار قبل اغلق نفس الملف ,,, ارجو المساعدة وشكرا

الاخ السائل يقول الاكسس وهذا منتدي الاكسيل كل عل وانت بخير ,,

شكرا لك استاذ محمد طاهر ,, كنت اتوقع ان يتم استيراد عدد الصفحات من خلال تحديد نطاق الطابعة , تماما كما يظهر عندما اقوم بتحديد المجال ثم اختار تذليل اسفل الصفحة بهذا الشكل ( صفحة 1 من ؟ ) حيث في هذة الميزة يظهر عدد الصفحات بشكل صحيح , علي كل شكرا لك استاذ محمد , واذا توصل الاخوة الي حل بشكل افضل ارجو منهم المساعدة ,, وكل عام وانتم بخير ورمضان كريم

شكرا لك استاذ محمد هذا هو المطلوب , جزاك الله كل خير , وزاد من علمة وفضلة

شكرا لك استاذ محمد ولكن هناك مشكلة بسيطة جدا وهي , اذا كان عدد الصفحات صفحة او صفحتين يظهر الرقم صحيح واذا تجاوز عدد هذة الصفحات اكثر من صفحتين يكون الرقم دوما 2 مهما كان الرقم صغيرا او كبيرا ,,, ارجو منك المساعدة , وصدقني لو كنت اعرف اين يكمن التعديل او كيف لقمت بة , فجزاك الله كل خير ,

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

لقد توصلت الي الحل , من ملف ومنة اعداد الصفحة ثم نذليل الصفحة , للفائدة وشكرا للجميع ,

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

الحمدللة ان جوبي كان ذو فائدة واتمني لك التوفيق اخي العزيز ,

الاخ الغالي اليك الكود لماكروا يقوم بزيادة 1 علي اي خلية قمت بتشغيلة عليها , Sub ماكرو1() ActiveCell.FormulaR1C1 = ActiveCell.Value + 1 End Sub ويبقي عليك تصميم الزر لهذا الماكروا , وسوف تجد في المنتدي وقسم الارشيف العديد من الدروس وبصور حول تصميم الازرار في الاكسيل , طبعا ضع المؤشر او الفارة فوق الخلية المراد زيادة واحد لقيمتها وقم بتشغيل الماكرو سوف يزيد 1 علي القيمة السابقة ,.

السلام عليكم ورحمة الله بعد نجاح الخطوة الاولي وهي الذهاب الي اول خلية فارغة , وكل الشكر والعرفان والامتنان للاستاذ الكبير العبقري الاستاذ محمد حجازي , بقي الخطوة الثانية وهي تحديد ثلاثة خلايا علي يسار الخلية النشطة وذلك طبعا بواسطة الكود حتي اضع هذا الكود بجانب الكود السابق , ليصبح السطر الاول من الكود يبحث عن اول خلية فارغة والسطر الثاني يحدد ثلاثة خلايا بجانب تلك الخلية الفارغة ,,, فمثلا تم تحديد الخلية B3 المطلوب من هذا الكود هو تحديد الخلايا التالية : E3 و D3 و C3 وشكرا لكم ,,,,