Filtrar o Buscar datos por rango de fecha en el Formulario VBA en Excel Cap 44 #sepamosexcelvba #vba

Para obtener la fecha actual en VBA utilizamos la función Date y para obtener la hora actual usamos Now. En este ejemplo las variables fechaActual y horaActual contienen la fecha y horas actuales respectivamente.
#sepamosexcel #sepamosexcelvba #vbasepamosexcel #sepamosexcelcurso #sepamosexcelviral #excelsepamos #sepamosexcelmacros #excelsepamos #vbasepamosexcel #excel #usarexcel #excelavanzado #excelintermedio #sepamosexcelcapacitacion #capacitacionsepamosexcel #sepamosexcelcapacitaciones #capacitacionessepamosexcel #capacitacionexcel #excelcapacitacion #capacitacionesexcel #excelcapacitaciones #datos #basededatos #cursodeexcel #datosenexcel #formulario #sepamosexcelbuenaventura #sepamosexcelcolombia #formulariosvbaexcel #vbaexcel #excelvba #excelvbatutorial #excelvbs #visual #visualbasic #visualbasicvba #cursodeexcel #cursovba #excelyvba #vbayexcel #vba #cursovba #vbacurso #sepamosexcelbasico #sepamosexcelintermedio #sepamosexcelavanzado #basicosepamosexcel #intermediosepamosexcel #avanzadosepamosexcel #excelsepamos #visual #visualbasic #programacionvba #vbaprogramacion #cursodevba #cursodevba #userform #basic #usarexcel #macrosvba #excelmacros #excelvbamacros #textboxexcel #textbox #label #labelvba #listboxexcel #listbox #combobox #listbvba #comboboxvba #rgb #backcolor #forecolor #listview #listviewvba #click #checkbox #checkboxvba #vbacheckbox #commandbutton #commandbuttonvba #vbacommandbutton #cap44
------------------------------------
------------------------------------
------------------------------------
------------------------------------

[camiloreyes]

Gracias por mostrarnos como filtrar fecha en el formulario vba 👌💪👍

[carloscortez]

Excelente forma de hacer la filtración 👍💪👌

[davidmunera]

me gusta la manera como filtra la fecha de una forma muy buena 👌👏

[olgamunera]

buena forma de filtrar fecha me gusta como se aplica

[olgamunera]

muy bien explicado mil felicidades profe

[brendavalencia]

muy interesante la forma como lo haces se puede filtrar la fecha e VBA

[brendamelissavalenciarueda]

fenomenal como lo haces me gusta la forma como se filtra algo muy util 👍

[soportetareasex]

super bueno lo que haces como se filtra la fecha

[soporte]

buena forma de hacer la filtración por fecha me gusta como la haces 👍

[excelmacros]

super bueno la manera de filtrar fecha 👏

[franciscozeballoszopilote]

hola, muy buena explicacion, puedo agregarle a esto para que ademas de filtrar el rango, lo haga, teniendo en cuenta lo que vendio por ejemplo, juan segun su estado que lo tengo en un combo ("cobrado, pendiente, cancelado")---el resultado seria:juan vendio desde el 5 al 7 (por ejemplo)..todo lo que en estado sea cobrado--

[dannypiscoya]

Estimado buen día, excelente video 👍
Tengo una consulta, por favor podrías realizar dentro del mismo video lo siguiente:
Al momento de filtrar los datos por rango de fecha, se muestra los resultados en listbox, tomar un dato filtrado para realizar una modificación y que se muestra esa modificación en mi listbox y en la base de datos de excel.
Quedo atento a tu respuesta
Muchas gracias

[alfonsork]

me sirvio de gran ayuda es justo lo que necesitaba, tengo una pregunta, se puede imprimir en papel esos datos que se filtran por fecha juntol con los encabezados?

[juanpinto]

Hola buen día, como se puede hacer el filtrado de las fechas en la hoja en vez del ListBox? Agradecería tu respuesta

[williamrodriguez]

Cómo se puede filtrar si son más de 10 columnas ?

[gersonastuaramirez]

no me funciona esta linea Fila = Lavadas.Range("A" & Rows.Count).End(xlUp).Row
me tira error

[yeinnycastillo]

No me funciona, no se que estoy haciendo mal:

Private Sub FILTRAR_Click()

Dim FILA As Long, I As Long

FILA = Hoja8.Range("B" & Rows.Count).End(xlUp).Row

For I = 10 To FILA

If CDate(Hoja8.Cells(I, 8)) >= CDate(INICIAL) And CDate(Hoja8.Cells(I, 8)) <= CDate(FINAL) Then 'ESTO ME SALE COMO SI ESTUVIERA MAL'
Me.ListaDotacion.AddItem
Me.ListaDotacion.List(Y, 0) = Hoja8.Cells(I, 2).Value
Me.ListaDotacion.List(Y, 1) = Hoja8.Cells(I, 3).Value
Me.ListaDotacion.List(Y, 2) = Hoja8.Cells(I, 4).Value
Me.ListaDotacion.List(Y, 3) = Hoja8.Cells(I, 5).Value
Me.ListaDotacion.List(Y, 4) = Hoja8.Cells(I, 6).Value
Me.ListaDotacion.List(Y, 5) = Hoja8.Cells(I, 7).Value
Me.ListaDotacion.List(Y, 6) = Format(Hoja8.Cells(I, 8), "DD/MM/YYYY")
Me.ListaDotacion.List(Y, 7) = Hoja8.Cells(I, 9).Value
Me.ListaDotacion.List(Y, 8) = Hoja8.Cells(I, 10).Value
Me.ListaDotacion.List(Y, 9) = Hoja8.Cells(I, 11).Value
Y = Y + 1
End If

Next I

End Sub