كود بحث لا يعمل

[حمدي]

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

في البداية أتقدم بخالص الشكر لكل القائمين على الموقع و كل الأعضاء المحترمين اللذين يقدمون يد العون لكل محتاج

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

لدي كود بحث لا يعمل معي بالشكل الصحيح 

أرجو منكم المساعدة و جزاكم الله خيرا

كود بجث.xlsx

[حسونة حسين]

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

الملف الخاص بك ليس به مشاكل

[حمدي]

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

لكن عند اختيار شهر 10 يدخل معاهكم شهر 11 و العكس

كود بجث.xlsm

[lionheart]

Private Sub ComboBox1_Change()
    Const iCols As Integer = 11
    Dim a(1 To 1000, 1 To iCols), b(), rng As Range, c As Range, i As Long, ii As Long
    With Sheets(1)
        Set rng = .Range("B3:M" & .Cells(Rows.Count, "B").End(xlUp).Row)
        rng.AutoFilter Field:=12, Criteria1:=ComboBox1.Value
        On Error Resume Next
            Set rng = .Range("B3").CurrentRegion.Columns(1).SpecialCells(xlCellTypeVisible)
        On Error GoTo 0
    End With
    If Not rng Is Nothing Then
        For Each c In rng
            i = i + 1
            For ii = LBound(a, 2) To UBound(a, 2)
                a(i, ii) = c.Offset(, ii - 1).Value
            Next ii
        Next c
        b = Application.Transpose(a)
        i = Application.Min(UBound(a, 1), i)
        ReDim Preserve b(1 To iCols, 1 To i)
        b = Application.Transpose(b)
        ListBox1.List = b
    End If
End Sub

 

[حمدي]

جزاك الله خيرا استاذي الفاضل و بارك الله فيك و ألف شكر كود جميل و فعال جعل الله ردك في ميزان حسناتك