B3:D10 + F3:F10 aralığını listbox1 de listeleme

[Orion1]

Mrb.
B310 ve F3:F10 aralığını listbox1'de listelemek istiyorum.
Veya başka bir deyişle Listbox1'de E Sütunun listelenmesini istemiyorum.
Teşekkür ederim.
İyi çalışmalar.

 

[selections]

tt = WorksheetFunction.CountA(Worksheets("sayfa1").Range("e1:e65000"))
ListBox1.RowSource = "sayfa1!e1:e" & tt

 

[Orion1]

tt = WorksheetFunction.CountA(Worksheets("sayfa1").Range("e1:e65000"))
ListBox1.RowSource = "sayfa1!e1:e" & tt

-----------------------------------------------------------------------------
Mrb.
Yukarıdaki kodlar E sütununu listeliyor.
Oysa ben E sütununun listelenmesini istemiyordum.
Teşekkür ederim.
Kolay gelsin.

 

[Haluk]

[vb:1:386c03464a]Private Sub UserForm_Initialize()
Dim MyArr
ListBox1.ColumnCount = 5
MyArr = Range("B3:F10")
ListBox1.List = MyArr
ListBox1.ColumnWidths = "50;50;50;0;50"
End Sub
[/vb:1:386c03464a]

 

[Orion1]

Mrb.
Sn Raider.
Gönderdiğiniz yanıt için teşekkür ederim.
Sorun çözüldü.
Fakat A:B sütunu ve Y:Z sütunalırnı (Bu 4 sütunu listelemek )listelemek isteseydim.Yine Listelenmek istenmeyen sütunlara 0 değerinimi atacaktık.
Teşekkür edrim.
Kolay gelsin.

 

[Haluk]

Fakat A:B sütunu ve Y:Z sütunalırnı (Bu 4 sütunu listelemek )listelemek isteseydim.Yine Listelenmek istenmeyen sütunlara 0 değerinimi atacaktık.

Bu kod mantigi ile oyle yapmak gerekirdi. Baska mantikla da yapilabilir tabii...

 

[Haluk]

Bitisik olmayan alanlardaki hucre degerlerini cok sutunlu bir ListBox'a aktarmak icin, dizi tipinde degisken de kullanabiliriz.

Ornegin asagidaki kod, aktif calisma sayfasinda A3:C12 ve H3:H12 araligindaki verileri 4 sutunlu ListBox'a aktarir.

[vb:1:90f18478b5]Private Sub UserForm_Initialize()
Dim MyArr(1 To 4, 1 To 10)
Dim i As Long
ListBox1.ColumnCount = 4
For i = 1 To 10
MyArr(1, i) = Range("A" & i + 2)
MyArr(2, i) = Range("B" & i + 2)
MyArr(3, i) = Range("C" & i + 2)
MyArr(4, i) = Range("H" & i + 2)
Next
ListBox1.Column = MyArr
End Sub
[/vb:1:90f18478b5]

 

[Orion1]

Mrb.
Sn:Raider
Verdiğiniz kodlar için teşekkür ederim.
İlk verdiğiniz cevap benim işimi görmüştü zaten.
Sırf merak ettiğim için Tekrar sordum.
İyi çalışmalar.

 

[ALPEN]

Dao kullanarak bir alternatif.
adi, soyadi, no, sehir
sütünlarından
adi, soyadi, sehir
sütunlarını listbox a yerleştirir.

Not: Dao 3.6 ya referans verilmistir. Verilerin alındığı aralığa "veri" adı verilmistir.

[vb:1:a9730d1cbd]Private Sub doldur()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim satir As Long
Dim yol As String
yol = ActiveWorkbook.Path
Set db = OpenDatabase(yol & "\Book1.xls", False, False, "Excel 8.0")
Set rs = db.OpenRecordset("SELECT adi, soyadi, sehir FROM `veri`")
With rs
.MoveLast
satir = .RecordCount
.MoveFirst
End With
ListBox1.ColumnCount = rs.Fields.Count
ListBox1.Column = rs.GetRows(satir)
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub[/vb:1:a9730d1cbd]

 

[Haluk]

Guzel bir alternatif, tesekkurler ALPEN.