Saltar al contenido

Filtro avanzado con excepción

Featured Replies

publicado
  • 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

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

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
  • 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

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.