استعلام بالفورم مع فرز ابجدي او رقمي من اكبر الى اصغر

[علي بن علي]

الاساتذة الكرام تحية طيبه

مرفق في الملف توضيح للمطلوب التعديل عليه

الفورم يعمل بشكل جيد . ولكن عند فرز وتصفية البيانات . لا يعمل

حيث وان كل اسم له رقمه ومسلسله الفريد الخاص والمطلوب عند عمل الفرز والتصفية . ان يعمل الفورم مع التغيير للرقم المسلسل ولجميع البيانات . بعد الفرز والتصفيه

طلبي يتمثل هو عند الفرز او التصفيه ان يعمل الفورم المرفق بالملف بحسب كل رقم واسم فقط

اي لا يتأثر الفورم عند البحث على التكست بوكس

وكل مشترك يأخذ بياناته بحسب مسلسله وصفه

اتمنى يكون شرحي واضح وشكرا

ااااااااااا.xlsb

[محمد هشام.]

تفضل جرب

Private Sub TextBox26_Change()
 Dim CelF As Range, LigF As Long
 Set ws = ActiveWorkbook.Sheets("Data")
  
  With ws
    Set lst = ws.ListObjects("الجدول1")
    If lst.ShowAutoFilter Then
        lst.ShowAutoFilter = False
     End If
    
    Set CelF = ws.Range("Find").Find(What:=Me.TextBox26, LookIn:=xlValues, LookAt:=xlWhole, _
      SearchDirection:=xlNext, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False)
    If Not CelF Is Nothing Then
      
      LigF = CelF.Row
      Label1.Caption = ws.Range("B" & LigF)
      Label2.Caption = ws.Range("C" & LigF)
      Label3.Caption = ws.Range("E" & LigF)
      Label4.Caption = ws.Range("D" & LigF)
            Else
For S = 1 To 3
      Me("Label" & S) = Empty
    Next S

    End If
    
  End With
Label2 = Format(Label2, "dd/mm/yyyy")
Label2.BackColor = &H8000000F
End Sub

 

TEST V1.xlsb

[علي بن علي]

هو المطلوب يا استاذي الفاضل  شكرا على المساعده