Üstatlara ve üyelere selamlar.
Daha önce yine bu formdan faydalanarak alıp kullandığım proje sütun sayısını artırınca bana yetmez oldu.
Bu bağlamda ;

sorun1-
ekte bulunan projede 18 sütunluk veri olmasına rağmen
süzme ve raporlama sırasında sadece 10 sütun görünüyor.
muhtemel kodlarda değişiklik yapınca ya hata veriyor ya da değişiklik olmuyor.
sorun2-
combo1 deki süzme işi harf olunca çalışıyor ama rakam yazarsam süzmüyor.

yardımlarınız için şimdiden teşekkür ederim.

Sn:fkilic76
Hata kullandığınız kodlardan kaynaklanıyor Listbox çoğuzaman bu hataları verir.Bu hatalardan kurtulmak için RowSource özelliğini kullanman gerekiyor.Müşteride olduğum için fazla detaylı ilgilenemedim ama aşağıdaki düzenlemeler sana yol gösterecektir.

Private Sub UserForm_Initialize()

Dim sh As Worksheet

Dim i%

Set sh = Sheets("Sayfa2")

Sheets("Sayfa2").Select

Baslangic = True

    With ComboBox1

        .AddItem "Tümü"

         For i = 2 To sh.Cells(65536, 1).End(xlUp).Row

        If Application.WorksheetFunction.CountIf(sh.Range("A2:A" & i), sh.Cells(i, 1)) = 1 Then

        .AddItem sh.Cells(i, 1)

        End If

        Next i

        .ListIndex = 0

    End With

            With ComboBox2

                .AddItem "Tümü"

                For i = 2 To sh.Cells(65536, 2).End(xlUp).Row

                If Application.WorksheetFunction.CountIf(sh.Range("B2:B" & i), sh.Cells(i, 2)) = 1 Then

                .AddItem sh.Cells(i, 2)

                End If

                Next i

                .ListIndex = 0

            End With





ListBox1.Clear

With ListBox1

     .ColumnCount = 18 '*********************************burayı değiştirdim olmadı

     .RowSource = "A2:r65536"

     .ColumnWidths = "50;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50"

                     

     .ColumnHeads = False

     

End With



Set sh = Nothing

End Sub

Private Sub CommandButton2_Click()

Dim sh As Worksheet, shR As Worksheet

Set sh = Sheets("sayfa2")

Set shR = Sheets("RAPOR")

shR.Range("A2:R65000").ClearContents

Dim i As Long, sat As Long

Application.ScreenUpdating = False

sat = 2

Sheets("Rapor").Range("A6:CZ65536").ClearContents

For i = 2 To Cells(65536, "A").End(xlUp).Row

        Sheets("Rapor").Range("A" & sat & ":CZ" & sat).Value = _

        Range("A" & i & ":CZ" & i).Value

        sat = sat + 1

Next

Application.ScreenUpdating = True

shR.Select

Set sh = Nothing

Set shR = Nothing

End Sub