خير الناس انفعهم للناس 🌹

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

رجاء لا تتاخر علينا فى الحلقات القادمة.

ماشاء الله استاز منذر وفقك الله

والله انت رائع شكراً لك على هذه التعليمات الرائعة انا ذاهب لتطبيقها في عملي الآن ستختصر علي عمل ساعة كاملة

جزاك الله خيراً أخى المنذر

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

الله يجزيك كل ما هو خير اخي المنذر سفان

جزاك الله خيرا وبارك في وقتك وعلمك ونفع بك أتمنى الاستمرار حتى تصلوا لمرحلة الـ OOP، وليس فقط الـ Events handlers والـ User Forms أرجو منك تحديث قائمة الفيديوهات حيث أن هذه الحلقة غير مضافة في قائمة حلقات الكورس: برمجة الإكسل - الدرس 06 - التطبيق العملي - عملية تفقيط الأرقام Spell Number كما أرجو إزالة فيديو "ملحم بركات - تعا ننسى (النسخة المعدلة والافضل)" من السلسلة

درس رائع حفزني للدرس القادم وراح ابقى انتظر على نار

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

كلمة مبدع قليله جدا في حقك .. جزاك الله خير الجزاء

لك مني الف تحية و شكر استاذي المنذر استفدت من دروسك كثيرا واصل وفقك الله.

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

الله يرضى عليك و جزاك خير شرح أروع مايمكن ... انا من العراق تحياتي لك أخي الكريم

شكرا جزيلا

فكرة جميلة و شرح ممتاز.. 🌟 🌟 🌟

شيق وممتع ... كرا لك استاذ .

الله عليك ربنا يباركلك

درس رائع وجميل

جزاك الله خيرا. شرح اكثر من رائع

thank you very much my brother al-munthir saffan

حفظك المولى

أخي وين جنت الله شاهد كنت مستني على نار

استاذ هل ستوفر لنا دوره في الـ outlook ؟

أخي انته ازي تشتغل الفيديوهات مثل هذا الصراحة فيديو رائع يعني اقصد شلون تمنتجة على اي برنامج

مرحبا بالرائع

شكرا جزيلا للشرح الاكثر من رائع ... عندي طلب لو في PDF للشرح ممكن ترفعه ؟

جزاك الله خيرا دروس في غاية الروعة هل بإمكانك أن تزودنا بمراجع ورقية أو إلكترونية في هذا المجال سواء أكان باللغة الإنكليزية أو العربية 🌹🌹 ؟

السلام عليكم ورحمة الله وبركاتة ما هو كود ادارج عدد من الصفوف ؟

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

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

الأخ منذر ماذا لو أنشأنا شيتات و كانت موجودة بالفعل ؟ كيف نشيك عليها قبل الإنشاء ؟ و كيف نعرف عدد الشيتات في الوورك بوك ؟

ما حل المشكلة بيقول لي خطا في السطر FOR EACH RG IN SELCTION

جربتها مع if ماضبطت معي 😢😢😢

*************

لو سمحت انا عامل ماكرو VBA الفكرة اول حاجة بعمل للشيت فلتر تانى حاجة بحدد بيانات معينة واعمل لها حذف للصف كلها من فوق لتحت الفكرة ان الداتا متغيرة عايز اعمل حاجة تحددلى الى بعد الصف واحد وتعمل حذف ActiveSheet.Range("$A$1:$AS$5836").AutoFilter Field:=6, Criteria1:="=" دا شرط الفلتر الفكرة انة هيسيب الصف واحد واثين وهياخد من الصف 3 لحد الاخر ويحذفة فى يوم تانى البيانات هتتغير وفى الحالة دى ممكن يكون الحذف من صف 4 مثلا اعمل اى Rows("3:3").Select Range(Selection, Selection.End(xlDown)).Select Selection.Delete Shift:=xlUp ActiveSheet.ShowAllData

هاد أصعب درس

ما سبب توقف حلقة فور عند عدم تحقق أحد أول ثلاث شروط في هذا الكود ؟ Private Sub CommandButton2_Click() Dim sheetf As Worksheet Set sheetf = ThisWorkbook.Sheets("work") Dim b, f As Integer b = 6 f = 6 For i = 2 To 500 Step 2 If sheetf.Cells(i, 15).Value = 1 Then If sheetf.Cells(i, 17).Value = 1 Then If sheetf.Cells(i, 18).Value = 1 Then If sheetf.Cells(b, 2).Value = 0 Then sheetf.Cells(b, 2).Value = sheetf.Cells(i, 16).Value sheetf.Cells(f, 6).Value = 1 Else If sheetf.Cells(i, 16).Value = sheetf.Cells(b, 2).Value Then sheetf.Cells(f, 6).Value = sheetf.Cells(f, 6).Value + 1 Else f = f + 1 b = b + 1 sheetf.Cells(b, 2).Value = sheetf.Cells(i, 16).Value sheetf.Cells(f, 6).Value = 1 End If End If Else End If Else End If Else End If Next i End Sub الرجاء الرد وشكراً.