ComboBox`a farklı çalışma kitabından veri almak

[garantix]

Merhaba,

Oluşturduğum Userform`a bir combobox ekledim ancak combonun datasını aynı excel dosyası içindeki başka bir sheet`ten almasını istiyorum.

yardımlarınızı rica ederim.

ps: yeni keşfettiğim bu site sayesinde acaip yararlı bilgiler edindim.1-2 günde bile kendi kendime macrolar yazmaya başladım. İşyerindeki arkadaşlar bile yaptıklarıma şaşırmaya başladı (bu gidişle bağımlısı olacağım.)

Herkese teşekkür ederim.

 

[Levent Menteşoğlu]

Merhaba

Öncelikle soru başlığınız ile sorunuz birbirini tutmuyor. Başlıkta, çalışma kitabı, sorunuzda ise ayrı sheetten demişsiniz. Ben sheeti kasdettiğinizi düşünerek şu bilgiyi vereyim. Aktif sayfanın dışındaki bir sayfadan veri alınacaksa referans hücre veya hücreler aralığı tanımlanırken sayfa ismide kod içinde kullanılır. Örneğin;

range("a1") ifadesi aktif sayfadaki A1 hücresini ifade eder.

Buna karşın,

sheets("sayfa3").range("a1") ifadesi ise sayfa3 isimli

sayfanın A1 hücresini ifade edecektir.

 

[garantix]

Evet haklısınız yanlış yazmışım.sheet`i kastettim.

Ancak şöyle bir sorun varki; ben Combobox için yer gösterirken rowsource bölümüne A2:A32 şeklinde data lokasyonunu giriyordum fakat sizin dediğiniz şekilde "sheets("data").range("A2:A32") " giriş yapmaya çalıştığım zaman "invalid property value" uyarısı alıyorum.

Bu formulu tam olarak nasıl ve nereye yerleştirmeliyim ?

Ayrıca hazır tutarsız bir başlık açmışken, ayrı bir çalışma kitabından da veri çağırmayı açıklarsanız sanırım herkes için yararlı olacaktır.

Saygılar,

 

[Levent Menteşoğlu]

Rowsource ile veri alıyorsanız bu durumda aşağıdaki gibi yazmalısınız.

ComBobox1.Rowsource="data!a2:a32"

Başka bir çalışma kitabından alıyorsanız diğer dosyanında açık olması kaydı ile aşağıdaki gibi yazılmalıdır.

ComboBox1.RowSource = "[Kitap2.xls]data1!a2:a32"

 

[garantix]

Levent bey,

Sanırım ben gerekli yerleştirmeyi yapamıyorum? Ekte örnek bir dosya gönderdim.Ana çalışma sayfam "Ana" , dataların alınması gereken yerde "data" isimli sheet.

Bu örnek üzerinden gidersek çok memnun olacağım.

 

[Levent Menteşoğlu]

Userforma aşağıdaki kodu kopyalayın.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "data!a2:a" & [data!a65536].End(3).Row
End Sub

 

[garantix]

Harikasınız! çok teşekkürler..