تعديل على فورم بحث و فرز

[yasse.w.2010]

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

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

الملف كان عندي بيبحث في عدد 5 صفوف فقط من اول B3 

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

شكرا جزيلا لحضراتكم

ولو امكن وضع زر للطباعة من الفروم 

فورم1 بحث.xlsm

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

الكود الصحيح

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

[yasse.w.2010]

الف شكر لحضرتك