ComboBox'ta Seçtiğim Veriye Göre TextBox'a Saydırma

[cemalcetin1]

arkadaşlar merhaba,

seçtiğim combobox verisine göre textbox içine saydırmak istediğim veriler var. örnek olarak,

ComboBox'ta seçtiğim vardiyaya göre örnek "1. VRD veya 2.VRD " seçtiğim zaman ilgili TextBox'ta Veri3 Sayfasındaki E5:E5000 arasında seçilen vardiyadan kaç tane olduğunu görmek istiyorum. Bu saydırma işlemini nasıl yapabilirim ?


https://s2.dosya.tc/server10/4mw9tv/Vardiya.rar.html

 

[Muzaffer Ali]

Merhaba.
Şu kodu formun kod kısmına kopyalayın.

Private Sub vardiyaverivardiyaveri_Change()
    vardiyahasari.Text = WorksheetFunction.CountIf(Range("E:E"), vardiyaverivardiyaveri.Text)
End Sub

 

[cemalcetin1]

öncelikle teşekkür ederim.

formül gibi filtre yaparak yani ilk önce ben mayıs ayını seçiyorum ve sonra 1. vardiyayı seçiyorum. makro bana mayıs ayındaki 1. vardiyaları saydırabilir mi ? ve aynı şey hafta içinde olabilir mi ? haftayı ve vardiyayı seçip o haftadaki 1. vardiyaları veya 2. vardiyaları saydırabilir mi ? bunu yapmak mümkün müdür?

 

[Muzaffer Ali]

Şu kodları kullanın.

Private Sub ayveri_Change()
    Say
End Sub

Private Sub haftaveri_Change()
    Say
End Sub

Private Sub vardiyaverivardiyaveri_Change()
    Say
End Sub

Sub Say()
    vardiyahasari.Text = WorksheetFunction.CountIfs(Range("E:E"), vardiyaverivardiyaveri.Text, Range("A:A"), ayveri, Range("B:B"), haftaveri)
End Sub