listbox-combobox-textbox iliskisi

[egitimsart]

merhaba,
benim için önemi büyük ama içinden çıkamadığım bir sorunum var.
Forumda yaptığım aramalarda işimi görebilecek bir sonuca ulaşamadım.
Yeni yılda iş yerimdeki sandık üyeleri için aylara göre yıllık ödeme çalışması yapmak zorundayım.
sandıkta 50 üye var.
listbox ile bu üyeri seçip Textboxta adını yazdırıyorum.
ama ödemeleri takip edebilmek için,
listbox dan seçilen üyeye göre; combobox ile seçtiğim aya ait, seçilen üyenin yaptığı ödemeyi Textbox ta yazmasını istiyorum.
bu işlemi bir türlü yapamadım, yardımlarınızı rica ediyorum.

ilgilecek herkese şimdiden teşekkür ederim.
görüşmek üzere.

 

[Ferhat Pazarçevirdi]

Merhabalar,

Size bir öneri sunulabilmesi için, çalışma kitabınızdaki veri yapısının (örn.ne nereye yazılmı&#351 bilinmesi gerekiyor. Onun için, küçük bir örnek dosya koyarsanız, daha kolay çözüme ulaşabilirsiniz.

 

[egitimsart]

Haklısınız Sn.fpc,
dosyanın seçim yapılacagı sayfayı ekte gönderiyorum.
örnektede göreceğiniz gibi yatay olarak ayları ComboBox a RowSource ile ekleyemedim.
yapabildiğim:
listboxta seçilmiş olan ismi ad soyad bölümüne ekleyip sıra no bölümünde üyenin numarasını yazdırabiliyorum.
yapamadığım:
-Aylar bölümünden ayları seçebilmek,
-Ad soyad bölümünde seçilmiş olan isme göre, seçtiğim aydaki ödeme tutarını aidat bölümüne yazdırabilmek.
bu işlemi gerçekleştirebilmeme yardımcı olursanız beni büyük bir yükten kurtamış olursunuz.
ilginize tekrar teşekkürler.
görüşmek üzere

 

[Ferhat Pazarçevirdi]

Ekteki dosyayı inceleyiniz.

Combobox'a ayları getirebilmek için RowSource özelliğini kullanamazsınız. Adı üstünde Satır Kaynağı demek , sutunlardan liste oluşturmak için şu kodu Userform'un initialize olayına ilave ettim.

For Each hcr In Range("D1:O1")
   cbaylar.AddItem hcr
Next
cbaylar.ListIndex = 0

Listbox'dan ve Combobox'dan seçilene göre aidat getirme işlemi için, modül sayfasında bir makro oluşturuldu. Şöyle ki ;

Sub AidatGetir()
With secyazdir
    sutun = .cbaylar.ListIndex + 1
    satir = .lstlist.ListIndex + 1
   .aidat = Range("C1").Offset(satir, sutun)
End With
End Sub

Daha sonra, bu makro, Listbox ve Combobox'ın Change olaylarında çağrıldı.

 

[egitimsart]

Merhaba Sn. fpc,
Sabırsızlıkla beklediğim cevabınızı inceledim.
Tam da istediğim gibi olmuş.
Nasıl teşekkür edeceğimi bilemiyorum.
Beni büyük bir sıkıntıdan kurtardınız.
Sizler sayesinde eksik bilgilerimizi böylece geliştirmeye çalışıyoruz.
İlginize, bilginize sonsuz teşekkürler.

Herşey gönlünüzce olsun.
Görüşmek üzere.

 

[egitimsart]

merhaba sn. fpc,
sizi tekrar rahatsız ediyorum kusura bakmayın.
isme ve aylara göre aidat ödemelerinin bulunmasıyla ilgili bir süre önce yardım istemiştim, verdiğiniz cevapla sorunumu halletmiştim, teşekkür ederim.
size örnek olarak gönderdiğim sayfada malesef değişiklikler yapmam gerekti.
malesef yine halledemediğimden tekrar yardımınızı rica ediyorum.
şimdiki sorunum:
ekteki dosyada da göreceğiniz gibi üye listelerini aylara göre sayfa sayfa düzenlemem gerekti.
sonuc sayfası için yaptıgınız uygulamadaki form ile seçilen aya ait sayfanın açılmasını ve o sayfadaki isme göre yapılmış olan ödemenin formda görünmesini bir türlü yapamadım.
fazla vaktinizi almadan: formdaki combobox ile seçilen aya ait sayfanın açılarak listbox ile seçilen üyenin ödedigi secilmis olan aydaki aidatın form ile görüntülenmesinde yardımcı olabilirseniz minnettar olurum.

Saygılarımla
görüşmek üzere