Buscar un datos iguales en la misma columna y sumar valores

Que tal nuevamente recurro a ustedes solicitando su ayuda, bien por favor su podrían ayudarme a saber como le puedo hacer para lo siguiente:
Tengo una hoja llamada acumulado, en ella esta la columna A, la columna B y una columna llamada ubicación
A B Ubicación
Rosas 10 A10
Rosas 50 R15
Margaritas 2 T08
Tulipanes 100 L12
Girasoles 5 L11
Tulipanes 52 R07
Gardenias 8 S02
Tulipanes 1 W02
Y tengo una hoja más dentro del mismo libro llamada Cifras, mi pregunta es como puedo hacerle para que en esta hoja me muestre en una columna el contenido de la columna A d la hoja "acumulado" y sume el total de cada tipo de flor para ponerlo en la columna B, la tabla quedaría asi:
Rosas 60
Margaritas 2
Tulipanes 153
Girasoles 5
Gardenias 8
Se que lo podría realizar con una tabla dinámica, pero la verdad me gustaría mas realizarlo mediante alguna formula dentro de una macro.
¿Creen qué me podrían ayudar?

1 respuesta

Respuesta
1

Esta macro hace lo que necesitas, y te deja con formula los valores que suma, si lo quieres no con formula sino solo valores habría que hacerle un cambio,, pero me avisas que es lo que necesitas.

Sub Acumula()
Sheets("acumulado").Select
Columns("A:A").Copy
Sheets("Cifras").Select
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$A$65000").RemoveDuplicates Columns:=1, Header:=xlNo
k = Range("A" & Cells.Rows.Count).End(xlUp).Row
Range("B1").Select
ActiveCell.FormulaR1C1 = "=SUMIF(acumulado!C[-1],cifras!RC[-1],acumulado!C)"
Range("B1").Copy
Range("B1:B" & k).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B1").Select
End Sub

Hola q tal, ok muchas gracias corre perfecto la macro y muy entendible, me encantria si me mandas la modificación para que haga el calculo con valores, espero no sea mucha molestia. Excelente día.

Sub Acumula()
Sheets("acumulado").Select
Columns("A:A").Copy
Sheets("Cifras").Select
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveSheet.Range("$A$1:$A$65000").RemoveDuplicates Columns:=1, Header:=xlNo
k = Range("A" & Cells.Rows.Count).End(xlUp).Row
Range("B1").Select
ActiveCell.FormulaR1C1 = "=SUMIF(acumulado!C[-1],cifras!RC[-1],acumulado!C)"
Range("B1").Copy
Range("B1:B" & k).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B1:B" & k).Copy

Range("B1").Select
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Copiar De una hoja a otra datos determinados

Y a ver si me podéis ayudar porque llevo mucho rompiéndome la cabeza con esto y no consigo saber si se puede hacer. Tengo un libro con dos hojas. En la primera (Hoja 1) Tengo una "base de datos" en la que en la que: Columna A :Nombre productos;...
1 respuesta

Macro Copiar Valores Únicos de una hoja a otra hoja de excel

He estado batallando con una macro. La vdd apenas me voy iniciando en esto. Quería preguntar si existe alguna forma de que la macro permita copiar en una hoja solo los valores únicos de otra hoja dentro de un mismo libro. El objetivo de mi libro es...
1 respuesta

Listbox con datos no repetidos

Tengo un listbox que me trae los números de las facturas pendientes de pago los cuales se encuentran en una hoja llamada "SALDO PENDIENTE", por ello en el Listfillrange tiene la siguiente instuccion: 'CONFIG. PAGOS'!$K$2:$k$1000 Los números de las...
1 respuesta

Macro. Agrupar datos repetido y sumarlos. Excel

Código color valor AAAA AZUL $120.000 TTTT VERDE $110.000 AAAA AZUL $100.000 AAAA AZUL $ 200.000 TTTT NEGRO $ 665.000 Hola. Necesito una macro que me sume los valores cuando coincidan el código y el color. Es decir me fusione en una AAAA AZUL $...
1 respuesta

¿Cómo combino dos macros que hacen lo que necesito?

Tengo que aplicar dos macros a muchos archivos en excel, Pero es laborioso estar haciendo manualmente algunos procesos para las macros. ¿Cómo fusiono estas dos macros? ¿Se requiere de hacer una nueva macro? Me refiero a las macros de las dos...
1 respuesta

Como puedo sumar valores de una columna en relación a los valores de otra con excel VBA

Necesito su ayuda para resolver un problema que tengo, recibo unos reportes diarios de los cuales necesito tomar una información y no se como hacerle para que una macro en vba pueda hacerlo, tengo unas columnas como estas: Plot Units Orden 6724 245...
1 respuesta

Enviar datos a otra columna sin duplicados,

Resulta que en una columna tengo estos datos así (solo pondré 10 datos pero en realidad son 300) 1 2 4 6 1 7 8 9 4 1 Ahora quiero enviar estos datos a otra columna pero no en la misma pestaña de excel, si no que en otra pestaña, pero sin que se...
2 respuestas