Macro not recognizing Comb Box date

[christianbiker]

Hey all...I am using a named range & Combo Box in place of a DatePicker within a userform to ensure users select a proper date. I am using this Combo Box to hide all rows in a spreadsheet that do not match the date selected in a Combo Box however it does not seem to be recognizing the selected date when the macro is run and instead it hides all rows within the spreadsheet. The date in the required column is formatted to a date and the Combo Box is formatted to a date as well but it isn't working. This was not an issue when I was originally using the DatePicker but I would prefer to avoid that route.

Why isn't my Combo Box working?

Thanks!

 

[RoryA]

What code are you using?

 

[christianbiker]

Private Sub courtdate_Change()

    With courtdate
        .Value = Format(.Value, "m/d/yyyy")
    End With

End Sub

Private Sub filtercourt_Click()

    With courtdate
        .Value = Format(.Value, "m/d/yyyy")
    End With

Application.ScreenUpdating = False

    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range

' Set the worksheet
    Set ws = ThisWorkbook.Sheets("MAIN")

' Set the range to the data range in Column H (adjust as needed)
    Set rng = ws.Range("R6:R50")

' Loop through each cell in the specified range
    For Each cell In rng
        ' Check if the cell value is "Yes"
        If cell.Value <> courtdate Then
            ' Toggle the row visibility
            cell.EntireRow.Hidden = Not cell.EntireRow.Hidden
        End If
    Next cell

Application.ScreenUpdating = True

MsgBox "Your court docket has been generated." & vbNewLine & vbNewLine & "Click ""Ok"" to continue."


End Sub

 

[RoryA]

Try using:

If cell.Value <> cdate(courtdate) Then

 

[christianbiker]

Try using:

If cell.Value <> cdate(courtdate) Then

Winner winner chicken dinner. Works like a charm...

Thanks Rory!!!!

 

[RoryA]

Glad we could help.