Userform textboxda seçime göre veri saydırmak

[byfika]

Merhabalar, userform üzerindeki D sütunundaki veriyi comboboxla seçince, D sütunundaki ile eşleşen B sütunundaki verilerin sayısını nasıl alabiliriz.
Bilgi için şimdiden teşekkürler.

 

[Ziynettin]

Private Sub ComboBox2_Change()
Set s1 = Sheets("Sayfa1")
Set dc = CreateObject("scripting.dictionary")
son = s1.Cells(Rows.Count, 2).End(3).Row
If son > 1 Then
    a = s1.Range("B2:D" & son).Value
    For i = 1 To UBound(a)
        If ComboBox2.Text = a(i, 3) Then
            If Not a(i, 1) = "" Then
                dc(a(i, 1)) = dc.Count + 1
            End If
        End If
    Next i
    TextBox2 = dc.Count
End If
End Sub

 

[byfika]

Merhabalar Ziynettin bey, istediğim gibi çalışıyor. Bilginiz için çok teşekkürler, saygılar