Escoger fecha de un combo
Necesito coger la fecha de un combo, osea, poner la fecha y que me devuelva los datos correspondientes a esa fecha
De una solapa de un fichero, ahora lo tengo echo pero me sale la fecha como texto y no la encuentro
En todoa caso si no fue posible pober la fecha, que al abrir el combo, este oredando por fecha de más actual a más antigua
Siendo la primera que me sale la del día de la fecha actual, pero me gustaría más que la pudiera poner y me salgan solo los resultados conrrespondientes a esa fecha
Te anexo la macro para ordenar la fecha de mayor a menor.
Private Sub ComboBox1_DropButtonClick()
'Por.Dante Amor
If cambiar Then
cambiar = False
Exit Sub
End If
Application.ScreenUpdating = False
Set h1 = Sheets("PEDIDOS A RECLAMAR")
Set h2 = Sheets("PLANTILLA-FECHA")
Set h3 = Sheets("filtro")
'
h3.Cells.Clear
ComboBox1.Clear
h1.Columns("N:N").Copy h3.[A1]
u3 = h3.Range("A" & Rows.Count).End(xlUp).Row
With h3.Sort
.SortFields.Clear
.SortFields.Add Key:=h3.Range("A2"), _
SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortTextAsNumbers
.SetRange h3.Range("A1:A" & u3)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
h3.Range("A1:A" & u3).RemoveDuplicates Columns:=1, Header:=xlYes
u3 = h3.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To u3
h2.ComboBox1.AddItem h3.Cells(i, "A")
Next
Application.ScreenUpdating = True
cambiar = False
End SubSaludos.Dante Amor
Recuerda valorar la respuesta.
Te anexo la macro actualizada.
Private Sub ComboBox1_DropButtonClick()
'Por.Dante Amor
If cambiar Then
cambiar = False
Exit Sub
End If
Application.ScreenUpdating = False
Set h1 = Sheets("PEDIDOS A RECLAMAR")
Set h2 = Sheets("PLANTILLA-FECHA")
Set h3 = Sheets("filtro")
'
h3.Cells.ClearContents
ComboBox1.Clear
h1.Columns("N:N").Copy
h3.[A1].PasteSpecial Paste:=xlValues
u3 = h3.Range("A" & Rows.Count).End(xlUp).Row
With h3.Sort
.SortFields.Clear
.SortFields.Add Key:=h3.Range("A2"), _
SortOn:=xlSortOnValues, Order:=xlDescending, _
DataOption:=xlSortTextAsNumbers
.SetRange h3.Range("A1:A" & u3)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
h3.Range("A1:A" & u3).RemoveDuplicates Columns:=1, Header:=xlYes
u3 = h3.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To u3
h2.ComboBox1.AddItem h3.Cells(i, "A")
Next
Application.ScreenUpdating = True
cambiar = False
End SubEsta es la parte que actualicé en la macro, para que no borre el formato de fecha y copie valores.
h3.Cells.ClearContents h3.[A1].PasteSpecial Paste:=xlValues
Saludos.Dante Amor
Recuerda valorar la respuesta.
