Problemas al copiar la Fecha
Tengo problemas con mi proyecto al copiar la fecha en la hoja de exel.
Se creo un formulario que al iniciar aparezca la fecha automicamente con la siguiente función
Private Sub UserForm_Initialize()
TXTFECHA = Format(Now, "dd/mm/yyyy")
End Sub
En el formulario me aparece la fecha de la manera requerida, pero al momento de guardar los datos en la hoja establecida me la copia de la siguiente manera (mm/dd/yyyy)
Como se podría solucionar este inconveniente.
1 respuesta
H o l a:
Te anexo la macro completa
Private Sub CommandButton1_Click() 'para guardar
fecha1 = Mid(TXTFECHA, 4, 2) & "/" & Mid(TXTFECHA, 1, 2) & "/" & Mid(TXTFECHA, 7, 4)
Range("A1") = CDate(fecha1)
End Sub
'
'
Private Sub UserForm_Initialize()
TXTFECHA = Format(Now, "dd/mm/yyyy")
End Subsustituye la celda por la tuya para guardar la fecha
Valoras para finalizar saludos!
Buenas Adriel tendría que reemplazar la función de guardar que ya había creado para el textbox fecha por la macro que me estas sugiriendo.
Y como seria el rango si los datos fecha se van a introducir en la columna 7 o (G) a partir de la fila 5.
Gracias por tu ayuda.
H o l a:
Private Sub CommandButton1_Click()
Set h1 = Sheets("Hoja1") ' sustituye el nombre de la hoja por la tuya
fecha1 = Mid(TXTFECHA, 4, 2) & "/" & Mid(TXTFECHA, 1, 2) & "/" & Mid(TXTFECHA, 7, 4)
u1 = h1.Range("G" & Rows.Count).End(xlUp).Row + 1
If u1 < 5 Then u1 = 5
h1.Cells(u1, "G") = CDate(fecha1) 'guarda datos del textbox1 en la columna G
End Sub
'
'
Private Sub UserForm_Initialize()
TXTFECHA = Format(Now, "dd/mm/yyyy")
End SubNo olvides de valorar
