Buenas tardes, antes que todo gracias por su tiempo, he estado navegando dentro de la pagina para ver si mi problema ya se había presentado pero no logre encontrar algo sobre exactamente mi problema.
Estoy realizando un programa en excel, básicamente sobre inventarios con entradas, salidas y servicios; he estado navegando y viendo tutoriales para poder aterrizar mis necesidades y cuando ya tengo terminado bien o mal lo que necesito (por que ciertas cosas, supongo que las podría tener mejor pero ya no he avanzado mas en la investigación para mejorarlo) me surgió un problema con las fechas, en concreto tengo 3 botones (entradas, salidas y servicios) cada uno me despliega una "userform" para llenar con datos en diferentes "textbox" y dos "commandbutton" uno para "aceptar" o "cancelar" el ingreso, hay un "textbox" para la fecha de ingreso (que se supone en el programa pone la fecha actual del sistema cuando este "textbox" se deja en blanco) y otro "textbox" para poner fecha caducidad, al correr el programa lleno los campos requeridos y el de la fecha lo dejo en blanco y al dar en aceptar en automático se rellena con la fecha actual (ej: 06/07/2017) pero al revisar la entrada de datos en la hoja de excel me cambia la fecha a "07/06/2017" osea como la usan en USA, y me hace lo mismo cuando yo introduzco la fecha de caducidad que por lo general es de 1 año posterior a la fecha de ingreso y al escribir en el "textbox" 06/07/2018 me la cambia en la hoja de excel a 07/06/2018. Ya me he metido en la configuración de celda y que la fecha que utilice sea dd/mm/aaaa pero aún así me la sigue cambiando.
Aquí pego el código:
Private Sub CommandButton1_Click()
Dim fila As Integer
For fila = 2 To 10000
If TextBox2.Text = "" Then
TextBox2.Text = Date
End If
If Hoja2.Cells(fila, 2) = "" Then
Hoja2.Cells(fila, 3) = TextBox1.Text
Hoja2.Cells(fila, 4) = TextBox2.Text
Buenas tardes, antes que todo gracias por su tiempo, he estado navegando dentro de la pagina para ver si mi problema ya se había presentado pero no logre encontrar algo sobre exactamente mi problema.
Estoy realizando un programa en excel, básicamente sobre inventarios con entradas, salidas y servicios; he estado navegando y viendo tutoriales para poder aterrizar mis necesidades y cuando ya tengo terminado bien o mal lo que necesito (por que ciertas cosas, supongo que las podría tener mejor pero ya no he avanzado mas en la investigación para mejorarlo) me surgió un problema con las fechas, en concreto tengo 3 botones (entradas, salidas y servicios) cada uno me despliega una "userform" para llenar con datos en diferentes "textbox" y dos "commandbutton" uno para "aceptar" o "cancelar" el ingreso, hay un "textbox" para la fecha de ingreso (que se supone en el programa pone la fecha actual del sistema cuando este "textbox" se deja en blanco) y otro "textbox" para poner fecha caducidad, al correr el programa lleno los campos requeridos y el de la fecha lo dejo en blanco y al dar en aceptar en automático se rellena con la fecha actual (ej: 06/07/2017) pero al revisar la entrada de datos en la hoja de excel me cambia la fecha a "07/06/2017" osea como la usan en USA, y me hace lo mismo cuando yo introduzco la fecha de caducidad que por lo general es de 1 año posterior a la fecha de ingreso y al escribir en el "textbox" 06/07/2018 me la cambia en la hoja de excel a 07/06/2018. Ya me he metido en la configuración de celda y que la fecha que utilice sea dd/mm/aaaa pero aún así me la sigue cambiando.
Aquí pego el código:
Private Sub CommandButton1_Click()
Dim fila As Integer
For fila = 2 To 10000
If TextBox2.Text = "" Then
TextBox2.Text = Date
End If
If Hoja2.Cells(fila, 2) = "" Then
Hoja2.Cells(fila, 3) = TextBox1.Text
Hoja2.Cells(fila, 4) = TextBox2.Text
Hoja2.Cells(fila, 5) = TextBox3.Text
Hoja2.Cells(fila, 6) = TextBox4.Text
Hoja2.Cells(fila, 8) = TextBox5.Text
Hoja2.Cells(fila, 2) = ComboBox1.Text
MsgBox "Se ha realizado la Entrada"
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
ComboBox1.Text = ""
Exit Sub
End If
Next
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
ComboBox1.Text = ""
End Sub
foto.docx