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
Buenos días
Podríais ayudarme a refinar esta macro que realice con la grabadora.
Gracias
Sub MetodoAbrirLibro() Workbooks.Open "C:\Users\jctorres\Desktop\pruebas partes automaticos\C2020-0138_Carga_Horas (1)2.xls" Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("A8:f78").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("Personal").Range("A8:f78").PasteSpecial xlPasteValues Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("F2").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("Personal").Range("G3").PasteSpecial xlPasteValues Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("I2").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("Personal").Range("H3").PasteSpecial xlPasteValues Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("H2").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("OT1").Range("h2").PasteSpecial xlPasteValues Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("H3:m3").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("OT1").Range("H3:m3").PasteSpecial xlPasteValues Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("l2").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("OT1").Range("l2").PasteSpecial xlPasteValues Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("G8:H78").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("OT1").Range("G8:H78").PasteSpecial xlPasteValues Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("J8:K78").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("OT1").Range("J8:K78").PasteSpecial xlPasteValues Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Sheets(13).Range("M8:M78").Copy Windows("C2020-0138_Carga_Horas (1)2.xls").Activate Sheets("OT1").Range("M8:M78").PasteSpecial xlPasteValues Windows("PARTE DE TRABAJOS EE-II.xlsm").Activate Application.CutCopyMode = False End Sub