Combobox ile Textbox ilişkilendirme

[kaan07]

Merhaba sevgili arkadaslar
2006 dan beri bu siteye üyeyim ama 2 haftadır yoğun bir şekilde takip ediyorum siteyi, (işten ayrıldığım için) Exceli yıllardır kullanırım ama hiç bir şey bilmiyormuşum ben neyse ben asıl sorunumu izah edeyim siz çok değerli excel.web.tr üyelerine ve hocalarıma
2 haftadır makro ile yoğun bir şekilde çalışıyorum, Şimdi burdan öğrendiklerimle basit bir kasa modülü hazırlıyorum fakat takıldığım nokta comboxta gelen verinin karşılığı textbox yazmasını istemem bununla ilgili çok araştırdım ama bulamadım
yardımlarınız için şimdiden cok teşekkur ederim

 

[Orion1]

Merhaba sevgili arkadaslar
2006 dan beri bu siteye üyeyim ama 2 haftadır yoğun bir şekilde takip ediyorum siteyi, (işten ayrıldığım için) Exceli yıllardır kullanırım ama hiç bir şey bilmiyormuşum ben neyse ben asıl sorunumu izah edeyim siz çok değerli excel.web.tr üyelerine ve hocalarıma
2 haftadır makro ile yoğun bir şekilde çalışıyorum, Şimdi burdan öğrendiklerimle basit bir kasa modülü hazırlıyorum fakat takıldığım nokta comboxta gelen verinin karşılığı textbox yazmasını istemem bununla ilgili çok araştırdım ama bulamadım
yardımlarınız için şimdiden cok teşekkur ederim

Hangi comboboxtaki veri hangi textboxa yazılacak?

 

[kaan07]

Merhaba Hocam
hesap kodunu iaretlediğimde altındaki textboxa hesabın adını yazmasını sağlıyamadım
yardımınız için teşekkur ederim tekrar

 

[Orion1]

Bu konuda sayısız örnekler var formda.
Dosyanız ektedir.

Private Sub UserForm_Initialize()
    ListBox1.ColumnCount = 8
    ListBox1.ColumnWidths = "80;80;80;80;80;80;80;100"
    ListBox1.RowSource = "TAHSILAT!B2:I" & Sheets("TAHSILAT").Range("A65536").End(xlUp).Row
    [B][COLOR="Red"]ComboBox1.ColumnCount = 2
    ComboBox1.ColumnWidths = "100;0"
  ComboBox1.RowSource = "HESAP_PLANI!B2:C" & Sheets("HESAP_PLANI").Cells(65536, "B").End(xlUp).Row[/COLOR][/B]
  ComboBox1.Style = fmStyleDropDownList
    
     
End Sub


Private Sub ComboBox1_Change()
[B][COLOR="Red"]hesap_adi.Value = ComboBox1.Column(1)[/COLOR][/B]
End Sub

 

[kaan07]

Hocam çok teşekkur ederim çok sağolun

 

[Orion1]

Hocam çok teşekkur ederim çok sağolun

Rica ederim.
İyi çalışmalar.