Fecha de textbox a un rango con formato fecha
Resulta que tengo un textbox en formato fecha y paso ese información a una celda, pero me toca cada ves entrar a la hoja y dar doble clic para que pueda quedar en este formato e incluirse al momento de hacer un filtro en el campo de mes me explico.
Private Sub CommandButton1_Click()
Range("A1:A3") = Format(TextBox1.Value, "dd/mm/yyyy")
End Sub
Private Sub UserForm_Initialize()
TextBox1 = Format(Now(), "dd/mm/yyyy")
End Suby esto es lo que sucede
El primer registro en rango b2 le di doble clic y me quedo en formato fecha, así aparece en el filtro dentro del mes de octubre como día 22 el otro registro b3 esta en el filtro por fuera del mes esto no me funciona ni para filtro ni para tabla dinámica.
Aguien me podría orientar como solucionar este detalle
2 respuestas
H o l a:
La información que pones en un textbox, es un texto, aunque le pongas formato al textbox, lo que está contenido dentro del textbox, sigue siendo un texto, lo mismo ocurre con un listbox o un combobox.
Lo que se tiene que hacer es pasar ese texto a fecha, utiliza lo siguiente:
Private Sub CommandButton1_Click()
Range("A1:A3") = CDate(TextBox1)
End Sub
Private Sub UserForm_Initialize()
TextBox1 = Format(Now(), "dd/mm/yyyy")
End SubLa función CDate( ) convierte un texto fecha en un fecha real.
