بحث من خلال textbox1 تظهر نتائج البحث فى listbox1 وعند التنقل بالاسهم فى النتائج داخل listbox1 ترحل البيانات الى التكست بوكس والكومبوبوكس

[moodyfy2]

السلام عليكم 

تحياتى لجميع اعضاء الجروب المحترمين

* textbox1 الموجود داخل user form8 يقوم بالبحث عن رقم الحساب فى البيانات الموجوده فى شيت  home1 ويقوم بترحيل البيانات الى التكست بوكس والكومبو بوكس الموجودة فى  userform 8

* اريد اضافة listbox1 يظهر به نتائج البحث فى textbox1 ( الست بوكس عمود واحد يعرض  نتائج البحث فى رقم الحساب كما هو موضح بالصورة 

الموجود فى اللست بوكس  او التنقل بالاسهم بين نتائج البحث  . يقوم بترحيل البيانات الى جميع اللست بوكس والكومبو بوكس الموجودة فى userform 8 

* زر اضافى يقوم بترحيل البيانات داخل جميع التكست بوكس وال كومبو بوكس الى شيت home 1 

 ) وعند الضغط على نتائج البحث

 

‏‏‏‏برنامج المعطل ver 20 2024 مثال.xlsm

[moodyfy2]

الأساتذة الكرام 

هل يوجد حل لمشكلتي وجزاكم الله خيرا 

[عبدالله بشير عبدالله]

السلام عليكم  

جرب الملف واخبرنى بالملاحظات لانى عملته  بسرعة قبل الذهاب الى العمل

____برنامج المعطل ver 20 2024 مثال.xlsm

[moodyfy2]

الاخ الكريم الاستاذ عبدالله بشير عبدالله  شكرا جزيلا لاهتمامك

لكن لاتظهر نتائج البحث داخل  textbox1 داخل lestbox1 

اريد ان تظهر نتائج البحث  فى تكست بوكس 1 عن اي رقم فى اللست بوكس .  كما فى الفيديو التالى

4.7z

[عبدالله بشير عبدالله]

السلام عليكم /  وصلت الفكرة ان شاء الله  جرب الملف واخبرنى باي تعديل

اظهار نتائج البحث في اللستبوكس.xlsm

[عبدالله بشير عبدالله]

تعديل للملف 

اظهار نتائج البحث في اللستبوكس.xlsm

تم تعديل الأربعاء at 18:24 بواسطه عبدالله بشير عبدالله

[إبراهيم ابوليله]

السلام عليكم

استاذنا الفاضل عبدالله

مشكورا على الكود الجميل

وفققك الله

تقبل تحياتى

[عبدالله بشير عبدالله]

وعليكم السلام ورحمة الله وبركاته

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

على كل حال اسعدنى تعليقك ولك وافر التقدير والاحترام

تم تعديل الأربعاء at 19:34 بواسطه عبدالله بشير عبدالله

[moodyfy2]

استاذى الجليل عبدالله بشير عبدالله شكرا جزيلا على التفاعل والاهتمام وجزاك الله خير

لكن لى ملاحظات اخجل من طلبها 

1- اريد عند مسح محتويات TEXTBOX1 يتم تفريغ التكستبوكس والكومبوبوكس

2-عن اختيار نتائج الللست بوكس تظهر فى التكستبوكس و الكومبوبوكس بياناات لا تخص رقم الحساب المحدد فى اللست بوكس

3- اريد عن كتابة او عند عرض محتويات TextBox17 و TextBox18 تظهر فى تنسيق YYYY/MM/DD

4- اريد عن كتابة او عند عرض محتويات TextBox4تظهر فى تنسيق YYYY/MM

وجزاك الله واسف على الاطالة 

[عبدالله بشير عبدالله]

السلام عليكم 

تم تعديل النقطتين  الاولى والثانية  والثانية كان سببها  اكثر من رقم حساب مكرر 

النقطتان 3 4  ان شاء بعد العودة من العمل 

جرب المرفق ولاحرج في اي  ملاحظة 

تقبل تحياتي

اظهار نتائج البحث في اللستبوكس1.xlsm

تم تعديل الخميس at 06:16 بواسطه عبدالله بشير عبدالله

[عبدالله بشير عبدالله]

بالنسبة تكست 18 و19  اذهب الى

لوحة التحكم - الساعة والمنطقة - المنطقة - ثم كما بالصورة

 

الملف

اظهار نتائج البحث في اللستبوكس1.xlsm

[moodyfy2]

استاذ عبدالله بشير عبدالله 

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

* تمام كدة لكن في ملاحظة واحدة 

1- هى ان عتد اختيار اي نتائج البحث داخل اللست بوكس ولم يسجل لها تاريخ رفع وتاريخ تركيب ( TextBox18 - TextBox17) تكتب تاريخ 30/12/1899 بالرغم ان الخلايا فارغة داخل الشيت ولا يوجد بها تاريخ مسجل 

كما هو موضح بالصورة 

ولك جزيل الشكر

 

[محمد هشام.]

وعليكم السلام ورحمة الله تعالى وبركاته 

لقد قمت بتجربة الملف المرفق من الاخ الفاضل @عبدالله بشير عبدالله  يؤدي المطلوب مع عدم  ظهور اي تواريخ غير موجودة كما في الصورة لديك 

 على العموم تم اعادة تصحيح الاكواد الخاصة بك واختصارها بطريقة مختلفة  مع ظافة بعض اللمسات البسيطة  لتتناسب مع طلبك 

 

 

 

برنامج المعطل 2024.xlsm

تم تعديل منذ 3 ساعات بواسطه محمد هشام.

[moodyfy2]

الاستاذ محمد هشام ارق تحياتى واحترامى لشخصكم وايضا للاستاذ عبدالله بشير عبدالله 

مجهود عظيم من حضراتكم 

اكيد عندى انا  مشكلة لانى بضيف الاكواد الى برنامج اكبر مساحته كبيرة يحتوى الى الكثير من user forms والصفحات لا اتمكن من رفعة

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

[محمد هشام.]

بما انك تستخدم ملف اخر يجب  أولا  الضغط على زر "Debug" في الرسالة لتحديد السطر البرمجي الذي يسبب الخطأ لنحاول اصلاحه 

رغم انه صراحة يصعب التعامل مع الاخطاء بهده الطريقة دون معاينة الملف الاصلي 

أما بخصوص الملف المرفق كما ترى  الكود يقوم باظافة البيانات  بدون ادنى مشكلة مع التحقق من وجود رقم الحساب مسبقا  

 

 

 

الملف بعد اظافة  تسطير البيانات الجديدة  وتنسيق ورقة العمل 

اليك الكود التالي لتلوين الصف النشط لان عملية حدف الصفوف  من الممكن ان تأثر على التنسيق الشرطي الموجود مسبقا 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim f As Worksheet,  Lr As Long
    Set f = ThisWorkbook.Sheets("home1")

    Lr = f.Cells(f.Rows.Count, "B").End(xlUp).Row
    Application.EnableEvents = False

    f.Range("B2:AX" & Lr).Interior.ColorIndex = xlNone

    If Not Intersect(Target, f.Range("B2:AX" & Lr)) Is Nothing And Target.Rows.Count = 1 Then
        f.Range("B" & Target.Row & ":AX" & Target.Row).Interior.Color = RGB(0, 255, 0)
    End If
    Application.EnableEvents = True
End Sub

 

 

 

برنامج المعطل 2024.xlsm

تم تعديل منذ 1 ساعه بواسطه محمد هشام.