حمادة عمر

السلام عليكم الاخ الكريم / رشراش علي بارك الله فيك مرور طيب وكريم من شخص كريم تقبل خالص تحياتي

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

السلام عليكم الاخ الكريم / 838383mohamed بارك الله فيك هل جربت الكود علي المرفق المرفق مني ام قمت بنسخ الكود وتنفيذه علي ملف آخر تقبل خالص تحياتي

السلام عليكم الاستاذ القدير / احمدزمان بارك الله فيك يزيدني شرفا ان الكود قد اعجبك تقبل خالص تحياتي

تقبل خالص تحياتي

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

دائما متميز اخي الحبيب / حسين العصلوجي تقبل خالص تحياتي

السلام عليكم الاخ الكريم / omar shideed بارك الله فيك وبع اذن اخي الحبيب / حمادة باشا ... جزاه الله خيرا وبعد حله لاكثر من رااائع واثراءا للموضوع اقدم لك كود آخر لحذف الصفوف الفارغة وعذرا اي الحبيب / حمادة فلقد استخدمت ملفك كمثال مع وجود الكود الخاص باخي / حمادة Sub DeleteRowOnCell() On Error Resume Next Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete ActiveSheet.UsedRange End Sub تقبلوا خالص تحياتي Book1-Delete Empty Row11.rar

الآن اكسيل2003 23 صوت اكسيل2007 18 صوت اكسيل 2010 14 صوت اكسيل 2013 9 صوت

السلام عليكم الاخ الكريم / al7awy بارك الله فيك مرور طيب وكريم

الآن اكسيل2003 23 صوت اكسيل 2007 18 صوت اكسيل 2010 13 صوت اكسيل 2013 9 صوت

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

الاستاذ عطاء الله سيتم احتساب صوتك لاوفيس 2007 علي رغبتك الاولي

الف مليون حمد الله علي السلامة :dance1: استاذي واخي وصديقي العزيز / رجب جاويش الحمد لله انك عدت لنا مرة اخري والله افتقدناك جدا جدا وكثيرا لك مني ارق واجمل التحيات

السلام عليكم الاخ الكريم / احمدشهاب بارك الله فيك وكما اخبرك اخي الحبيب / جلال محمد ... جزاه الله خيرا يجب عليك في كل سؤال ارفاق ملف به مثال لما هو مطلوب حيث ان عرض وفهم السؤال يعتبر نصف الحل واقدم لك هذه المحاولة علي حسب فهمي لطلبك حيث يتم ذلك باستخدام التسيق الشرطي تقبلوا خالص تحياتي تنسيق شرطي.rar

السلام عليكم الاخ الكريم / 838383mohamed بارك الله فيك بعد اذن استاذي القدير / احمد زمان ... جزاه الله خيرا جرب الكود التالي لتنفيذ المطلوب ( ان شاء الله ) ** ولكن يجب ملاحظة ان يكون تنسيق التاريخ في كل اعمدة التواريخ في كل الشيتات بتنسيق واحد للجميع Sub sama() Dim LastR, LastR1, LastR2, LastR3 As Long Dim StDate, xx As Date Application.ScreenUpdating = False '**************************************************** LastR = Sheet1.Cells(Rows.Count, 2).End(xlUp).Select xx = ActiveCell.Value [c1].Value = xx SText = Sheet1.Range("c1") '==== شيت توصيلات LastR1 = Sheet2.Cells(Rows.Count, 2).End(xlUp).Row Sheet2.Range("b3:q" & LastR1).AutoFilter Field:=2, Criteria1:=SText '==== شيت خطوط LastR2 = Sheet4.Cells(Rows.Count, 2).End(xlUp).Row Sheet4.Range("b3:q" & LastR2).AutoFilter Field:=2, Criteria1:=SText '==== شيت خطوط مياه LastR3 = Sheet10.Cells(Rows.Count, 2).End(xlUp).Row Sheet10.Range("b3:q" & LastR3).AutoFilter Field:=2, Criteria1:=SText '**************************************************** Application.ScreenUpdating = True End Sub تقبلوا خالص تحياتي اوفسنا.rar

ياريت لو تجرب الكود علي اوفيس 2003 وتخبرني بالنتائج

جاري التحميل ..... ولنا عودة

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

اخي الحبيب تفضل المطلوب ... وان غير كذلك او مزيد من التوضيح اخبرني هنا ومعك دائما باذن الله Private Sub ComboBox1_Change() Dim v As Integer, Lr 'مسح بيانات الليست ListBox1.Clear ' الحصول علي آخر صف به بيانات في العمود A Lr = ورقه1.Cells(ورقه1.Rows.Count, "A").End(xlUp).Row ' حلقة تكراررية تبدأ من الصف الاول وحتي آخر صف به بيانات For i = 1 To Lr ' نستخدم قاعدة IF حيث نقول فيها انه في حالة ما اذا كان قيمة ' الخلية الموجودة في العمود رقم 8 في كل الصفوف الخاصة بالمتغير i ' اي من اول صف للآخر صف بهذا الجزء Cells(i, 1).Offset(0, 8) ' تساوي قيمة الكومبوبكس اجعل تنفيذ الاوامر التالية If ورقه1.Cells(i, 1).Offset(0, 8) = ComboBox1.Text Then ' يتم وضع الاجراءات التالية اذا تحقق الشرط للقاعدة السابقة ListBox1.AddItem ورقه1.Cells(i, 1).Value ListBox1.List(v, 1) = ورقه1.Cells(i, 1).Offset(0, 1).Value ListBox1.List(v, 2) = ورقه1.Cells(i, 1).Offset(0, 2).Value ListBox1.List(v, 3) = ورقه1.Cells(i, 1).Offset(0, 3).Value ListBox1.List(v, 4) = ورقه1.Cells(i, 1).Offset(0, 4).Value ListBox1.List(v, 5) = ورقه1.Cells(i, 1).Offset(0, 5).Value ListBox1.List(v, 6) = ورقه1.Cells(i, 1).Offset(0, 6).Value ListBox1.List(v, 7) = ورقه1.Cells(i, 1).Offset(0, 7).Value ListBox1.List(v, 8) = ورقه1.Cells(i, 1).Offset(0, 8).Value ListBox1.List(v, 9) = ورقه1.Cells(i, 1).Offset(0, 9).Value v = v + 1 End If Next End Sub

السلام عليكم الاخ الكريم / galal elgammal بارك الله فيك ما هو اصدار الاوفيس لديك ؟؟ تقبل خالص تحياتي

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

الاخ الفاضل / kozmos بارك الله فيك ومعك دائما باذن الله في اي طلب تريده مادام علي حسب علمي اخوك في الله / حمادة عمر - ابو سما