Listbox RowSource

[ozdogan]

Arkadaşlar Mrb. Listboxsumun RowSource sini bir butona bağlı kod ile yapıyordum. Yalnız programımda bir değişiklik yaptım ve aşağıda bulunan kodumdaki data adlı sayfayı kaldırmak durumunda kaldım. Sayfa adım Artık Txtbox3.text adlı text ime eşit. Yani bu text içerisindeki isim aynı zamanda benim sayfa adım oluyor.

ESKİ KOD:
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 5
ListBox1.RowSource = "DATA!A9:E62"

Buna bağlı olarak yeni kod nasıl olmalıdır? Ben değişik şekillerde denedim olmadı.
MESELA;
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 5
ListBox1.RowSource = "(TextBox3.Text)!A9:E62"
....olmadı.....

VEYA;
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 5
ListBox1.RowSource = TextBox3.Text!A9:E62
....olmadı.....

VEYA;
ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 5
ListBox1.RowSource = "TextBox3.Text!A9:E62"
....olmadı.....

Acaba Sayfa adımı Textbox3.text e nasıl eşitliğcez.

Yardımlarınız için teşekkür ederim.

 

[Tarkan VURAL]

With ListBox1
    .ColumnHeads = True
    .ColumnCount = 5
    .RowSource = TextBox3.Text & "!A9:E62"
End With

Saygılar;
Tarkan VURAL

 

[ozdogan]

Teşekkürler sayın Tarkan, Kolay gelsin

 

[bybilgin]

merhabalar

ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 5
ListBox1.RowSource = sheets( txtbox3.text ).range("A9:E62")
olabilirim mi arklar

 

[ozdogan]

Tarkan Hocam yine bir problem oldu bu Rov Source de.

Textbox3.text = Textbox5.text & textbox6.text ' e eşit.
Buna bağlı olarak. Textboxt3.textim sayfa adlarım ve Listboxsta Sayfa Adı yerine textbox3.text yer alıyordu.

İlk başta Textbox3.text im tek başına ve girişi ben yapıyordum. Ama şimdi girişi textbox5 ve textbox6 ya yapıyorum. textbox3 te bunların birleşmesidnen oluşuyor. Her nedense Listbox Row Source

.RowSource = TextBox3.text & "!A9:E62"

tam burda hata veriyor.

 

[maviayna]

Bir de şunu deneyelim.

Dim SayfaAdi as string
SayfaAdi=textbox3.text
With ListBox1 
    .ColumnHeads = True 
    .ColumnCount = 5 
    .RowSource = SayfaAdi & "!A9:E62" 
End With

 

[Tarkan VURAL]

Yapmak istediğinizin mantığını tam anlayamadım ama istediğiniz gibi çalışan kodları EK'te gönderiyorum. İyi çalışmalar.

 

[ozdogan]

Sayın Tarkan, Benim Çalışmamın Aynısı.
Bu sizde çalışıyorsa ilginç. Çünkü şekliyle koduyla bendede aynı ama ben şu hatayı alıyorum.

Run time Error = "380"
could not set the Row Source Property. invalid property value.

Bende bu hatayı verip

.RowSource = TextBox3.text & "!A9:E62"

burası işaretlenip hatanın burda olduğunu gösteriyor. Valla Anlamadım ne iştir.

 

[Mahmut Bayram]

Konuyu anlamadan yazmışım.
aşağıdaki mesajda
Tarkan VURAL, doğru söylemiş.

 

[Tarkan VURAL]

Listbox hücreden değer alsın

.RowSource = TextBox3.text & "!A9:E62"

Bu kodla listbox verileri nereden alacağını bulmaya çalışıyor.

"Hey, Listbox, git textbox3' de yazan sayfa adından a9 ve e62 hücre aralığındaki verileri listele bakalım"

Sizin textbox3' deki değeriniz sayfa isimlerinizden biriyle aynı değilse yazdığınız hata kodunu almanız gayet doğal.

Özet olarak bu kodla textbox3.te belirttiğiniz sayfa adı yoksa listbox 'a veri alamazsınız.
İyi çalışmalar.

Saygılar;
Tarkan VURAL

 

[ozdogan]

Mrb Sayın Tarkan, İşte Problemde burda.
Sayfa isimlerine özellikle dikkat ediyorum. Sayfa isimleri aynı. Harfiyyen aynı. Hatta Tek harfla bile deneme yaptığım halde Yine hata yine hata....

 

[Tarkan VURAL]

Dosyanızı örnekleme yaparak yollar mısınız ? İncelemek istiyorum. İyi çalışmalar.

 

[ozdogan]

en üstte bulunan tarih ve spariş no, ikisinin birleşimi listbox altına gizlediğim bir textbox3.text te birleşiyor. Ve burası sayfa adımla aynı oluyor. Güncelle butonuna basıldığında listboxsata verilerin sıralanması gerekiyor.

 

[maviayna]

Sayın ozdogan, sayfa ismini içeren textbox'ın içeriği, örneğin textbox3.text = "kelime1 kelime2" gibi kelimeler arasında boşluk içeriyorsa

RowSource = TextBox3.text & "!A9:E62

kodu hata verebilir. Belki aşağıdaki kod işe yarayabilir.

With sheets(textbox3.text) 
    listbox1.ColumnHeads = True 
    listbox1.ColumnCount = 5 
    listbox1.RowSource = "A9:E62" 
End With

 

[ozdogan]

Mrb. Bu şekildede olmuyor. Hatta sayfa adında kelime arasında boşluk burakmadanda denedim yine hata veriyor.

 

[Korhan Ayhan]

Selamlar,

Ekteki örneği incelermisiniz.

Not: Sayfa isimlerinizin arasına boşluk vermeyiniz aksi halde hata oluşacaktır.

 

[ozdogan]

Merhaba, Sayın Cost_Control,
Verdiğiniz örnek işime yaradı. problem çözüldü.
Tüm arkadaşlara teşekkür ediyrum. Kolay gelsin.

 

[Tarkan VURAL]

Sayın ozdogan, sayfa ismini içeren textbox'ın içeriği, örneğin textbox3.text = "kelime1 kelime2" gibi kelimeler arasında boşluk içeriyorsa

RowSource = TextBox3.text & "!A9:E62

kodu hata verebilir. Belki aşağıdaki kod işe yarayabilir.

With sheets(textbox3.text) 
    listbox1.ColumnHeads = True 
    listbox1.ColumnCount = 5 
    listbox1.RowSource = "A9:E62" 
End With

Sn. maviaynanın verdiği kodları CommandButton6_Click altına yazdıysanız çok da güzel çalışıyor olması gerek.

Saygılar;
Tarkan VURAL

 

[ozdogan]

Merhaba Tarkan Hocam, Sayın Maviaynanın verdiği koldar hata veriyordu. O yüzden o kodları kullanamadım.