Macro Consolidar Ventas por Vendedor
Consolidar/Resumen Ventas por Vendedor
Para Dante Amor
Se requiere macro que totalice las ventas por vendedor:
Se tiene dos archivos A.xlsx y B.xlsx donde:
A.xlsx
A B
Código Vendedor Total Ventas
1
2
n registros
B.xlsx
A B C
Id Vendedor FECHA VENTA VALOR VENTA
1 18/01/2017 10
2 10/01/2017 20
1 19/01/2017 10
4 18/03/2017 40
2 10/06/2017 5
k registros
RESULTADO EN:
A.xlsm
A B
Id Vendedor Total Ventas
1 20 =====) celda B7
2 25 =====) B8
4 40=====) B9
n ...................................
TOTAL 85
2 respuestas
Pon la macro en el libro "a.xlsm". En la macro tienes que poner los nombres de la hoja destino, el nombre del libro con las ventas y la hoja con las ventas.
El libro "b.xlsx" deberá estar abierto
Sub Totales_Por_Vendedor()
'Por.Dante Amor
Set l1 = ThisWorkbook
Set h1 = l1.Sheets("Hoja1") 'hoja destino para consolidar
l2 = "b.xlsx" 'archivo con las ventas
h2 = "Hoja1" 'hoja con las ventas
'
u = h1.Range("A" & Rows.Count).End(xlUp).Row
With h1.Range("B7:B" & u)
.FormulaR1C1 = _
"=SUMIF([" & l2 & "]" & h2 & "!R2C1:R6C1,RC[-1],[" & l2 & "]" & h2 & "!R2C3:R6C3)"
.Value = .Value
End With
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
