Fecha en un combobox

[Juangiraud]

Como verán soy muy principiante en el tema

Tengo un formulario, y en el combobox1 tengo que poner una fecha, cuando me carga en la hoja, me pone cualquiera,

Alguien me puede dar una manito

copio el codigo

Private Sub CommandButton3_Click()

For i = 4 To 3000
If Hoja1.Cells(i + 1, 1).Value = "" Then
Hoja1.Cells(i + 1, 1) = Val(TextBox1)
Hoja1.Cells(i + 1, 2) = Val(ComboBox1)
Hoja1.Cells(i + 1, 3).Value = ComboBox2

TextBox1 = Empty

TextBox1.SetFocus
Exit For
End If
Next

End Sub

 

 

Gracias de antemano

[JSDJSD]

Si aún lo necesitas sube tu archivo

[Enigma25]

Por lo que entiendo, debes convertir el dato a fecha tal como haces con la función Val() (Que por cierto no recomiendo si usas decimales a menos menos que solo sea entero pero igual no lo recomiendo).

Si vas a registrar fecha en las celdas desde el control ComboBox, según el numero de iteraciones de tu bucle, le dices algo así:

Hoja1.Cells(i + 1, 3).Value = CDate(ComboBox2) 'Si es que tienes la fecha en el control

o

Hoja1.Cells(i + 1, 3).Value = CDate(Date) 'Si es que es la fecha del sistema