Listbox Hk.

[hazan_25]

Arkadaşlar Merhaba,

Konu başlığı hakkında forumda araştırma yaptım ama tam olarak benim Listbox'la yapmak istediğim şekliye bir bilgiye ulaşamadım.
Yapmak istediğim tam olarak şu şekilde:

1-Listbox'ta veri sayfamdaki sadece A, B ve F sütunlarını görmek istiyorum,

2-A sütunundaki bilgiler "onay" veya 1,2,3.. gibi rakamlar. Ben A, B ve F sütunlarını, A sütunun "onay" olmayan rakam bilgilerine göre süzerek görmek istiyorum.

Umarım sorumu anlatabilmişimdir!

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

[vb:1:1f25c91e7c]Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 3
For a = 1 To Cells(65536, 1).End(xlUp).Row
If Cells(a, 1) <> "onay" Then
c = c + 1
ListBox1.AddItem
ListBox1.List(c - 1, 0) = Cells(a, 1).Value
ListBox1.List(c - 1, 1) = Cells(a, 2).Value
ListBox1.List(c - 1, 2) = Cells(a, 6).Value
End If
Next
End Sub
[/vb:1:1f25c91e7c]

 

[hazan_25]

Sayın leventm,

Run-time eror '70':

Permission denied.

Hatası verdi!

 

[Levent Menteşoğlu]

listboxın properties penceresindeki veya kod içindeki rowsource özelliği ile veri alınan satırı iptal edin.

 

[hazan_25]

Sayın leventm,

Sorunum çözüldü ama şunu merak ediyorum;

Ben özellikle Listbox'un rowsource özelliğine veriyi almak istediğim sayfa bilgisini girmiştim! Yazdığınız kodla benim veriyi almak istediğim excel sayfasını nasıl gösterdiniz?

 

[Levent Menteşoğlu]

Listboxa iki şekilde veri alınır, biri rowsource ile diğeride additem ile, ben kodda additemi kullandım. Kodda bulunan Cells(a, 1).Value ifadeleri veri alınacak hücreleri tanımlar, bu ifadeyi sheets("sayfa").cells(a,1) şeklinde sayfa adıda belirterek kullanabilirsiniz. Fakat veri, userformun üzerinde açıldığı sayfadan alınacaksa sayfa ismini belirtmeye gerek yoktur.

 

[hazan_25]

Teşekkürler Sayın leventm!
:yazici: