ComboBoxlarda Veri gelmesi Hakkında.

[baba]

UserFormunda Bulunan ComboBox1'e Sayfa1'de Bulunan Derece sayıları ComboBox2'ye de Kademe Sayıları Yazıldığı Zaman TextBox1'e Tablodaki Karşılığın Gelmesi Lazım.Konu Hakkında Yardımcı olursanız Sevinirim
Örneğim:
ComboBox1:7 olsun
ComboBox2:3 olsun
Bunların Karşılığı olan Göstergesi TextBox1'de
TextBox1:740 olması.

 

[Levent Menteşoğlu]

Aşağıdaki kodları userformun kod sayfasına kopyalayın.

Private Sub ComboBox1_Change()
TextBox1 = ""
If ComboBox2 <> "" And ComboBox1 <> "" Then TextBox1 = Cells(ComboBox1.ListIndex + 4, ComboBox2.ListIndex + 2)
End Sub
 
Private Sub ComboBox2_Change()
ComboBox1_Change
End Sub
 
Private Sub UserForm_Initialize()
For a = 1 To 15
If a < 10 Then ComboBox2.AddItem a
ComboBox1.AddItem a
Next
End Sub

 

[baba]

Leventm Çok Teşekkürler Emeğinize sağlık Sağollun
Yanlız Benim Şimdi Hazırlamış olduğu Bir Personel Kayıtları Altında birçalışma yapıyorum az önce göndermiş olduğunuz kodları burada uygulamaya çalıştım lakin olmadı.Eğer İsterseniz Bu Çalışmayı Size gönderebilirim.
Cevabınız bekliyorum.

 

[Levent Menteşoğlu]

Dosyanızı eklerseniz ona gerekli ilaveyi yapabiliriz.

 

[baba]

Buyurun O Çalışmam Personel Kayıt için diye Konularda bir göz Atarsanız Sevinirim.
Şimdiden Teşekkürler Ederim.

 

[Levent Menteşoğlu]

Sadece combobox7 deki kodu aşağıdaki ile değiştirmeniz yeterlidir.

Private Sub ComboBox7_Change()
TextBox11 = ""
If ComboBox8 <> "" And ComboBox7 <> "" Then TextBox11 = Cells(ComboBox7.ListIndex + 4, ComboBox8.ListIndex + 29)
End Sub

 

[baba]

Teşekkürler Ellerinize sağlık sağollun göndermiş olduğum çalışmanın eksik yönlerinin tesbit yaptınızmı?Çünkü ben excelde makroya yeni başlayan bir olarak buraya kadar getirdim.

 

[Levent Menteşoğlu]

Teşekkürler Ellerinize sağlık sağollun göndermiş olduğum çalışmanın eksik yönlerinin tesbit yaptınızmı?Çünkü ben excelde makroya yeni başlayan bir olarak buraya kadar getirdim.

Hepsini incelemedim elbette. Siz kodlarınızda sorun olduğunu düşündüğünüz kısımları sorarsanız ona göre yardımcı olmaya çalışırız.

 

[baba]

UserForm1'de (CommandButton'ların Aktifleşmesi ve bu butonları ileri,Geri,İlk Kayıt,Son Kayıt,İşlemlerinin görünmesi sağlamak),(CommandButtonlarının arasında Bulunan TextBox1 ise Hangi sıranın kayıt Olacağını ve CommandButtonları kullanıdığında ise hangi sıra gidip gelindiği görmek)
UserForm2'de ise (Personellerin Adı yazılı Olan ComboBox1de Soyadlarında Gelmesin sağlamak ve ListBox1'de personellerin Tüm Bilgilerin görmek)

Şimdiden Teşekkürlerim Bir Borç olarak bildirim.

 

[baba]

Konu Hakkında bilgi alamadım yardım edecek arkadaş var mı acaba?
Konu bir üst tarafda göndermiş olduğum ekte ve detaylı anlatım bir üsttedir.
saygılarımla