Estimados,
Junto con saludar, tengo la siguiente consulta:
Cree esta formula en F4, =SUMA(FILTRAR(C2:C199;AÑO($A$2:$A$199)=AÑO(C1))) que suma valores de una tabla en función del AÑO ubicado en C1 y ubicado en A2:A199 (ver excel adjunto).
Lo que necesito ahora, es que los valores contenidos en C2:C199 que tienen una Moneda en la columna B2:B199 que puede ser EUR o USD, tenga conversión de valor en función de una tabla auxiliar ubicada en E9:H11.
El resultado esperado sería 160.000.
Saludos y de antemano, muchas gracias!Ejemplo sumar con Tipo de cambio.xlsx
Por
Matías86, · publicado
GRUPO AYUDA EXCEL
DIOS LOS BENDIGA Y TENGAN USTEDES UN EXCENTE DIA
TENGO EL SIGUIENTE CODIGO
Y EN RANGO DONDE DESEO COPIAR ES HASTA LA COLUMNA N =CopyToRange:=Range("A5:J2000") CAMBIO EL RANGO A "A5:N2000"
Y ME SALE ERROR QUE NO ME PERMITE EJECUTAR LA MACRO
SI ALGUIEN PODRIA AYUDAR A MEJORAR EL CODIGO O TALVEZ ESTOY OMITIENDO ALGO
DE ANTE MANO GRACIAS
Sub CONSULTA_DOC()
'
' CONSULTA_DOC Macro
'
' Acceso directo: Ctrl+Mayús+F
'
Sheets("DIARIO").Range("A5:N10000").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("Z5:AA6"), CopyToRange:=Range("A5:J2000"), _
Unique:=False
Range("A6").Select
Range(Selection, Selection.End(xlDown)).Select
Range("A6:N225").Select
ActiveWorkbook.Worksheets("CONSULTA X DOC").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("CONSULTA X DOC").Sort.SortFields.Add Key:=Range( _
"A6:A225"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("CONSULTA X DOC").Sort
.SetRange Range("A5:N225")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A5").Select
End Sub
EJEMPLO.xlsm