evitar repeticiones en SORT

polboy_mx

New Member
Joined
Oct 7, 2004
Messages
33
hoal use este codigo y me funciono bien pero quisiera que los resultados del rango B4 y C4 no se repitieran y los del rango D4 se ordenaran (ascendente o descendente)

Range("A4:I5000").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("C4") _
, Order2:=xlAscending, Key3:=Range("H4"), Order3:=xlDescending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("B3").Select
gracias
 

Excel Facts

Add Bullets to Range
Select range. Press Ctrl+1. On Number tab, choose Custom. Type Alt+7 then space then @ sign (using 7 on numeric keypad)
¿Qué desea hacer con líneas donde B y C son repetidos? ¿Sortearlas al fondo de la lista? ¿Esconderlas? ¿Suprimirlas?
 
Upvote 0
Orden para reporte

Gracias Greg por contestar, necesito generar un "reporte para imprimir o ver en pantalla" donde la columna B tiene el nombre de una persona y la columna C el articulo que compro pero que los presente con el orden de la columna B es decir NO REPETIR en cada linea el nombre que es el mismo en muchas de ellas. Si esta Ud. de acuerdo podria mandarle mi hoja para mejor entendimiento.
 
Upvote 0
Si hablamos de impresión nada más lo más sencillo sería hacer un formateo condicional donde si estoy iqual a mi vecino superior el color de mi font es blanco. ¿Me entiende o explico más?
 
Upvote 0
Bueno, digamos que su hoja tiene una forma parecida a ésto:
Book1
BCDEF
1NombreProductoN de OrdenFechaCant.
2Fulano de Tal y TalCacaoA-1231-May-0518
3Fulano de Tal y TalCacaoA-1242-May-0528
4Fulano de Tal y TalCacaoA-1254-May-0514
5Fulano de Tal y TalCafA-1242-May-0529
6Fulano de Tal y TalCafA-22220-May-0522
7Fulano de Tal y TalCafA-33330-May-0524
8Fulano de Tal y TalPiaA-1231-May-0528
9Fulano de Tal y TalPiaA-33330-May-0518
10Mara Garca C.CafB-0011-May-0526
11Mara Garca C.CafB-0022-May-0514
12Mara Garca C.CafB-0033-May-0516
13Mara Garca C.PiaB-0033-May-0514
14Mara Garca C.PiaB-0044-May-0518
Sheet1


Si usted selecciona el rango B2:C14 y luego (le digo los comandos del menú en inglés porque no tengo Excel en español) escoge Format ¿formatear? | Conditional Format ¿formateo condicional? y luego Cell Value is ¿Valor es? y Equal to ¿iqual a? y tecla =B1 y selecciona un color blanco para el color de la letra y un color blanco para el fondo de la celda, así debe darle una apariencia así:
Book1
BCDEF
1NombreProductoN de OrdenFechaCant.
2Fulano de Tal y TalCacaoA-1231-May-0518
3Fulano de Tal y TalCacaoA-1242-May-0528
4Fulano de Tal y TalCacaoA-1254-May-0514
5Fulano de Tal y TalCafA-1242-May-0529
6Fulano de Tal y TalCafA-22220-May-0522
7Fulano de Tal y TalCafA-33330-May-0524
8Fulano de Tal y TalPiaA-1231-May-0528
9Fulano de Tal y TalPiaA-33330-May-0518
10Mara Garca C.CafB-0011-May-0526
11Mara Garca C.CafB-0022-May-0514
12Mara Garca C.CafB-0033-May-0516
13Mara Garca C.PiaB-0033-May-0514
14Mara Garca C.PiaB-0044-May-0518
Sheet1 (2)


Espero que le ayude,
 
Upvote 0
Greg:
Su solucion es elegante, senciall y...perfecta! La empezare a usar, desde hoy en adelante! Muchas gracias!
 
Upvote 0
Excelente

Como decimos en Mexico "Ni mandado a hacer"
GREG la solucion es brillante y como dice el amigo Ralph ELEGANTE, la aplico de inmediato para mi hoja.
 
Upvote 0

Forum statistics

Threads
1,224,813
Messages
6,181,114
Members
453,021
Latest member
Justyna P

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top