اضافة ليست بوكس للبحث باسم الفندق

[yasse.w.2010]

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

وممكن بعد اذن حضرتك اضافة ليست بوكس للبحث باسم الفندق

مرفق الملف

وارجو تذويدي بكيفية اضافة معيار بحث جديد 

Yasser (2).xlsm

[سليم حاصبيا]

ممكن العمل على نفس التكست بوكس على ان تختار ( قتدق أو عميل)

الكود

Private Sub Mot_Change()
Dim i As Long, s As Long, LF%
Dim Rg As Range
Dim Source As Worksheet
Dim Rg_to_find As Range
Me.ListBox1.Clear
If Mot = vbNullString Then Exit Sub
Set Source = Sheets("القيود اليوميه 0")
 LF = Source.Cells(Rows.Count, "F").End(3).Row
 If LF < 9 Then Exit Sub
 
 Select Case True
  Case Me.Hot.Value
     Set Rg_to_find = Source.Range("G8:G" & LF)
  Case Me.Clirnt.Value
     Set Rg_to_find = Source.Range("F8:F" & LF)
  Case Else
    Exit Sub
 End Select
 
 With Me.ListBox1
         .AddItem
   
    For s = 0 To .ColumnCount - 1

          .List(.ListCount - 1, s) = Source.Cells(7, s + 1)
          Next
     End With
 For i = 8 To LF
  If UCase(Rg_to_find.Cells(i - 7)) Like ("*" & UCase(Mot) & "*") Then
       With Me.ListBox1
         .AddItem
          For s = 0 To .ColumnCount - 1
          .List(.ListCount - 1, s) = Source.Cells(i, s + 1)
          Next
       End With
  End If
 Next

End Sub

الملف مرفق

Yasser_choise.xlsm

[yasse.w.2010]

الف الف شكر لحضرتك يا استاذنا استاذ سليم 

[yasse.w.2010]

شاكر لحضرتك يا استاذ سليم 

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

و المطلوب عند اتمام عملية البحث بالمربع الاصفر يتم تصفية هذا البحث بالمربع الاخر عند الكتابه فيه يتم البحث في كامل التصفية

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

Yasser_choise.xlsm

[خيماوي كووول]

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

اضافة .. لا اكثر ..

لا تحتاج الى فورم للبحث من خلاله ..

ممكن البحث عن طريق ..  مسلسل القيد او كود الملف او بين تاريخين او اسم العميل او اسم الفندق ..

اتمنى ان تكون اضافة مقبولة .. بعد اذن اخوي العزيز سليم ..

SEARCH.xlsm

[سليم حاصبيا]

تعديل رائع و ماذا تريد أكثر من ذلك ؟؟؟؟ لا افهم!....

يجب تغير اتجاه اليوزر (من اليمين لليسار) لتخرج البيانات مرتبة حسب اللغة العربية

الصورة

الملف مرفق

Yasser_R_to_L.xlsm

[yasse.w.2010]

مش رضيه تتعدل 

كل ما اضغط الاختيار تبقي كما هيه ولا تريد اختيار true

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

والف شكر لحضراتكم وعلى مجهوداتكم 

وولاهي ما عرفت اعدل او اضيف اكواد سوى عن طريقكم واني اتعلم منكم الكثير

شكرا للاساتذه الكرام 

شكرا موقع اوفسينا الغالي