اكسل vbaالبحث بين تاريخين من خلال اليوزرفورم userform واظهار النتائج فى listbox

[@LoayAlghazali]

فعلا استاذ بارك الله فيك ونفع فيك اسناذ بمعنى الكلمه

[@mohammedelqassoumy230]

السلام عليكم مشاء الله على كل مجهودك

[@Emad_ghazi]

جزاك الله خيراً وبارك الله فيك اخي الكريم

[@MIDO.1980]

مرحبا بدي اعرف شغلي انو لم عم يكون عندي اكتر من تاريخ متعدد لم يظهر لي اية عملية وكمان اذا كان رقم الواحد بشتغل معي على 11 او 12 يعني كل شي في رقم واحد ياريت تحلنا المشكلة

[@اللهمصلِّعلىمحمد-ر9ك]

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

[@MahmoudHassan-pu7el]

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

[@MohAboAbdo]

بارك الله فيك أستاذي الفاضل وجزاك الله كل خير

[@mohammedelsayed3852]

زادك الله علما و نفع بك

[@hhhh1120]

جميل جدا

[@jaafaralabdaly3207]

بارك الله بك استادي المبدع

[@mohammedelqassoumy230]

السلام عليكم ورحمة الله وبركاته
أستاذي الفاضل لو سمحت في طلب
نفس العمل بس في اضافة جمع العمود "B" بين التاريخين
يعني
أنا أبحث بين تاريخين يجمع لي القيم التي توجد بالعمود الثاني او الثالث

[@mohammedelqassoumy230]

اتمنى منك الرد وشكرا

[@husseinali4446]

بارك الله فيك استاذ عماد

[@dr-hamodyahia8768]

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

[@gouadjliaboulefaa2829]

شكرا جزيلا

[@Emad_ghazi]

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

[@heshamallam5597]

شكرا صديقى الجديد

[@khalednegm4827]

م. عماد شكرا الشرح الرائع بس كنت عايز اعرف بعد البحث عايز اطبع الناتج كتقرير ويحسب إجمالي الناتج فقط وشكرا

[@a.l.s.a.k.r9051]

ممتاز

[@adilmajid06]

مبدع

[@عالمالأوفيس]

ممكن بعد اذنك نعمل هذا النموذج في الاكسيس أرجو الافادة ... وشكراً لجهودك

[@ismaildz3062]

شكرا استاذ عماد ارجوك استاذ كيف نبحث بين قيمتين واضهارها على listbox ارجوا منك الرد

[@awadhbinamro948]

شكرا استاذ عماد...انا اريد اضيف عمود رابع في جدول البيانات بحيث ان البيانات تظهر في الليست فورم..كيف اغير في الكود

[@omedzaxo3548]

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

[@Emad_ghazi]

تم عمل درس جديد اليوم خاص بطلب حضرتك
ياريت تتفرجي عليه

[@waleednemer6010]

في امكانيه تعم على أكثر من شيت
في عندي عدت شيتات نفس الشي

[@doctoreid3969]

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

[@mohamedahmedta7]

هل ممكن نعمل نفس الفكره بس يكون البحث بيت تاريخين في صفحات اكثر

[@AhmedSeif0]

هل الليست بوكس تقبل أكثر من 9 أعمدة ؟ وما هو الحد الاقصى لعدد الأعمدة لليست بوكس ؟

[@SherifElfaky7]

بارك الله فيك كنت محتاج معادلات الجمع والضرب والطرح والقسمة فى VPA ازاى اكتبها

[@mohamedragab1960]

الاستاذ / عماد
تحياتى على هذا الشرح الجميل ولكن لى سؤال بسيط
ماذا تعنى ان listcount-1
لسيادتكم جزيل الشكر

[@firas3023]

اذا حولنا البحث من تواريخ الى بحث بأسم شخص او رقم او اي شئ ............. شيكون تغير في الكود كيف يكو ذلك

[@awadhbinamro948]

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

[@arifalqatanany]

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

[@benhennisidahmed1318]

ممكن إضافة زر لترحيل ما تم فرزه الى ملف مستقل بذاته

[@mohamedaladaash1967]

طيب لو عايز اضيف زر طباعه لمحتويات اللست بوكس اعملها ازاى

[@ابوخباب-ف2د]

هل يمكن طباعة نتائج البحث

[@khaledsaleh8604]

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

[@canaanbrixton6712]

sorry to be off topic but does any of you know a method to get back into an Instagram account??
I somehow forgot my login password. I would appreciate any help you can offer me

[@leightonmarcellus9897]

@Canaan Brixton instablaster =)

[@canaanbrixton6712]

@Leighton Marcellus i really appreciate your reply. I found the site thru google and I'm trying it out now.
Takes quite some time so I will reply here later when my account password hopefully is recovered.

[@canaanbrixton6712]

@Leighton Marcellus It did the trick and I now got access to my account again. I am so happy!
Thanks so much you saved my ass!

[@leightonmarcellus9897]

@Canaan Brixton glad I could help :)

[@Group.C2024]

بارك الله بيك استاذ، لكن استاذ نفذت الكود ماينفذ ميشتغل ماهو السبب؟

[@iqraapprenezlarabeautremen1459]

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

[@Emad_ghazi]

راجع اخر ٣ دروس فى القناة لسة منشورين هذة الايام هتلاقى الكلام دة

[@abdallahelbably4121]

ممكن تليفون حضرتك يا بشمهندس

[@alkiyumi8949]

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

[@Emad_ghazi]

حاضر

[@user-Salahalhag]

أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود
Private sub commandButton1_Click()
If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then
Unload Me
Userform2.Show
ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then
X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول")
TextBox1.Value = ""
TextBox2.Value = "" Label3.caption=label3.caption-1
ElseIf TextBox1. Value = "صلاح" Then
X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول")
TextBox1.Value = "" Label3.caption=label3.caption-1
'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج
Else
X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول")
TextBox2.Value = "" Label3.caption=label3.caption-1
End If
If Label3.caption = 0 Then
application.Quit
End If
End sub

[@user-Salahalhag]

@@روائعالاسلام-ن6ر يا أستاذي أنا مقدر ظروفك أتمنى أن يعينك الله في عملك يا قائد علماء الأمه

[@احمدالمكي-ف7ث]

للاسف الملف عليه كلمة سر

[@haleemdcc600]

معلش مش بيجيب اكثر من 9 اعمدة

[@jeka-8912]

الكود ده مش شغال يا استاذي ع فكره

[@mohamedfraag3104]

انا عملت نفس الملف ولكن يوجد عدد 12 عمود ولا يظهر غير 10 فقط

[@localagent9501]

عندي نفس المشكله . انت لقيت حل ???

[@mohammedelqassoumy230]

السلام عليكم روح الى prospérités liste box تم columncount ورجعه 14 اولا 12

[@mohammedelqassoumy230]

حسب الأعمدة لي نت عوزها تظهر معاك في ليست بوكس بتاعك

[@e3lamstan]

الرابط محذوف

[@samerdhiaa8495]

اين الطباعة ؟؟؟؟

[@medkari]

شكرا جزيلا

[@user-Salahalhag]

أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود
Private sub commandButton1_Click()
If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then
Unload Me
Userform2.Show
ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then
X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول")
TextBox1.Value = ""
TextBox2.Value = "" Label3.caption=label3.caption-1
ElseIf TextBox1. Value = "صلاح" Then
X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول")
TextBox1.Value = "" Label3.caption=label3.caption-1
'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج
Else
X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول")
TextBox2.Value = "" Label3.caption=label3.caption-1
End If
If Label3.caption = 0 Then
application.Quit
End If
End sub

[@user-Salahalhag]

أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود
Private sub commandButton1_Click()
If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then
Unload Me
Userform2.Show
ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then
X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول")
TextBox1.Value = ""
TextBox2.Value = "" Label3.caption=label3.caption-1
ElseIf TextBox1. Value = "صلاح" Then
X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول")
TextBox1.Value = "" Label3.caption=label3.caption-1
'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج
Else
X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول")
TextBox2.Value = "" Label3.caption=label3.caption-1
End If
If Label3.caption = 0 Then
application.Quit
End If
End sub

[@user-Salahalhag]

أرجو أن تقرأ أستاذ عماد أنا عملت كود تسجيل أسم المستخدم وكلمة المرور بس أريد منك أن تزيد على الكود أكثر من مستخدم وتعمل صلاحيات لكل مستخدم ولك جزيل الشكروهاهو الكود
Private sub commandButton1_Click()
If TextBox1.Value = "صلاح" And TextBox2.Value = "123" Then
Unload Me
Userform2.Show
ElseIf TextBox1. Value = "صلاح" And TextBox2.Value = "123" Then
X = Msgbox("أسم المستخدم وكلمة المرور خطأ",16,"تسجيل دخول")
TextBox1.Value = ""
TextBox2.Value = "" Label3.caption=label3.caption-1
ElseIf TextBox1. Value = "صلاح" Then
X = Msgbox( "أسم المستخدم خطأ",16,"تسجيل دخول")
TextBox1.Value = "" Label3.caption=label3.caption-1
'حيث هذا ال label3 في ال Userform1 مكتوب فيه 3 و label2 مكتوب فيه عدد المحاولات يعني لو الشرط متحقق يعطيلي رسالة الخطأ وينقص رقم من التايبل وإذا أستمرت المحاولات الخاطئة حتى صفر يقوم الكود بالخروج من البرنامج
Else
X = Msgbox(" كلمة المرور خطأ",16,"تسجيل دخول")
TextBox2.Value = "" Label3.caption=label3.caption-1
End If
If Label3.caption = 0 Then
application.Quit
End If
End sub