Señores,

Buenas Noches , casi de madrugada aquí en Chile.

Ciertamente hay varios ejemplos de como eliminar datos duplicados, mi tema razón de mi nueva solicitud de ayuda, es mas complejo. Aúnque manualmente se puede hacer .....requiere de tiempo.

Espero con vuestra ayuda esto se pueda optimizar con una macro.

Llevo años trabajando de la misma forma, todo es manual paso tras paso...

Por ejemplo en la planilla que se adjunta hago lo siguiente.

1.- Selecciono la columna J desde J2:J85 para este caso.( esto puede varias según la cantidad de datos).

2.- Aplico Formato a las celdas que contienen: "Duplicar".......valores con..."Relleno rojo claro con texto oscuro".

3.- Ordeno por la misma columna y procedo a sumar las cantidades del código que se repite y elimino completamente la otra fila.

Así uno a uno voy sumando y eliminando.

ver hoja1 "mueble1".... el resultado se muestra en hoja2 "resultado final"

ojala puedan ayudarme nuevamente ó darme una mejor idea.

saludos desde Chile.

JuanF.

mueble1.xls

Hola Juan, es simple con funciones nativas, que pueden mecanizarse:

1. Copiar hoja muebles: clic derecho en pestaña mueble1 y mover/copiar

2. Eliminar duplicados

3. Aplicar en Columna B la funcion SUMAR.SI

Haciendolo con la grabadora de macros obtendras un codigo que quedara como este despues de depurarlo

Sub Muebles()

    Sheet1.Copy Before:=Sheets(1)

    ActiveSheet.Range("$A$1:$K$46").RemoveDuplicates Columns:=3, Header:=xlYes

    Range("$B$2:$B$46").Formula = "=SUMIF(mueble1!C$2:C$46,C2,mueble1!B$2:B$46)"

End Sub

[/CODE]

.

vamos a trabajar.....