ListBox'ta "RowSource" hatası

[Zeki Gürsoy]

Merhaba,
Hazırlamaya çalıştığım dosyada "RowSource" aralığını ait olduğu dosyadan alması için gerekli komut satırı hakkında yardımınızı bekliyorum.

 

[Levent Menteşoğlu]

Merhaba,
Hazırlamaya çalıştığım dosyada "RowSource" aralığını ait olduğu dosyadan alması için gerekli komut satırı hakkında yardımınızı bekliyorum.

Bence bunun en iyi yolu listboxun bulunduğu dosyaya listboxa alınacak verileri kopyalatıp sonrada listboxa almaktır.

 

[Zeki Gürsoy]

Aslında buna hazırladığım eklentide ihtiyaç duyuyorum. "List" komutuyla kullandığımda da sütun başlığının görünümünde problem çıkıyor.

Sözkonusu eklenti olduğu için, ekranda hangi sayfa aktif ise oradaki bilgileri alıyor.

 

[Levent Menteşoğlu]

Nasıl bir sorun çıktığını belirtirmisiniz.

 

[Zeki Gürsoy]

Listeye tek sütun alıyorum. Sütun başlığı olarak belirlediğim hücredeki yazı görünmüyor.

 

[Levent Menteşoğlu]

Listeye tek sütun alıyorum. Sütun başlığı olarak belirlediğim hücredeki yazı görünmüyor.

listboxun columnhead özelliğini true yaptınızmı?

 

[Zeki Gürsoy]

Evet onu da yaptım.

 

[Levent Menteşoğlu]

listboxa veri aldığınız kodları yuazarmısınız.

 

[Zeki Gürsoy]

Private Sub CommandButton1_Click()

Call Module1.TEMIZLE

Set bul = Application.FileSearch

With bul
.LookIn = UserForm1.TextBox1
.SearchSubFolders = True
.Filename = UserForm1.TextBox2

If .Execute() > 0 Then
MsgBox .FoundFiles.Count & " dosya bulundu."
For i = 1 To .FoundFiles.Count
a = i + 1
ThisWorkbook.Sheets(1).Cells(a, 1) = .FoundFiles(i)
Next i
Else
MsgBox "Belirtilen dizinde, belirtilen dosya(lar) bulunamadı."
End If

End With

son = ThisWorkbook.Sheets(1).[a65536].End(3).Row
alan = ThisWorkbook.Sheets(1).Range("a2:a" & son)
Me.ListBox1.List = alan
Me.Height = 300


End Sub

 

[Levent Menteşoğlu]

alan = ThisWorkbook.Sheets(1).Range("a2:a" & son)
Me.ListBox1.List = alan

Yukarıdaki satırları aşağıdaki gibi değiştirin.

alan = ThisWorkbook.Sheets(1).Name & "!a2:a" & son
Me.ListBox1.RowSource = alan

 

[Zeki Gürsoy]

Maalesef bu kez de listbox'a hiç bir şey almadı Levent bey.

 

[Levent Menteşoğlu]

Birde sadece aşağıdaki gibi deneyin. Sütun başlığını ancak rowsource ile veri yüklerseniz listboxta görebilirsiniz.

Me.ListBox1.RowSource = "a2:a" & son

 

[Zeki Gürsoy]

Saatlerdir bunu arıyordum. Eklenti de olsa işe yaradı.
"ThisWorkbook.Activate"
Eklentiyi de birazdan sunacağım.

İlginiz ve zahmetiniz için teşekkürler...