can any one to resolve the problem with this vba code date row not found
VBA Code:
Private Sub CommandButton1_Click()
Dim R_Value As Range
Dim R_Found As Variant
Set R_Value = Sheets("Data").Rows.Find(CDate(Cmb1.Value), LookIn:=xlValues)
If Not R_Value Is Nothing Then
R_Found = R_Value.Row
R_Found.Select
Else
MsgBox "No matching cell is found.", vbExclamation, "Row Number Not Found!"
Exit Sub
End If
End Sub
Private Sub UserForm_Initialize()
Cmb1.Value = Format((Cmb1.Value), "dd/mmm/yyyy")
End Sub
Last edited by a moderator: