PARA DAM escoger fecha en un combo
para DAM , me puedes echar una mano en esta tabla , necesito poder escoger por fecha de creación y que me salgan todos los registros que correspondan a la fecha que ponga en el como
y una vez que tengo los de esa fecha que en el combo que ya tengo de suministrador tambien ( si lo deseo ) poder escoger el suministrador que quiera de los que tengo en esa fecha y me salga solo ese
Respuesta de Dante Amor
2
Te anexo la macro para filtrar por fecha. Crea una nueva pregunta para filtrar por suministrador.
Dim cambiar, formato
'
Private Sub ComboBox2_Change()
'Por.Dante Amor
If formato = False Then
cambiar = True
Set h1 = Sheets("PEDIDOS A RECLAMAR")
Set h2 = Sheets("PLANTILLA")
Set h3 = Sheets("fechas")
If h1.FilterMode Then h1.ShowAllData
'
formato = True
ComboBox2 = Format(ComboBox2, "dd/mm/yyyy")
formato = False
'
u2 = h2.Range("N" & Rows.Count).End(xlUp).Row
If u2 = 1 Then u2 = 2
h2.Range("A2:N" & u2).Clear
'
u1 = h1.Range("N" & Rows.Count).End(xlUp).Row
h1.[N1].Copy h3.[B1]
If ComboBox2 = "" Then Exit Sub
h3.[B2] = CDate(ComboBox2)
'
If h1.FilterMode Then h1.ShowAllData
h1.Range("A1:O" & u1).AdvancedFilter _
Action:=xlFilterInPlace, CriteriaRange:=h3.Range("B1:B2"), Unique:=False
u1 = h1.Range("A" & Rows.Count).End(xlUp).Row
h1.Range("A2:N" & u1).Copy h2.[A2]
End If
End Sub
'
Private Sub ComboBox2_DropButtonClick()
'Por.Dante Amor
If cambiar = False Then
Set h1 = Sheets("PEDIDOS A RECLAMAR")
Set h2 = Sheets("fechas")
h2.Columns("A").Clear
h1.Columns("N").Copy h2.[A1]
'
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
h2.Range("A1:A" & u2).RemoveDuplicates Columns:=1, Header:=xlYes
With h2.Sort
.SortFields.Clear
.SortFields.Add Key:=h2.Range("A1"), _
SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortTextAsNumbers
.SetRange h2.Range("A2:A" & u2)
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
u2 = h2.Range("A" & Rows.Count).End(xlUp).Row
ComboBox2.ListFillRange = h2.Name & "!A2:A" & u2
End If
End SubLa macro va en los eventos de la hoja "Plantilla" y deberás tener una hoja nueva llamada "fechas" para poder cargar y filtrar las fechas.
Saludos. Dante Amor
Recuerda valorar la respuesta.
