LİSTBOX TA YAN YANA OLMAYAN SÜTUNLARI GÖSTERME

[Hmzagmrk]

Merhabalar excel de kendimiz kullanmak için araştırma yaparak stok takip programı yapmaya çalışıyorum. Fakat listbox ta yan yana olmayan sütunları bir türlü gösteremedim. Yardımcı olursanız çok sevinirim.
örnek :
sayfa1 de A dan C ye kadar ve F den N ye kadar olan sütunları görmek istiyorum aradaki D ve E sütunlarını görmek istemiyorum nasıl yapabilirim.

 

[YUSUF44]

D ve E sütunlarını N sütunundan sonraya ya da A sütunundan önceye alıp, görmek istediğiniz verileri yan yana getirmeyi denediniz mi?

 

[Hmzagmrk]

D ve E sütunlarını N sütunundan sonraya ya da A sütunundan önceye alıp, görmek istediğiniz verileri yan yana getirmeyi denediniz mi?

Hocam o sayfaya bagli cok fazla kod var öyle yaparsam hepsini bastan yazmam gerekecek o yuzden en son çare onu yapmak zorunda kalacam

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.
Koddaki kırmızı renkli sayıyı veri başlangıç satırınızla değiştiriniz.

Private Sub UserForm_Initialize()
sutun = Array("A", "B", "C", "F", "G", "H", "I", "J", "K", "L", "M", "N")
ListBox1.ColumnCount = UBound(sutun) + 1
With Sayfa1
    s = .Cells(.Rows.Count, 1).End(3).Row
    ReDim dz(2 To s, 0 To UBound(sutun))
    For a = LBound(dz) To UBound(dz)
        For b = LBound(dz, 2) To UBound(dz, 2)
            dz(a, b) = .Cells(a, sutun(b))
        Next
    Next
End With
ListBox1.List = dz
End Sub

 

[Hmzagmrk]

Merhaba,
Aşağıdaki kodu deneyiniz.
Koddaki kırmızı renkli sayıyı veri başlangıç satırınızla değiştiriniz.

Private Sub UserForm_Initialize()
sutun = Array("A", "B", "C", "F", "G", "H", "I", "J", "K", "L", "M", "N")
ListBox1.ColumnCount = UBound(sutun) + 1
With Sayfa1
    s = .Cells(.Rows.Count, 1).End(3).Row
    ReDim dz(2 To s, 0 To UBound(sutun))
    For a = LBound(dz) To UBound(dz)
        For b = LBound(dz, 2) To UBound(dz, 2)
            dz(a, b) = .Cells(a, sutun(b))
        Next
    Next
End With
ListBox1.List = dz
End Sub

Yardımınız için teşekkür ederim hocam ama olmadı hata verdi.

 

[Korhan Ayhan]

Alternatif;

Aradaki sütunları ListBox üzerinde gizleyerek sonuca gidebilirsiniz.

Örnek;

Option Explicit

Private Sub UserForm_Initialize()
    Dim S1 As Worksheet, Son As Long
    
    Set S1 = Sheets("Sayfa1")
    
    With ListBox1
        Son = S1.Cells(S1.Rows.Count, 1).End(3).Row
        .ColumnCount = 14
        .RowSource = S1.Name & "!A1:N" & Son
        .ColumnWidths = "50;50;50;0;0;50;50;50;50;50;50;50;50;50"
    End With

    Set S1 = Nothing
End Sub

 

[Hmzagmrk]

Alternatif;

Aradaki sütunları ListBox üzerinde gizleyerek sonuca gidebilirsiniz.

Örnek;

Option Explicit

Private Sub UserForm_Initialize()
    Dim S1 As Worksheet, Son As Long
   
    Set S1 = Sheets("Sayfa1")
   
    With ListBox1
        Son = S1.Cells(S1.Rows.Count, 1).End(3).Row
        .ColumnCount = 14
        .RowSource = S1.Name & "!A1:N" & Son
        .ColumnWidths = "50;50;50;0;0;50;50;50;50;50;50;50;50;50"
    End With

    Set S1 = Nothing
End Sub

Çok tesekkür ederim hocam. Gizleme olayı işe yaradı. Ben sürekli kod yazarak gizlemeye odaklandığım için hücre genişliğini sıfırlamak gram aklıma gelmedi. Yardımlarınız için tekrardan teşekkür ederim.