Hatim Alhilali قام بنشر يونيو 15, 2022 مشاركة قام بنشر يونيو 15, 2022 السلام عليكم . من خلال الكود الذي سأدرج، تتم عملية البحث و عرض أول نتيجة ثم يتوقف عندها البحث بالرغم من النقر على زر البحث مرة أخرى. المطلوب : عند النقر من جديد على " زر البحث " يتجاوز النتيجة الاولى و ينتقل للبحث في السجلات المتبقية. ليعرض لنا النتيجة الثانية إن وجدت. و هكذا حتى اخر سجل. فإما نجد المطلوب أو يعرض لنا الرسالة المضمنة في الكود. الكود هو : Sub search_from_sheet() Application.ScreenUpdating = False Dim rng1 As Range Dim str_search As String str_search = UserForm1.TextBox4 ThisWorkbook.Sheets("Etat").Activate Set rng1 = Sheets("Etat").Range("D:D").Find(str_search, , xlValues, xlWhole) If Not rng1 Is Nothing Then rng1.Select Dim row_number As Long row_number = ActiveCell.Row UserForm1.TextBox1 = Sheets("Etat").Range("A" & row_number) UserForm1.TextBox2 = Sheets("Etat").Range("B" & row_number) UserForm1.TextBox3 = Sheets("Etat").Range("C" & row_number) UserForm1.TextBox4 = Sheets("Etat").Range("D" & row_number) Else MsgBox str_search & " N'existe pas Dans cette Base de Donées", vbInformation, "Résultat de Recherche" End If Application.ScreenUpdating = True End Sub رابط هذا التعليق شارك More sharing options...
مهند محسن قام بنشر يونيو 15, 2022 مشاركة قام بنشر يونيو 15, 2022 وعليكم السلام -فين الملف ؟!! لا يمكن المساعدة بدون الملف ... فلا يمكن العمل على التخمين !!! 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.