Como sumar conceptos con Macros
Necesito sumar una gran cantidad de códigos que tienen muchos conceptos y varias condiciones.
Utilizo 3 hojas; Base, Control y Variables.
Desde un programa se extrae la información que se trabaja en Excel.
Cuando pego la información extraida en excel, hoja Base, se necesita que en forma automática se genere el concepto que corresponde a cada código y lo deje en la celda I. En la hoja Variables se encuentran los conceptos que corresponden a cada código.
Posteriormente en la hoja Control deberá validarse la información dejada en la hoja Base. Para esto se sumarán los valores con 3 condiciones especificadas, descripción, soc e id en la celda D.
Siempre limpiar la hoja antes de generar los conceptos:
Hoja Base completa. (En celda I1 debe generarse cada vez la palabra “Concepto”)
Hoja Control se debe limpiar sólo celda D. ( en celda D1 debe generarse cada vez la palabra “Total”)
Se envía archivo con ejemplo.
Se envió archivo con antecedentes solicitados.
Te anexo la macro para buscar conceptos
Sub BuscarConcepto()
'Por.Dante Amor
Sheets("BASE").Select
With Range("I2:I" & Range("D" & Rows.Count).End(xlUp).Row)
.FormulaR1C1 = "=VLOOKUP(RC[-5],VARIABLES!R2C2:R14C4,3,FALSE)"
.Value = .Value
End With
MsgBox "Fin"
End Sub
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
