ComboBoxlarda Veri gelmesi ve Verileri TextBox yanısıması ???

[baba]

Arkadaşlar Merhaba
Ekte göndermiş olduğu örnekte ComboBox1' Maaş derecesi ComboBox2'ye ise yine Maaş Kademesi Gelecek;TextBox1' ise ComboBoxlardaki Sayıları Karşılığı olan gösterge Tutarı Gelmesi İçin Ne gibi Bir Uygulama Yapabilirim.Konu Hakkında Yardımcı olursanız sevinirim.

Şimdiden İlgilerinize Teşekkür eder Saygılarım Sunarım.

İlker_yenibertiz@hotmail.com

 

[Tankut SAZLI]

Aşağıdaki kodları deneyin:

Private Sub combobox1_Change()
ComboBox2.ListIndex = ComboBox1.ListIndex
End Sub
Private Sub combobox2_Change()
ComboBox1.ListIndex = ComboBox2.ListIndex
Set s1 = Sheets("Sayfa1")
sat = ComboBox2.ListIndex + 3
TextBox1 = s1.Range("Q" & sat).Value

End Sub
Private Sub userform_initialize()
Set s1 = Sheets("Sayfa1")
son = s1.[A65536].End(3).Row - 1
ComboBox1.Clear
ComboBox2.Clear
s1.Select
For a = 3 To son
ComboBox1.AddItem s1.Cells(a, "M")
ComboBox2.AddItem s1.Cells(a, "O")
Next
End Sub

 

[baba]

Tankut Arkadaşım Teşekkür ederim.
Yapmış olduğunuz düzen için ama tam olarak konuyu ben sizlere anlatmadım.Göndermiş olduğu Kitabın içinde ve sol Tarafında Gösterge Tablosu bulunmaktadır.Yani örneğin (ComboBox1'de derece (7) comboBox2'de ise (4) olduğu takdirde.TextBox1'e (760) olarak gelmesi gerekir.Yani Gösterge Tablosundaki hareket Dik inen Sutun Kaç ise O Derece'yi gösterir.Yatay olarak giden kısım ise Kademe'sini gösterir.Burada Yardımcı olursanız sevinirim.

Şimdiden teşekkürler ederim.