Listbox'a Sayfadaki Yatay Bilgileri Aldırma

[ahmed_ummu]

Merhaba arkadaşlar.

Excel sayfasındaki yatay bilgileri Listbox'a aldırabilir miyiz. Benzer bir örnek bulamadım.

Aktif satırın
N-O-P sütunlarını Listbox'un ilk satırana (Listbox'a alınacak veriler N sütunundan başlıyor.
Q-R-S sütunları listbox'un2. satırana. Taki son dolu sütuna kadar listbox'a alınacak

aktif satırın N sütunundan başlayarak her 3 sütunu bir satıra alacak son dolu sütuna kadar

Yardımcı olursanız sevinirim.

 

[Muzaffer Ali]

Merhaba.

Private Sub UserForm_Initialize()
    Dim Bak As Integer
    ListBox1.ColumnCount = 3
    For Bak = 14 To Cells(1, Columns.Count).End(xlToLeft).Column Step 3
        ListBox1.AddItem Cells(1, Bak)
        ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(1, Bak + 1)
        ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(1, Bak + 2)
    Next
End Sub

 

[ahmed_ummu]

Merhaba.

Private Sub UserForm_Initialize()
    Dim Bak As Integer
    ListBox1.ColumnCount = 3
    For Bak = 14 To Cells(1, Columns.Count).End(xlToLeft).Column Step 3
        ListBox1.AddItem Cells(1, Bak)
        ListBox1.List(ListBox1.ListCount - 1, 1) = Cells(1, Bak + 1)
        ListBox1.List(ListBox1.ListCount - 1, 2) = Cells(1, Bak + 2)
    Next
End Sub

.

Teşekkürler Muzaffer Ali bey .

Listbox'a verileri alırken İmleç aktif satırın A sütununda. Listbox'a almadı. Örnek dosyayı ekledim.

Önce 4 adet combobox dan veriler seçilecek. Seöildikten sonra imleç hangi kişi seçili ise o kişinin A sütunundaki hücreye konumlanıyor.
o işlemden sonra listbox'a alacak.

 

[Muzaffer Ali]

Dosya ekte.

 

[ahmed_ummu]

Dosya ekte.

Çok teşekkürler Muzaffer Ali bey.

 

[Muzaffer Ali]

Rica ederim. Kolay gelsin.