yasse.w.2010 قام بنشر ديسمبر 28, 2020 مشاركة قام بنشر ديسمبر 28, 2020 الف شكر استاذنا الكريم و تم وضع الكود ال حضرتك كتبته و اشتغل وممكن بعد اذن حضرتك اضافة ليست بوكس للبحث باسم الفندق مرفق الملف وارجو تذويدي بكيفية اضافة معيار بحث جديد Yasser (2).xlsm رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 28, 2020 مشاركة قام بنشر ديسمبر 28, 2020 ممكن العمل على نفس التكست بوكس على ان تختار ( قتدق أو عميل) الكود 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 3 رابط هذا التعليق شارك More sharing options...
yasse.w.2010 قام بنشر ديسمبر 28, 2020 الكاتب مشاركة قام بنشر ديسمبر 28, 2020 الف الف شكر لحضرتك يا استاذنا استاذ سليم رابط هذا التعليق شارك More sharing options...
yasse.w.2010 قام بنشر ديسمبر 28, 2020 الكاتب مشاركة قام بنشر ديسمبر 28, 2020 شاكر لحضرتك يا استاذ سليم واخر طلب لقد وضعت الكود وعدلت فيه علي قدر معرفتي ووضعت مربع بحث جديد بجوار المربع بتاع حضرتك الاصفر و المطلوب عند اتمام عملية البحث بالمربع الاصفر يتم تصفية هذا البحث بالمربع الاخر عند الكتابه فيه يتم البحث في كامل التصفية شاكر جدا تعب حضرتك .... وشاكر لموقعنا الجميل اوفسينا Yasser_choise.xlsm رابط هذا التعليق شارك More sharing options...
خيماوي كووول قام بنشر ديسمبر 28, 2020 مشاركة قام بنشر ديسمبر 28, 2020 السلام عليكم ورحمة الله وبركاته اضافة .. لا اكثر .. لا تحتاج الى فورم للبحث من خلاله .. ممكن البحث عن طريق .. مسلسل القيد او كود الملف او بين تاريخين او اسم العميل او اسم الفندق .. اتمنى ان تكون اضافة مقبولة .. بعد اذن اخوي العزيز سليم .. SEARCH.xlsm 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 28, 2020 أفضل إجابة مشاركة قام بنشر ديسمبر 28, 2020 تعديل رائع و ماذا تريد أكثر من ذلك ؟؟؟؟ لا افهم!.... يجب تغير اتجاه اليوزر (من اليمين لليسار) لتخرج البيانات مرتبة حسب اللغة العربية الصورة الملف مرفق Yasser_R_to_L.xlsm 1 رابط هذا التعليق شارك More sharing options...
yasse.w.2010 قام بنشر ديسمبر 28, 2020 الكاتب مشاركة قام بنشر ديسمبر 28, 2020 مش رضيه تتعدل كل ما اضغط الاختيار تبقي كما هيه ولا تريد اختيار true اما بالنسبه لعمل مربع بحث جديد ذلك لكثرة البيانات في الخلايا مع كتابة القيود فسوف يسهل كثريا والف شكر لحضراتكم وعلى مجهوداتكم وولاهي ما عرفت اعدل او اضيف اكواد سوى عن طريقكم واني اتعلم منكم الكثير شكرا للاساتذه الكرام شكرا موقع اوفسينا الغالي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان