تعديل الكود ليصبح البحث من خلال ثلاث خانات

[salimhebboul]

تعديل الكود ليصبح البحث من خلال ثلاث خانات 

 ان امكن طباعة النتائج بصيغة PDF  وعن طريق الطابعة

Private Sub TextBox1_Change()
        Application.ScreenUpdating = False
        Range("A2:A1884").Interior.ColorIndex = 2
    ListBox1.Clear
        If TextBox1 <> "" Then
        For ligne = 2 To 1884
            If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
                Cells(ligne, 1).Interior.ColorIndex = 43
                ListBox1.AddItem Cells(ligne, 1)
            End If
        Next
    End If
    End Sub

اوفيسنا.xlsm

[نزار سليمان عيد]

جرب المرفق

البحث في ثلاثة فورمات.xlsm