Excel Sayfasındaki Yatay Girilmiş Verileri Listbox'a Listeleme

[ahmed_ummu]

Merhaba arkadaşlar, kolay gelsin.

Excel sayfasında yatay olarak girilen bilgileri Listbox'a listeleyebilir miyiz. Örnek resimdeki gibi.

 

[Ömer]

Merhaba,

Deneyiniz.

Private Sub UserForm_Initialize()

    Dim S1 As Worksheet, sut As Integer, i As Long, s As Integer
 
    Set S1 = Sheets("Sayfa1")
    sut = S1.Cells(2, Columns.Count).End(xlToLeft).Column
    
    With ListBox1
    
        .ColumnCount = 4
        .ColumnWidths = "100;100;80;50"
        .Clear
        
        For i = 1 To sut Step 4
            If S1.Cells(2, i) <> "" Then
                .AddItem
                .List(s, 0) = S1.Cells(2, i)
                .List(s, 1) = S1.Cells(2, i + 1)
                .List(s, 2) = Format(S1.Cells(2, i + 2), "dd.mm.yyyy")
                .List(s, 3) = S1.Cells(2, i + 3)
                s = s + 1
            End If
        Next i
        
    End With
      
End Sub

 

[ahmed_ummu]

Merhaba,

Deneyiniz.

Private Sub UserForm_Initialize()

    Dim S1 As Worksheet, sut As Integer, i As Long, s As Integer

    Set S1 = Sheets("Sayfa1")
    sut = S1.Cells(2, Columns.Count).End(xlToLeft).Column
   
    With ListBox1
   
        .ColumnCount = 4
        .ColumnWidths = "100;100;80;50"
        .Clear
       
        For i = 1 To sut Step 4
            If S1.Cells(2, i) <> "" Then
                .AddItem
                .List(s, 0) = S1.Cells(2, i)
                .List(s, 1) = S1.Cells(2, i + 1)
                .List(s, 2) = Format(S1.Cells(2, i + 2), "dd.mm.yyyy")
                .List(s, 3) = S1.Cells(2, i + 3)
                s = s + 1
            End If
        Next i
       
    End With
     
End Sub

Teşekkürler Ömer bey.