combobox'a veri alma

[GursoyC]

Merhaba,
abc.xlsm isimli dosyamın bir sayfasında bulunan combobox'a, aynı klasörde bulunan def.xlsm dosyamın, "ürün" isimli sayfasının A1:A500 arası veriyi almak istiyorum. hangi kodu yazmam gerekir, yardımcı olur musunuz?
örnek dosyamı ekledim.

Teşekkürler.

 

[Huseyinkis]

ComboBox1.RowSource = "ürün'!A1:A500"

 

[işsiz123]

Aşağıdaki kodları deneyebilirsiniz.

Private Sub ComboBox1_Change()

 With GetObject(ThisWorkbook.Path & "\def.xlsm")
        ComboBox1.List = .Sheets("ürün").Range("A1:a500").Value
        .Close 0
    End With
End Sub

 

[antonio]

Dosyanız ektedir.
Kolay gelsin.

 

[GursoyC]

maalesef olmadı.

 

[GursoyC]

sayın antonio,
çok teşekkürler, elinize sağlık.
Saygılar,

 

[işsiz123]

Bizim kodlarda tıkır tıkır çalışıyor.

 

[antonio]

Sayın unlimitted; çalışmamın işinize yaramasına sevindim. Ancak Sayın işsiz123 ün kodları da çalışmaktadır. Aradaki fark: Benim kodlar dosyanın açılış olayına yazılmış, dosya açılırken comboboxa veriler otomatik yüklenmektedir (sadece ilk açılışta). Sayın işsiz123'ün kodları ise comoboxa bir şey yazıldığı zaman harekete geçiyor. Siz öyle bir olay yapmadığınız için liste yüklenmedi. Eğer fare ile tıklama olayına yazmış olsaydı, sizin için çok pratik bir çözüm olabilirdi. Bende o şekilde Sayın işsiz123'ün kodlarını sizin alternatif olarak faydalanmanız için gönderiyorum:

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 With GetObject(ThisWorkbook.Path & "\def.xlsm")
 Sayfa1.ComboBox1.ListRows = Empty
        ComboBox1.List = .Sheets("Sayfa1").Range("A1:a500").Value
        .Close 0
    End With
End Sub

İyi çalışmalar..

 

[GursoyC]

Sayın Antonio, açıklamanız ve alternatif kodlarınız için ayrıca teşekkür ederim.
Sayın işsiz, evet sizinki de çalışıyormuş. kapatıp açmam gerektiğini bilmediğimden çalışmadı şeklinde yorumladım.
Tekrar teşekkür ederim.
Saygılar,

 

[GursoyC]

tekrar merhaba,
sayın antonio, sayın işsiz123,
verdiğiniz kodları başka iki dosyaya uyarladığımda olmadı. rica etsem nedeni hakkında yardımcı olur musunuz?
dosyalar ektedir.
Saygılarımla,

 

[antonio]

Kodlarınızı aşağıdaki şekilde düzeltiniz:

Private Sub ComboBox[COLOR="Red"][B]3[/B][/COLOR]1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
 With GetObject(ThisWorkbook.Path & "\ürün_data.xlsx")
 Sheet17.ComboBox[COLOR="red"][B]3[/B][/COLOR]1.ListRows = Empty
        ComboBox[COLOR="red"][B]3[/B][/COLOR]1.List = .Sheets("ürün_data").Range("b3:b1500").Value
        .Close 0
    End With
End Sub

 

[GursoyC]

çok teşekkürler sayın Antonio. Saatlerdir bakıyorum bulamamıştım.
saygılar,