ComboBox'tan seçilen veriye göre TextBox'a aktarma

[teksen]

TextBox1'e yazdığım rakamın bir buton kullanmadan,ComboBox'taki seçeneğe göre diğer TextBox'lara atması mümkünmüdür?

Örneğin ComboBox'tan Peşin seçilince peşin yazan TextBox'atması gibi

Şimdiden teşekkür ederim.

 

[teksen]

Arkadaşlar bana bu konuda yardımcı olabilecek biri varmı acaba?

 

[hamitcan]

Private Sub ComboBox1_Change()
Select Case ComboBox1
Case Is = "Peşin": TextBox2 = TextBox1
Case Is = "Kredi Kartı": TextBox3 = TextBox1
Case Is = "Taksit": TextBox4 = TextBox1
End Select
End Sub
Private Sub TextBox1_Change()
ComboBox1_Change
End Sub

şeklinde deneyin.

 

[teksen]

Teşekkür ederim

Elinize sağlık

Tam istediğim gibi çalıştı.