ComboBox1 den TextBox1 Veri Alma

[Mustafa MUTLU]

Formda aradım hatta kod bankasınıda indirdim baktım bulamadım.
isteğim Şu :

Userform daki :
ComboBox1 e sayfa1 a2:a dan veri alıyorum.
Mesela a14 deki veriyi seçtim diyelim, aynı satırdan,
TextBox1 e de b14 deki verinin otomatik gelmesi için bir kod verebilirmisiniz.

 

[Orion1]

Formda aradım hatta kod bankasınıda indirdim baktım bulamadım.
isteğim Şu :

Userform daki :
ComboBox1 e sayfa1 a2:a dan veri alıyorum.
Mesela a14 deki veriyi seçtim diyelim, aynı satırdan,
TextBox1 e de b14 deki verinin otomatik gelmesi için bir kod verebilirmisiniz.

Almayın.
A:B aralığını alın.
click olyına(combonun)

textbox1.text=combobox1.column(1)

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub ComboBox1_Change()
    TextBox1 = Cells(ComboBox1.ListIndex + 2, "B")
End Sub

 

[Mustafa MUTLU]

Teşekkür Ederim...
Tam aradığım Kod..

 

[ynmcan]

Syn. Mustafa MUTLU
Aşağıdaki kodu kullanabilirsiniz.
Ekteki Örnek dosyayı inceleyin

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa1!A2:A" & Sheets("Sayfa1").Range("A65536").End(xlUp).Row
End Sub
Private Sub ComboBox1_Change()
sat = ComboBox1.ListIndex + 2
TextBox1 = Sheets("Sayfa1").Cells(sat, 2)
End Sub