Cambio de formato en fecha de textbox a celda en excel
Tengo un userform y en el textbox1 se ingresa un fecha, si es inferior a 10 intercambia el día y mes es decir si pongo 07/03/2000 pone en la hoja donde guarda los datos 03/07/2022. Tengo el siguiente código
Dim NombreHoja As String
Dim HojaDestino As Range
Dim NuevaFila As Integer
NombreHoja = "DATOS"
Set HojaDestino = ThisWorkbook.Sheets(NombreHoja).Range("A1").CurrentRegion
NuevaFila = HojaDestino.Rows.Count + 1
With ThisWorkbook.Sheets(NombreHoja)
.Cells(NuevaFila, 1).value = Val(LblConsecutivo)
.Cells(NuevaFila, 2).value = Me.TextBox3.value
.Cells(NuevaFila, 3).value = Me.ComboBox1.value
.Cells(NuevaFila, 4).value = Me.ComboBox3.value
.Cells(NuevaFila, 5).value = Me.TextBox17.value
.Cells(NuevaFila, 12).value = Me.ComboBox2.value
.Cells(NuevaFila, 14).value = Me.ComboBox4.value
.Cells(NuevaFila, 15).value = Me.TextBox18.value
.Cells(NuevaFila, 16).value = Me.TextBox19.value
.Cells(NuevaFila, 17).value = Me.TextBox20.value
.Cells(NuevaFila, 18).value = Me.TextBox21.value
.Cells(NuevaFila, 19).value = Me.ComboBox5.value
.Cells(NuevaFila, 20).value = Me.TextBox4.value
.Cells(NuevaFila, 21).value = Me.TextBox6.value
.Cells(NuevaFila, 22).value = Me.TextBox6.value
.Cells(NuevaFila, 23).value = Me.TextBox7.value
.Cells(NuevaFila, 24).value = Me.TextBox8.value
.Cells(NuevaFila, 25).value = Me.ComboBox11.value
.Cells(NuevaFila, 26).value = Me.TextBox9.value
.Cells(NuevaFila, 27).value = Me.ComboBox6.value
.Cells(NuevaFila, 28).value = Me.TextBox15.value
.Cells(NuevaFila, 29).value = Me.ComboBox7.value
.Cells(NuevaFila, 30).value = Me.TextBox16.value
.Cells(NuevaFila, 31).value = Me.ComboBox8.value
.Cells(NuevaFila, 32).value = Me.TextBox1.value
.Cells(NuevaFila, 33).value = Me.TextBox2.value
.Cells(NuevaFila, 34).value = Me.TextBox11.value
.Cells(NuevaFila, 35).value = Me.ComboBox10.value
.Cells(NuevaFila, 36).value = Me.TextBox13.value
.Cells(NuevaFila, 37).value = Me.ComboBox9.value
.Cells(NuevaFila, 38).value = Me.TextBox14.value
.Cells(NuevaFila, 39).value = Me.TextBox10.value
End With
MsgBox "Consecutivo No. " & LblConsecutivo
Unload Me
Userform.Show
End Sub
