Çözüldü ListBoxa Bazı Sütunları Atlayarak Veri Aktarma

[officer08]

Herkese merhabalar.

A, B, C, D, E, F, G, H, I, J, K sütunlarındaki verileri ListBox1'de görüntülemek istiyorum. Ancak hepsini değil. Yani kırmızı ile yazılı olan C, F, G, H sütunlarını görüntülemek istemiyorum.
Konu bütün sütunlar olunca aşağıdaki kodla halledebiliyorum ancak iş bazı sütunları atlamaya gelince olmuyor. Yardımcı olursanız çok memnun olurum.

Private Sub Userform_Initalize()
ListBox1.ColumnCount = 11
ListBox1.RowSource="AnaSayfa!A:AE"
End Sub

Sanırım kodun sondaki kırmızı kısmında bi değişiklik yapılması gerekiyor, bir türlü yapamadım.

 

[cems]

Private Sub Userform_Initialize()
ListBox1.ColumnCount = 8
ListBox1.RowSource = "AnaSayfa!A:B,D:E,I:J,K:K"
End Sub

bu kod kırmızı olanları görmeyecektir, deneyiniz

 

[officer08]

Cevabın için teşekkür ederim cems denedim, çalışıyor yani hata vermiyor fakat ListBox1 bomboş açılıyor.

 

[cems]

Dosyanızı eklerseniz nedenini daha rahat anlamak mumkun olabilir

 

[Muzaffer Ali]

Merhaba.
Sütun genişliğini "0" yaparak gizleyebilirsiniz.

Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 11
    ListBox1.RowSource = "AnaSayfa!A:K"
    ListBox1.ColumnWidths = "1cm; 1cm; 0cm; 1cm; 1cm; 0cm; 0cm; 0cm; 1cm; 1cm; 1cm"
End Sub

 

[kemal turan]

userformunuzun kod bölümüne kopyalayıp yapıştırın.

Private Sub UserForm_Initialize()

ListBox1.ColumnCount = 4
    ListBox1.ColumnWidths = "70;70;70;70"



hepsı
End Sub
Sub hepsi()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = Sheets("anasayfa")
s1.AutoFilterMode = False
Dim a As Long, i As Long
    ReDim Dizial(1 To 4, 1 To 1)
  
    ListBox1.Clear
    For i = 2 To s1.Cells(Rows.Count, 1).End(3).Row
        'If UCase(Replace(Replace(s1.Cells(i, "c"), "ı", "I"), "i", "İ")) Like _
        '"*" & UCase(Replace(Replace(TextBox3.Text, "ı", "I"), "i", "İ")) & "*" _
        Then
            a = a + 1
            ReDim Preserve Dizial(1 To 4, 1 To a)
          
            Dizial(1, a) = s1.Cells(i, "c")
            Dizial(2, a) = s1.Cells(i, "f")
            Dizial(3, a) = s1.Cells(i, "g")
            Dizial(4, a) = s1.Cells(i, "h")
          
      
        'End If
    Next i
        ListBox1.Column = Dizial
    Erase Dizial
    a = Empty
    i = Empty
    Application.ScreenUpdating = True

End Sub

 

[officer08]

Hepinize ayrı ayrı teşekkür ederim.Sanırım benim için en kolayı sütun genişliğini 0 yapmak olacak.Sağolun varolun.