publicado el 28 de enero11 años 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
publicado el 28 de enero11 años @[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
publicado el 28 de enero11 años Autor 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]
publicado el 28 de enero11 años 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)
publicado el 28 de enero11 años 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
publicado el 28 de enero11 años Autor @[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
publicado el 28 de enero11 años 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
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