listbox rowsource

[öğrtm]

herkese iyi akşamlar
aşağıdaki kodda listbox a değer çekerken sayfa ismi olarak değişken atanabilirmi?yardımcı olan arkadaşlara teşekkürler.

Private Sub ComboBox1_Change()

Me.ListBox1.RowSource = "Sheets(sht)!a1:c" & Sheets(sht).[c64536].End(3).Row

End Sub

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

Me.ListBox1.RowSource = [COLOR=red]sht & [/COLOR][COLOR=black]"[/COLOR]!a1:c" & Sheets(sht).[c64536].End(3).Row

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kodu deneyiniz..

Dim syf As String
[COLOR=red]syf [/COLOR]= "Sayfa1"
ListBox1.RowSource =  [COLOR=red]syf[/COLOR] & "!A1:A" & Sheets([COLOR=red]syf[/COLOR]).[a65536].End(3).Row

 

[öğrtm]

tekrar mrblar
arkadaşlar verdiğiniz kodları da denedim ama run time 380 hatası veriyor.

bu arada sht değişkeni
sht = Me.ComboBox1.Text e eşit

eğer başka tavsiyeleriniz varsa sevinirim .iyi akşamlar

 

[Ayhan Ercan]

Merhaba

Ek dosyayı inceleyiniz.
Herhangi bir hata vermemektedir.

 

[öğrtm]

ayhan bey dosyanızı inceledim.zannedersem diğer nesnelere yazdığım kodlardan kaynaklanan bir durum var ben biraz daha inceleyeyeyim.
alaka ve yardımlarınız için çok teşekkür ederim.

 

[Ayhan Ercan]

Rica ederim.
İyi Çalışmalar.. k::