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
Hola
Agradezco de antemano cualquier gestión....
Tengo un código que le digo que las facturas nuevas me las añado en otro Listado..
están identificadas con la palabra AÑADIR....el problema es que no sé como decirle
que me las empiece a escribir en la última línea del listado existente
en el ejemplo.: manualmente le digo que me las empiece a poner a partir de la fila 3067...
Sub AÑADIRNUEVAS()
Application.Calculation = xlManual
Dim i, j As Integer
j = 3067 'DONDE EMPIEZA A ESCRIBIR
For i = 2 To 8000 ' DONDE EMPIEZA A BUSCAR
If Range("FACTURAS!L" & i) = "AÑADIR" Then
Range("USUARIO!a" & j) = Range("FACTURAS!a" & i)
Range("USUARIO!b" & j) = Range("FACTURAS!B" & i)
Range("USUARIO!c" & j) = Range("FACTURAS!C" & i)
Range("USUARIO!d" & j) = Range("FACTURAS!D" & i)
Range("USUARIO!e" & j) = Range("FACTURAS!E" & i)
Range("USUARIO!f" & j) = Range("FACTURAS!F" & i)
Range("USUARIO!g" & j) = Range("FACTURAS!G" & i)
Range("USUARIO!h" & j) = Range("FACTURAS!H" & i)
Range("USUARIO!i" & j) = Range("FACTURAS!I" & i)
Range("USUARIO!j" & j) = Range("FACTURAS!J" & i)
j = j + 1
End If
Next
While Range("USUARIO!a" & j) <> ""
Range("USUARIO!a" & j) = ""
Range("USUARIO!b" & j) = ""
Range("USUARIO!c" & j) = ""
Range("USUARIO!d" & j) = ""
Range("USUARIO!e" & j) = ""
Range("USUARIO!f" & j) = ""
Range("USUARIO!g" & j) = ""
Range("USUARIO!h" & j) = ""
Range("USUARIO!i" & j) = ""
Range("USUARIO!j" & j) = ""
Range("USUARIO!k" & j) = ""
Range("USUARIO!l" & j) = ""
j = j + 1
Wend
Application.Calculation = xlAutomatic
End Sub