Listbox'a farklı sayfalardan veri almak

[acolkesen1]

Merhaba arkadaşlar,
Forumda yukarıdaki başlıkla aradığımı bulamadım. Kısaca listbox'a [sayfa1!a1:a5] ve [sayfa2!a1:a5] aralığını alt alta almak istiyorum. Listbox1.rowsource="[sayfa1!a1:a5] & [sayfa2!a1:a5] olarak denedim ama olmadı. Nasıl bir kod yazılacağı konusunda da bir fikrim yok.:roll: ilgilenen arkadaşlara teşekkür ederim..

 

[Orion1]

Dosyanız ektedir.

Private Sub UserForm_Initialize()
Dim i As Long, sat As Long
ListBox1.ColumnCount = 7
sat = Sheets("Sayfa1").Cells(Rows.Count, "A").End(xlUp).Row
ListBox1.List = Sheets("Sayfa1").Range("A2:G" & sat).Value
sat = Sheets("Sayfa2").Cells(Rows.Count, "A").End(xlUp).Row
For i = 1 To sat
    ListBox1.AddItem
    For k = 1 To 7
        ListBox1.List(ListBox1.ListCount - 1, k - 1) = _
        Sheets("Sayfa2").Cells(i, k).Value
    Next k
Next
End Sub

 

[acolkesen1]

Merhaba Sayın Orion1,
İlginize teşekkür ederim. Sorduğum kadarını öğreneyim gerisini kendim yaparım diye düşünmüştüm ama beceremedim doğrusu..Yapmak istediğim örn;
with listbox1
.columncount=5
.rowsource="sayfa1!a3:e"&[sayfa1!a65536].end(3).row" ve "sayfa2!c2:g"&[sayfa2!c65536].end(3).row"
end with
gibi birşeydi.
Yardımcı olabilir misiniz?

 

[Orion1]

Merhaba Sayın Orion1,
İlginize teşekkür ederim. Sorduğum kadarını öğreneyim gerisini kendim yaparım diye düşünmüştüm ama beceremedim doğrusu..Yapmak istediğim örn;
with listbox1
.columncount=5
.rowsource="sayfa1!a3:e"&[sayfa1!a65536].end(3).row" ve "sayfa2!c2:g"&[sayfa2!c65536].end(3).row"
end with
gibi birşeydi.
Yardımcı olabilir misiniz?

Gerekli düzenlemeyi yaptım.
2 nolu mesajdan indirebilirsiniz.

 

[acolkesen1]

Tekrar merhaba Orion1,
İlginize ve yardımlarınıza çok teşekkür ederim. Esen kalın..