Como puedo hacer para que un textbox tenga calendario

Prueba lo siguiente para pasar la fecha del textbox a una celda, por ejemplo:

range("D5").value = cdate(textbox1.value)

Revisa el resultado en la celda y me comentas.

Si no te funciona dime qué dato estás poniendo en el textbox y qué dato te pone en la celda.

Disculpe. Me sale error

¿Qué pusiste en tu código?

¿Qué dice el mensaje de error?

Lo puse de la siguiente forma.

Range("H9").Value = CDate(Txtfechasolicitud.Value)

¿Y qué dice el mensaje de error?

Y puedes poner un ejemplo de lo que estás poniendo en el textbox y qué te está poniendo en la hoja

Ese es el error

y el textbox pongo la fecha de hoy osea 16/10/2018

Primero, quita este evento:

Private Sub Txtfechasolicitud_Change()
    Range("H9").Value = CDate(Txtfechasolicitud.Value)
End Sub

Ese evento hace lo siguiente, por cada caracter que capturas en el textbox, trata de enviar el dato a la celda

1

16

16/

16/1

16/10

etc

Alguno de esos datos no es una fecha, por eso te envía el error.

Entonces quita ese evento, pon un botón, y pon el siguiente código dentro de ese botón:

Private Sub CommandButton1_Click()
    If Txtfechasolicitud.Value = "" Or Not IsDate(Txtfechasolicitud.Value) Then
        MsgBox "Captura una fecha válida"
        Exit Sub
    End If
    Range("H9").Value = CDate(Txtfechasolicitud.Value)
End Sub

[sal u dos

Buen día Dante,

Bueno ya ise lo que mandaste pero hay un problema en la celda donde puse la fecha desde el formulario osea en la H9, la fecha que puse es la siguiente 10/10/2018 pero en la celda me sale

1/10/1900  y no se por que.

¿Tienes algún formato en la celda?

si el de fecha(date)