pregunta simple insertar formato numero con control calendar

[aprendiz]

buenas mi pregunta es simple, como puedo insertar un formato numero en vez de formato fecha en una celda de criterio en donde se ingresa la fecha para realizar un filtro

el codigo para el ingreso de los criterios del filtro es este

If Target.Address(False, False) = "C2" Then

              If Range("C2").Value = "" Then

    Application.SendKeys (">=")

      End If

       End If


If Target.Address(False, False) = "D2" Then

              If Range("D2").Value = "" Then

    Application.SendKeys ("<=")

      End If

       End If


If Target.Address(False, False) = "C3" Then

 Call Filtro_fechas("C2", ">")

       End If


If Target.Address(False, False) = "D3" Then

Call Filtro_fechas("D2", "<")

       End If[/CODE]

el del control calendar es este

[CODE]Private Sub Calendar_Click()
If Quien = 1 Then
FmJornada.TextFecha = Calendar.Value
ElseIf Quien = 2 Then
FmNewEmp.TextFecha = Calendar.Value
ElseIf Quien = 3 Then
FmModEmp.TextFecha = Calendar.Value
ElseIf Quien = 4 Then
Range("B8") = Calendar.Value
Range("C2") = Calendar.Value -> esta afecta la celda del filtro,
ElseIf Quien = 5 Then
Range("D8") = Calendar.Value
Range("D2") = Calendar.Value -> esta afecta la celda del filtro
ElseIf Quien = 6 Then
Range("C8") = Calendar.Value
Range("C2") = Calendar.Value -> esta afecta la celda del filtro
ElseIf Quien = 7 Then
Range("E8") = Calendar.Value
Range("D2") = Calendar.Value -> esta afecta la celda del filtro
End If
Unload FmCalendario
End Sub[/CODE]

reportes 14.rar

[Guest Gengis Khan]

Por ejemplo:

Range("C2") = CLng(Calendar.Value)[/CODE]

[aprendiz]

muchas gracias por contestarme, no funciona de esa forma tampoco me la sigue ingresando como fecha y no como valor numerico al final deberia ingresarse algo como esto >=34532