Combobox'tan Textbox'lara Veri aktarımı

[oguzgok]

Mrb Arkadaşlar...

ek dosyamızda, sorunu anlatmış bulunmaktayım.

Yardımcı olacak arkadaşlara şimdiden tşk ederim.

 

[Recep İpek]

Kodlarınızı aşağıdaki şekilde değiştiriniz.

Private Sub ComboBox1_Change()
TextBox1.Value = Sheets("VERİ").Range("B" & ComboBox1.ListIndex + 9)
TextBox2.Value = Sheets("VERİ").Range("C" & ComboBox1.ListIndex + 9)
MsgBox ComboBox1.ListIndex
ComboBox1.SetFocus
End Sub

 

[oguzgok]

Sn. Ripek çok teşekkür ediyorum.. Ancak.
neden ComboBox1.ListIndex + 6 değil de..
ComboBox1.ListIndex + 9 ???
Açıklaması ne olabilir? Tşk...

 

[oguzgok]

Sn. Ripek.. Üzgünüm ama olmadı...
Ltf.. dosyayı açıp denermisiniz??
Kolay gelsin..

 

[Recep İpek]

Userform yüklenirken siz aralardaki bazı değerleri combobox'a almadığınız için seçilen değerin karşılığını yanlış göstermektedir.

Aşağıdaki şekilde yaparsanız sanırım çalışacaktır.

Private Sub ComboBox1_Change()
TextBox1.Value = Sheets("VERİ").Range("B" & ComboBox1.Value + 5)
TextBox2.Value = Sheets("VERİ").Range("C" & ComboBox1.Value + 5)
ComboBox1.SetFocus
End Sub

 

[oguzgok]

çok ama çok teşekkür ediyorum Sn. Ripek..
ellerinize sağlık...