İki Tarih arası Cbox ile Label'e veri saydırma

[ESEZEN]

Merhabalar,
Aşağıdaki kod ile bas_tarih cboxta çıkan tarihe göre sayı alabiliyorum fakat şimdi tarih adında cbox oluşturdum.
2 cboxta seçtiğim tarihler arası sayımını nasıl sağlayabilirim?
Desteğinizi rica ederim.

Private Sub listele_Click()
Dim S1 As Worksheet
Set S1 = Sheets("FTL Data")



On Error Resume Next


If tarih <> "" Then

operasyon.Caption = Application.WorksheetFunction.CountIfs(S1.Range("A:A"), CDbl(CDate(bas_tarih)), S1.Range("P"), "Operasyon")
End If

End sub

 

[ESEZEN]

Bu şekilde çözdüm

operasyon.Caption = Application.WorksheetFunction.CountIfs(S1.Range("A:A"), ">=" & CDbl(CDate(bas_tarih)), S1.Range("A:A"), "<=" & CDbl(CDate(tarih)), S1.Range("P:P"), "Operasyon")