yasse.w.2010 قام بنشر نوفمبر 20, 2020 مشاركة قام بنشر نوفمبر 20, 2020 السلام عليكم و رحمة الله و بركاته الاساتذه الكرام مرفق ملف ارجو التعديل عليه لعملية البحث الملف كان عندي بيبحث في عدد 5 صفوف فقط من اول B3 عدلت على الفروم لكي يتم البحث من اول الصف 9 الخليه A ارجو التعديل على المعادلة ليتناسب مع حقول البحث الجديده شكرا جزيلا لحضراتكم ولو امكن وضع زر للطباعة من الفروم فورم1 بحث.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر نوفمبر 20, 2020 أفضل إجابة مشاركة قام بنشر نوفمبر 20, 2020 الكود الصحيح Private Sub Yh_TextFind_Change() Dim MySh As Worksheet Dim LastRow As Integer Dim M As String Dim A As Range, F% Set MySh = Sheets("ورقة1") Yh_ListFind.Clear If Yh_TextFind.Text = "" Then Exit Sub M = Yh_TextFind.Text LastRow = MySh.Cells(Rows.Count, 1).End(3).Row Set A = MySh.Range("F3:F" & LastRow).Find(M, LOOKAT:=1) If A Is Nothing Then Exit Sub F = A.Row Do With Yh_ListFind .AddItem For K = 0 To 9 .List(.ListCount - 1, K) = _ MySh.Cells(A.Row, K + 1) Next K End With Set A = MySh.Range("F3:F" & LastRow).FindNext(A) Loop While A.Row <> F End Sub YESS_w.xlsm 2 رابط هذا التعليق شارك More sharing options...
yasse.w.2010 قام بنشر نوفمبر 20, 2020 الكاتب مشاركة قام بنشر نوفمبر 20, 2020 الف شكر لحضرتك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان