بحث لست بوكس بشرطين ؟

[alma_fandi]

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

باللست بوكس

ممكن كود  بحث بشرطين

الشرط الاول  من خلال  كومبوكس

والشرط الثاني من خلال تكست بوكس

 

Untitled.bmp

[Ali Mohamed Ali]

وعليكم السلام اخى الكريم لو ممكن رفع الملف مرة اخرى

فهناك مشكلة فى تحميله -جزاك الله كل خير

[alma_fandi]

اشكرك  😊 

نسخة  البرنامج مع  صورة للمطلوب

alma1(Recovered).rar

 

[Ali Mohamed Ali]

تفضل جرب هذا

 

 

alma1-1(Recovered).xlsm

[alma_fandi]

اشكرك  😊

لاحظ الصورة

عند البحث عن اسم مثلا  سامر بتاريخ  معين  تم عرض جميع  الاسماء بالتاريخ  المحدد بغض النضر عن اسم سامر  

 

 

 

تم تعديل مايو 22, 2018 بواسطه alma_fandi

[am3h80]

عزيزي @alma_fandi

الكود يعمل بشكل طبيعي عند كتابة اسم المؤسسة في التكست بوكس تظهر المؤسسة المراد البحث عنها

واقترح بان يتم تغيير التكست بوكس إلي كومبو بوكس وتحميل أسماء المؤسسات به حتي يمكن للمستخدم تحديد المؤسسة المرادة دون أي أخطاء إملائية في كتابة اسم المؤسسة

وهذا هو كود تحميل الكومبو بوكس الخاص بالفورمة

    'The Excel workbook and worksheets that contain the data, as well as the range placed on that data
   ' Dim wbBook As Workbook
    Dim WS As Worksheet
    Dim rnData As Range

    'Variant to contain the data to be placed in the combo box.
    Dim vaData As Variant
    'Initialize the Excel objects
    Set WS = ThisWorkbook.Worksheets("sheet1")
    'Set the range equal to the data, and then (temporarily) copy the unique values of that data to the L column.
    With WS
        Set rnData = .Range(.Range("b3"), .Range("b200").End(xlUp))
        rnData.AdvancedFilter Action:=xlFilterCopy, _
                          CopyToRange:=.Range("z1"), _
                          Unique:=True
                'store the unique values in vaData
       vaData = .Range(.Range("z2"), .Range("z200").End(xlUp)).Value
      
    
        'clean up the contents of the temporary data storage
       .Range(.Range("z1"), .Range("z200").End(xlUp)).ClearContents
 
    End With
    'display the unique values in vaData in the combo box already in existence on the worksheet.
    With ComboBox3
        '.Clear
        .List = vaData
        .ListIndex = -1
    End With
   
 

كما اقترح عمل كومبو بوكس أخر يتم إضافة فيه تواريخ أسم المؤسسة المختارة لسهولة الاستخدام

[alma_fandi]

13 hours ago, am3h80 said:

عزيزي @alma_fandi

الكود يعمل بشكل طبيعي عند كتابة اسم المؤسسة في التكست بوكس تظهر المؤسسة المراد البحث عنها

صديقي  البحث تمام شغال  مو مختلفين  لكن المطلوب يبحث عن المؤسسات  التي   ضمن تاريخ  محدد

يعني  انا  بدي يبحث  عن المؤسسات  التي  تحتوي  اسم  الما 1 بتاريخ 18-5- 2018

 

البرنامج  ببحث بكل شي  منفصل  يعني لو خلينا الاسم الما1 وبتاريخ    18-5-2018

بيعطي كل الاسماء  بالاعتماد على التاريخ  فقط

 

13 hours ago, am3h80 said:

واقترح بان يتم تغيير التكست بوكس إلي كومبو بوكس وتحميل أسماء المؤسسات به حتي يمكن للمستخدم تحديد المؤسسة المرادة دون أي أخطاء إملائية في كتابة اسم المؤسسة

المؤسسات  اكثر  من  300 الاختيار   بكون ممل



وهذا هو كود تحميل الكومبو بوكس الخاص بالفورمة

    'The Excel workbook and worksheets that contain the data, as well as the range placed on that data
   ' Dim wbBook As Workbook
    Dim WS As Worksheet
    Dim rnData As Range

    'Variant to contain the data to be placed in the combo box.
    Dim vaData As Variant
    'Initialize the Excel objects
    Set WS = ThisWorkbook.Worksheets("sheet1")
    'Set the range equal to the data, and then (temporarily) copy the unique values of that data to the L column.
    With WS
        Set rnData = .Range(.Range("b3"), .Range("b200").End(xlUp))
        rnData.AdvancedFilter Action:=xlFilterCopy, _
                          CopyToRange:=.Range("z1"), _
                          Unique:=True
                'store the unique values in vaData
       vaData = .Range(.Range("z2"), .Range("z200").End(xlUp)).Value
      
    
        'clean up the contents of the temporary data storage
       .Range(.Range("z1"), .Range("z200").End(xlUp)).ClearContents
 
    End With
    'display the unique values in vaData in the combo box already in existence on the worksheet.
    With ComboBox3
        '.Clear
        .List = vaData
        .ListIndex = -1
    End With
   
 

كما اقترح عمل كومبو بوكس أخر يتم إضافة فيه تواريخ أسم المؤسسة المختارة لسهولة الاستخدام

احترامي  سيد  am3h80

[alma_fandi]

.

 

[am3h80]

عزيزي @alma_fandi

تحت امرك بما أستطيع...

تحياتي واحترامي للمجهود المبذول في تطوير أعمالك

[alma_fandi]

 

اشكرك سيد

 

am3h80

  ارسلت لك ع ايميل الياهو 

am3h80 @ ياهو  

  شوف اخر تعديل عملته

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

انا بستعمل  teamviwer

alma1(Recovered).xlsm