Textbox con fecha actual
Dado que tus anteriores respuestas me han sido de gran ayuda, me permito abusar de tus conocimientos: leí en otra consulta que para poner la fecha de hoy se usa el comando =Hoy(). Eso me funciona perfecto en excel. ¿Me puedes dar el código para que en un userform me muestre la fecha de hoy (para que el usuario no la ingrese) y que la escriba luego en una celda de la planilla en uso? Me da lo mismo el formato (dd/mm/aa, o dd-mm-aa o dd/mm/aaaa) pero que sea fecha.
1 Respuesta
Respuesta de sandra155
1
Puedes agregar esto en un modulo para el formato de fecha
Function formatoFecha(fecha As String) As String
Dim nueFormato As String
nueFormato = Format(fecha, "DD-MMM-YYYY")
formatoFecha = nueFormato
End Function
Y para que te lo ponga en la fila
Y dentro del formulario
Range("A1"). Activate
ActiveCell.Cells.FormulaR1C1 = formatoFecha(Now())
Esta te coloca la fecha actual en la celda a1
Function formatoFecha(fecha As String) As String
Dim nueFormato As String
nueFormato = Format(fecha, "DD-MMM-YYYY")
formatoFecha = nueFormato
End Function
Y para que te lo ponga en la fila
Y dentro del formulario
Range("A1"). Activate
ActiveCell.Cells.FormulaR1C1 = formatoFecha(Now())
Esta te coloca la fecha actual en la celda a1
No se que puedo estar haciendo mal, pero no me resulta. Copié en "General" lo que me indicas primero, y luego en el textbox la otra parte:
Range("A1").Activate
ActiveCell.Cells.FormulaR1C1 = formatoFecha(Now())
Sin embargo no escribe ni muestra nada. En todo caso, como lo tenía está bien, así soluciona mi problema:
Private Sub TextBox24_Change()
largo_entrada = Len(Me.TextBox24)
'Pone guión en fecha 00-00-2000
Select Case largo_entrada
Case 2
Me.TextBox24.Value = Me.TextBox24.Value & "-"
Case 5
Me.TextBox24.Value = Me.TextBox24.Value & "-2009"
End Select
Range("P2").Select
ActiveCell.FormulaR1C1 = TextBox24
Selection.NumberFormat = "dd/mm/yyyy;@"
End Sub
... solo que cada vez que ingreso datos debo escribir el día y mes de hoy.
Gracias por tu tiempo.
Range("A1").Activate
ActiveCell.Cells.FormulaR1C1 = formatoFecha(Now())
Sin embargo no escribe ni muestra nada. En todo caso, como lo tenía está bien, así soluciona mi problema:
Private Sub TextBox24_Change()
largo_entrada = Len(Me.TextBox24)
'Pone guión en fecha 00-00-2000
Select Case largo_entrada
Case 2
Me.TextBox24.Value = Me.TextBox24.Value & "-"
Case 5
Me.TextBox24.Value = Me.TextBox24.Value & "-2009"
End Select
Range("P2").Select
ActiveCell.FormulaR1C1 = TextBox24
Selection.NumberFormat = "dd/mm/yyyy;@"
End Sub
... solo que cada vez que ingreso datos debo escribir el día y mes de hoy.
Gracias por tu tiempo.
Private Sub TextBox24_Change()
textbox24.text=now()
largo_entrada = Len(Me.TextBox24)
'Pone guión en fecha 00-00-2000
Select Case largo_entrada
Case 2
Me.TextBox24.Value = Me.TextBox24.Value & "-"
Case 5
Me.TextBox24.Value = Me.TextBox24.Value & "-2009"
End Select
Range("P2").Select
ActiveCell.FormulaR1C1 = TextBox24
Selection.NumberFormat = "dd/mm/yyyy;@"
End Sub
Mira si así te funciona
Si no corta lo que te señale y lo pones dentro de botón que tengas para ejecutar tu formulario
textbox24.text=now()
largo_entrada = Len(Me.TextBox24)
'Pone guión en fecha 00-00-2000
Select Case largo_entrada
Case 2
Me.TextBox24.Value = Me.TextBox24.Value & "-"
Case 5
Me.TextBox24.Value = Me.TextBox24.Value & "-2009"
End Select
Range("P2").Select
ActiveCell.FormulaR1C1 = TextBox24
Selection.NumberFormat = "dd/mm/yyyy;@"
End Sub
Mira si así te funciona
Si no corta lo que te señale y lo pones dentro de botón que tengas para ejecutar tu formulario
