comboboxta birden fazla sütun

[teknikyapı]

Merhaba.
Daha önce forumda buna benzer bir örnek vardı sanırım ama tekrar aradım bulamadım(belkide comboboxla ilgili bir özellik değildir ama maalesef hatırlamıyorum).ComboBoxta birden fazla kolondaki verileri gösterebilirmiyiz acaba( listbox gibi).
Örnek ;

A B C ( sütunlar)

ADI BR FİYATI

ELMA KG 1.00 YTL
ARMUT KG 2.00 YTL
. . .
. . .
. . .

comboboxta mesala ELMAYI seçince combobox1 de ELMA,textbox1 e KG,textbox2 ye 1.00 YTL yazdırabilirmiyiz.Bununla ilgili bir örnek verebilirmisiniz.? İyi çalışmalar.

 

[Orion1]

Private Sub ComboBox1_Change()
TextBox1.Value = ComboBox1.Column(1)
TextBox2.Value = ComboBox1.Column(2)
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ComboBox1.ColumnCount = 4
ComboBox1.RowSource = "A1:D20"
End Sub

 

[teknikyapı]

sn Orion2 çok faydalı oldu teşekkür ederim.İyi çalışmalar.

 

[Orion1]

sn Orion2 çok faydalı oldu teşekkür ederim.İyi çalışmalar.

Rica ederim.
İyi çalışmalar.

 

[teknikyapı]

sn Orion2 bu verileri ComboBox1.RowSource = "A120" yerine döngü ile nasıl alabiliriz.Veya D20 yerine en son dolu satırı yazdıramadım.Yardımlarınız için şimdiden teşekkür ederim.

 

[Orion1]

sn Orion2 bu verileri ComboBox1.RowSource = "A120" yerine döngü ile nasıl alabiliriz.Veya D20 yerine en son dolu satırı yazdıramadım.Yardımlarınız için şimdiden teşekkür ederim.

Aşağıdaki kodu kullanınız.

ComboBox1.RowSource = "A1:D" & cells(65536,"A").end(xlup).row

 

[teknikyapı]

sn Orion2 yardımlarınız için tekrar teşekkür ederim.İyi çalışmalar.

(Başka sayfadan veri aldığım için verdiğiniz kodu aşağıdaki gibi düzenledim.)

ComboBox1.RowSource = "ISRAYIC!A2" & s1.Cells(65536, "A").End(xlUp).Row

 

[Orion1]

sn Orion2 yardımlarınız için tekrar teşekkür ederim.İyi çalışmalar.

(Başka sayfadan veri aldığım için verdiğiniz kodu aşağıdaki gibi düzenledim.)

ComboBox1.RowSource = "ISRAYIC!A2" & s1.Cells(65536, "A").End(xlUp).Row

Rica ederim.
İyi çalışmalar.

 

[ünal karadavut]

şu yapılan emekleri birde örneklerle süsleseydiniz daha hoş olurdu.

 

[hsayar]

şu yapılan emekleri birde örneklerle süsleseydiniz daha hoş olurdu.

BUnun için Dosya Upload etmeye gerek yok ben yardımcı olayım.
Yeni bir excel kitabı açın
Alt + f11 ile vbe ekranına geçin
Sayfa1 seçili gelecek onun üzerinde sağ tıklayın ve
Insert > userform a tıklayın.
1 adet combobox
2 adet textbox ekleyin

userforma çift tıklayın ve ikinci mesajdaki kodları userforma kopyalayın.

 

[ünal karadavut]

işte aradığım bu.
süpersiniz.

 

[hsayar]

rica ederim