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 

1

1 respuesta

Respuesta
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 Sub

La 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.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas