Filtro avanzado con excepción

[daferius]

Hola a todos

A ver si me pueden ayudar con esto. Necesito filtrar un único registro el más actual de la base de datos y ordenar el filtro por fecha de mayor a menor. Adjunto archivo.

Saludos

Filtrar con condición de excepción.xls

[bigpetroman]

@[uSER=106772]daferius[/uSER], revisa el anexo; hacerlo directamente con el filtro NO se puede, pero luego del filtro simplemente ordenas y eliminas los duplicados, espero te sirva

recuerda darle al botón Me Gusta si te ha servido la respuesta

Filtrar con condición de excepción_sm.xls

[daferius]

Ok @[uSER=133908]bigpetroman[/uSER], funciona, pero tengo algo sólo quiero ordenar por fecha de mayor a menor. Te cuento que le hice un cambio porque lo buscaba es que quede simpre el registro más nuevo o el último ingresado. Te adjunto el código, ayudame con el orden por fecha que no se me aplica en mi hoja.

Saludos

Fernando

Sub Completar()

    Dim nFilaFin As Double

    Dim nFila As Double


    nFilaFin = Worksheets("REGISTRO").Range("B" & Rows.Count).End(xlUp).Row

    If nFilaFin > 22 Then

        'Ordenas por cliente y fecha (Solo fecha de mayor a menor)

        Worksheets("REGISTRO").Range("B21:G" & nFilaFin).Sort _

            Key1:=Worksheets("REGISTRO").Range("F21"), Order1:=xlDescending, _

            Header:=xlGuess, OrderCustom:=1, MatchCase:= _

            False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal

        '(B21:G) rango del resultado incluido encabezados y (F21) Columna de fecha.

        'recorres las filas hasta el final para eliminar los duplicados

        nFila = 22

        Do While Worksheets("REGISTRO").Range("B" & nFila).Value <> ""

            If Worksheets("REGISTRO").Range("B" & nFila).Value = Worksheets("REGISTRO").Range("B" & nFila + 1).Value _

            And Worksheets("REGISTRO").Range("B" & nFila + 1).Value <> "" Then

                Worksheets("REGISTRO").Range("B" & nFila).EntireRow.Delete xlUp

            Else

                nFila = nFila - 1

            End If

        Loop

        nFilaFin = Worksheets("REGISTRO").Range("B" & Rows.Count).End(xlUp).Row

    End If

End Sub

[/CODE]

[bigpetroman]

pues no se realmente que quieres, la macro hace eso, ordena por cliente (de menor a mayor) y proxima fecha de contacto (de mayor a menor), a menos que quieras ordenar por otra fecha (pero no soy adivino)

[bigpetroman]

y otra cosa, en esa macro que acabas de copiar usas una hoja llamada REGISTRO que NO está en el archivo y no puedo ayudar con algo que no veo

[daferius]

@[uSER=133908]bigpetroman[/uSER], te comento que había ingresado mal las columnas en mi hoja de datos por eso no se ordenaba. Pero ya esta y funciona a la perfección, gracias por tu tiempo y apoyo eres un genio.

Saludos

Fernando

[bigpetroman]

me alegra, TEMA SOLUCIONADO

Recuerda que nunca esta de mas darle al botón Me Gusta, es una forma de demostrar el agradecimiento por la ayuda prestada, suerte