sumar segun criterio dentro de un macro

hola

aunque hay formas seguro que mucho mejores (incluso sin codigo), si
quieres pega este codigo en un modulo normal y adjudicaselo a un boton
o ejecutalo con F5 (en un archivo de prueba)

se supone que la hoja se llama "Hoja1" y que los datos estan en las
columnas
A->proveedor y B->precio y que los datos empiezan en la fila 2

Sub testTotalizar()
Dim celda As Range, f As Long, l As Long
Application.ScreenUpdating = False
With Worksheets("Hoja1")
f = .[a65536].End(xlUp).Row
For Each celda In .Range("a2:a" & f)
For l = f To celda.Row + 1 Step -1
If .Range("a" & l) = celda Then
With celda.Offset(0, 1)
.Value = .Value + Worksheets("Hoja1") _
.Range("b" & l)
End With
.Range("a" & l).EntireRow.Delete
End If
Next
Next
End With
End Sub

espero que te valga

un saludo y hasta pronto
ivan

ha escrito: