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
Tengo el siguiente código pero las condiciones en lo marcado en azul son más de 100 por lo que la línea
se me hará infinita. Hay alguna otra forma de poner las condiciones usando más líneas ( no solo una )
o bien que vaya a buscar a un rango determinado donde estén todas las condiciones a buscar
Paso fichero donde el rango a buscar sería de la pestaña CLIENTES. el rango D4:D25.
Sub DESPRECIAR()
Dim I, J As Integer
J = 8 'DONDE EMPIEZA A ESCRIBIR
For I = 4 To 4000 ' DONDE EMPIEZA A BUSCAR
If Range("EXPORTACION!N" & I) = "CLIENTE 1" Or Range("EXPORTACION!N" & I) = "CLIENTE 3" Then
Range("FILTRO!b" & J) = Range("EXPORTACION!B" & I)
Range("FILTRO!c" & J) = Range("EXPORTACION!C" & I)
Range("FILTRO!d" & J) = Range("EXPORTACION!F" & I)
Range("FILTRO!e" & J) = Range("EXPORTACION!G" & I)
Range("FILTRO!f" & J) = Range("EXPORTACION!H" & I)
Range("FILTRO!g" & J) = Range("EXPORTACION!I" & I)
Range("FILTRO!h" & J) = Range("EXPORTACION!J" & I)
Range("FILTRO!i" & J) = Range("EXPORTACION!K" & I)
Range("FILTRO!j" & J) = Range("EXPORTACION!N" & I)
Range("FILTRO!k" & J) = Range("EXPORTACION!O" & I)
Range("FILTRO!l" & J) = Range("EXPORTACION!P" & I)
J = J + 1
End If
Next
While Range("FILTRO!b" & J) <> ""
Range("FILTRO!b" & J) = ""
Range("FILTRO!c" & J) = ""
Range("FILTRO!d" & J) = ""
Range("FILTRO!e" & J) = ""
Range("FILTRO!f" & J) = ""
Range("FILTRO!g" & J) = ""
Range("FILTRO!h" & J) = ""
Range("FILTRO!i" & J) = ""
Range("FILTRO!j" & J) = ""
Range("FILTRO!k" & J) = ""
Range("FILTRO!l" & J) = ""
J = J + 1
Wend
End Sub
PLANTILLA CONTROL CMRS.rar