Combobox Veri Alma Sorunu

[ahmed_ummu]

İyi akşamlar arkadaşlar

Aşağıdaki kodlar ile textlerboxlardaki bilgileri sayfaya yazıyor ama yazdıkran sonra girilen verileri Combobox8 e laldırmak istiyorum.

Set sh1 = Sheets("PİYASA ARAŞTIRMA")
sh1.Select
sh1.Range("b10").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Offset(0, 0) = TextBox24.Value
ActiveCell.Offset(0, 1) = TextBox25.Value
ActiveCell.Offset(0, 2) = ComboBox7.Value

sh1.Range("B10").Select
ComboBox8.RowSource = "PİYASA ARAŞTIRMA!B10:B" & Range("B24").End(xlUp).Row


Şöyle bir hata uyarısı veriyor.

could not set Row Source property invalid property value

Yardımcı olursanız sevinirim.

 

[ÖmerFaruk]

"PİYASA ARAŞTIRMA!B10:B" & Range("B24").End(xlUp).Row

Bu satır doğruysa çalışması lazım.
sayfa ismine dikkat edin derim.

 

[ahmed_ummu]

"PİYASA ARAŞTIRMA!B10:B" & Range("B24").End(xlUp).Row

Bu satır doğruysa çalışması lazım.
sayfa ismine dikkat edin derim.

Sayfa ismini sayfa isminden kopyalayıp yapıştırdım kodun içine isim yanlış olmasın diye. Yani isim doğtu ama yine hata verdi. Dosyamı göndeesem bi bakabilir misiniz Ömer Faruk bey.

Userform1 deki Frame8 in içindeki Commandbutton7 de kodlar

 

[halit3]

Sayfanın adını deneme olarak değiştirdim küçük bir düzelme ile kod bende çalıştı

ComboBox8.RowSource = "deneme!B10:B24"
not : sayfa isimlerinde aksanlı harfler kullanmayınız aralarında boşluklar bırakmayınız.

 

[ahmed_ummu]

Teşekkürler Halit bey. SELAMLAR

 

[Korhan Ayhan]

Ek olarak boşluklu sayfa isimlerinde tek tırnak sembolünü kullanmanız gerekir.

ComboBox8.RowSource = "'" & Sh1.Name & "'!B10:B" & Sh1.Range("B24").End(xlUp).Row