Aynı olanları Txt de toplamak

[polis-53]

Günaydın Arkadaşlar ekte gönderdiğim dosyada Liste sayfasındaki G sütununa “Daimi”ve”Geçici” yazmaktadır Ben Bunları UserForm Üzerindeki Daimi yazanların toplamını Txt17’e Geçici yazanların toplamını Txt18’e yazdırmak istiyorum. Yardımlarınızı bekliyorum kalın sağlıcakla.

 

[Necdet]

Merhaba,

Toplamak mı saydırmak mı pek anlamadım.
Ben saydırmak olarak düşündüm. kodları inceleyiniz.

G sütununda kaçıncı olduğunu bulmak için Sat değişkenini kullandım. Sizin kullandığınız değişken varsa onu kullanabilirsiniz.

    Sat = Cells(Rows.Count, "G").End(3).Row
    TextBox17 = Evaluate("=COUNTIF(G3:G" & Sat & ",""DAİMİ"")")

 

[polis-53]

Teşekkür ederim Sayın Necdet Yeşertener bey çok sağolun bir soru daha soracağım TextBox1 de İşyeri Adı Ambarlıksa Ambarlıkta çalışan Daimi ve geçici İşçileri saydırabilirmiyiz yani TextBox1 de hangi işyeri yazıyorsa o işyerinin geçiçi ve daimi işçilerini saydırmak istiyorum bunada bi yardımcı olursanız çok sevineceğim.
iyi çalışmalar.

 

[Necdet]

Merhaba,

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    Dim Sat As Long
    
    Sat = Cells(Rows.Count, "A").End(3).Row
    
    TextBox17 = Evaluate("=SUMPRODUCT((B3:B" & Sat & "=""" & TextBox1.Value & """)*(G3:G" & Sat & "=""DAİMİ""))")
 
End Sub

 

[polis-53]

tekrar merhabalar Sayın Necdet Yeşertener göndermiş olduğunuz kodu denedim TextBox 17 boş kalıyor biyerdemi eksik yapıyorum bilmiyorum denedim olmadı birde textBox1 Boş işe Tüm daimi ve Geçicileri sayısını gösterecek TextBox1 Dolu İse yani hangi işyeri ise o işyerindeki Geçici ve daimi sayısını verecek.