Combobox seçimine göre Labele veri saydırmak

Önce bir rica (hem sizden hem de diğer forumdaşlardan):
eklenen örnek belgelerde, Application.Visible, Application.Calculation, Application.EnableEvents ...gibi
Application........ olaylarına yönelik kodlamalar olmamasına özen gösteriniz.
Konuyla ilgili olarak cevabımın altındaki İMZA bölümünü mutlaka okuyunuz.


Kulanılan esas kod aşağıda gösterildi.
Bu kod hem Combobox'ların Change kodunda, hem UserForm_Initalize kodunda,
hem de LİSTELE düğmesi kodunda çağrılarak çalıştırılıyor ve sonuç LABEL nesnelerinde gösteriliyor.

Belgeniz ekte @dimple

Yardımınız için teşekkür ederim @Ömer BARAN bey sanırım ben kendi gönderdiğim dosyayı indirdim o yüzden sonucu göremedim. Göndermiş olduğunuz kodu Userform2 de birkaç değişik alana uyguladım ama label da değişiklik sağlayamadım. Hangi bölüme eklemem gerekiyor.( Dosya indirme sayısı sınırlı olunca tekrar indiremedim )

Sadece VİİP ÜYE olanlar sınırsız örnek belge indirebilirler.
Bu konuda yapacak bir şey yok.

Önce verdiğim kodu ilgili userformun kod bölümüne yeni bir makro kodu olarak yapıştırın (FILTRE kodları gibi).
Sonra da;
-- USerForm_Initalize kodunda (mutlaka)
-- hangi nesnede işlem yapınca sayma yapılacaksa o nesneye ait Click veya Change kodlarında (örneğin LİSTELE düğmesi)
END SUB satırlarının hemen üstüne CALL KIZ_ERKEK_SAY şeklinde birer kod satırı eklemeniz yeterli olur.

.

Desteğiniz için çok çok teşekkür ederim Sayın @Ömer BARAN bey . Sonuç harika istediğim gibi çalışıyor. Emeğinize sağlık. Hakkınızı helal edin. saygılarımla. Güncel dosyamı da ekleyeyim.