Quitar datos duplicados

hola, Alex !

... lista ... columna A de categorias y ... columna B la cantidad de cada categoria. ... categorias ... duplicadas [...]
... necesito una macro que sume las cantidades de las categorias duplicadas y elimine estos duplicados [...]

la siguiente rutina [teniendo seleccionada alguna celda 'dentro' del rango 'Ax:Bz']
1.- ['necesariamente'] ordena en base a las categorias
2.- selecciona la primer celda del rango [¿a?]
3.- 'acumula' en la siguiente columna [¿b?] el valor de la siguiente 'categoria' ['b_siguiente'] =>si 'misma' categoria]
3.- 'elimina' la categoria 'acumulada' y 'repite el bucle' -o- 'baja' a la siiguiente categoria e 'inicia' un nuevo bucle
[modifica lo que sea 'necesario'] :))
______
Sub Acumular_Categorias()
ActiveCell.CurrentRegion.Select
Selection.Cells(1, 1).Activate
Selection.Sort Key1:=ActiveCell
ActiveCell.Select
Do
If ActiveCell = ActiveCell.Offset(1) Then
ActiveCell.Offset(, 1) = ActiveCell.Offset(, 1) + ActiveCell.Offset(1, 1)
ActiveCell.Offset(1).EntireRow.Delete
Else
ActiveCell.Offset(1).Select
End If
Loop Until ActiveCell = ""
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.

p.d. si NO deseas eliminar la fila COMPLETA... 'cambia' la linea 'correspondiente'...
de =>ActiveCell.Offset(1).EntireRow.Delete< a =>Range(ActiveCell.Offset(1), ActiveCell.Offset(1, 1)).Delete<

Hola Hector,

Se que a mi nadie me había dado vela en este entierro,
pero pasaba por aquí, he visto la solución que le has
dado al compañero, y resulta que yo necesitaba algo
similar. He cambiado algunas cosas de tu rutina, para que
hiciera lo que yo necesitaba, y me ha ido genial.

Se que este mensaje no aporta nada nuevo, pero era
simplemente por agradecer el esfuerzo de gente como tu
que ayudais a los que aun no lo sabemos todo... ;)

Gracias de nuevo,

JORDI

hola, Alex !

... lista ... columna A de categorias y ... columna B

la cantidad de cada categoria. ... categorias ...
duplicadas [...]

... necesito una macro que sume las cantidades de las

categorias duplicadas y elimine estos duplicados [...]

la siguiente rutina [teniendo seleccionada alguna

celda 'dentro' del rango 'Ax:Bz']

1.- ['necesariamente'] ordena en base a las categorias
2.- selecciona la primer celda del rango [¿a?]
3.- 'acumula' en la siguiente columna [¿b?] el valor de

la siguiente 'categoria' ['b_siguiente'] =>si 'misma'
categoria]

3.- 'elimina' la categoria 'acumulada' y 'repite el

bucle' -o- 'baja' a la siiguiente categoria
e 'inicia' un nuevo bucle

[modifica lo que sea 'necesario'] :))
______
Sub Acumular_Categorias()
ActiveCell.CurrentRegion.Select
Selection.Cells(1, 1).Activate
Selection.Sort Key1:=ActiveCell
ActiveCell.Select
Do
If ActiveCell = ActiveCell.Offset(1) Then
ActiveCell.Offset(, 1) = ActiveCell.Offset(, 1) +

ActiveCell.Offset(1, 1)

ActiveCell.Offset(1).EntireRow.Delete
Else
ActiveCell.Offset(1).Select
End If
Loop Until ActiveCell = ""
End Sub
šššššššššššššš
saludos,
hector.

p.d. si NO deseas eliminar la fila COMPLETA... 'cambia'

la linea 'correspondiente'...

de =>ActiveCell.Offset(1).EntireRow.Delete<> a =>Range(ActiveCell.Offset(1), ActiveCell.Offset(1,

1)).Delete<>

.

hola, jordi !

... pasaba por aqui ... necesitaba algo similar. He cambiado algunas cosas ... y me ha ido genial.

'esa' es la parte genial de estos foros... => ¡ de todos... para todos !!! <= :))

... este mensaje no aporta nada nuevo ... simplemente por agradecer el esfuerzo de gente ... que ayudais [...]

SI hay 'algo nuevo' [que pocas veces 'se da'] ... [y creo que NO 'requiere' mas comentarios]

Gracias a ti, y a todos los que 'responden' con un 'feed-back' [cuando una propuesta ha podido ser de utilidad]

saludos,
hector.