TextBox'da ÇokEğerSay

[Bayaz]

Merhaba,

UserForm Aktif olduğunda Textbox'da aşağıdaki formül çalışır mı? Çalışır ise nasıl düzenlenmeli. Tşkler.

        "=COUNTIFS(Sayfa1!C[-1],""<=""&TODAY()-15,Sayfa1!C[8],"""",Sayfa1!C[9],"""",Sayfa1!C[7],""<>"",Sayfa1!C[5],RC[-1])"

 

[Ömer BARAN]

Merhaba.

Sorularınızı, gerçek belgenizin özel bilgi içermeyen küçük boyutlu bir kopyası şeklinde hazırlayacağınız örnek belge üzerinden sorunuz.
Örnek belge yükleme yöntemine ilişkini kısa açıklama cevabımın altındaki İMZA bölümünde var.
.

 

[Bayaz]

Merhaba.

Sorularınızı, gerçek belgenizin özel bilgi içermeyen küçük boyutlu bir kopyası şeklinde hazırlayacağınız örnek belge üzerinden sorunuz.

Örnek belge:
http://s7.dosya.tc/server6/64yaty/FORUM.rar.html
Tşkler.

 

[Ziynettin]

Bu şekilde işinizi görüyor mu?

Private Sub UserForm_Activate()
a = Range("A2:D" & Cells(Rows.Count, 1).End(3).Row)
Set d = CreateObject("scripting.dictionary")
trh = DateAdd("d", -15, Date)
    For i = 1 To UBound(a)
        If a(i, 1) <= trh And a(i, 3) = "" And a(i, 4) = "" Then
            krt = a(i, 2)
            d(krt) = d(krt) + 1
        End If
    Next i
    For i = 1 To 3
        Me("Textbox" & i) = d(Me("Label" & i).Caption)
    Next i
'    TextBox1.Value = d("EMRE")
'    TextBox2.Value = d("SONGÜL")
'    TextBox3.Value = d("ÖZLEM")
End Sub

 

[Bayaz]

Sn. Ziynettin, elinize sağlık, kod istediğim gibi çalışıyor. Gerçek çalışma kitabıma uygulayacağım. Yapacağıma inanıyorum, takıldığımda yardım alırım. Tekrar emeğiniz için teşekkürler.