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
buenas tardes como puedo modificar esta macro para que busque en varias columnas y copie las filas que contenga el dato buscado
Sub copiar_y_borrar()
columna = Range("bz1").End(xlToLeft).Column
quebusco = InputBox("que dato quieres buscar")
If quebusco = "" Then Exit Sub
ActiveSheet.Range("a1").CurrentRegion.Sort key1:=Range("a1"), order1:=xlAscending, Header:=xlYes, ordercustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Set busca = ActiveSheet.Range("a2:a" & Range("a10000").End(xlUp).Row).Find(quebusco, LookIn:=xlValues, lookat:=xlWhole)
If Not busca Is Nothing Then
ubica = busca.Address
Range(ubica).Select
valor = ActiveCell.Value
fila = ActiveCell.Row
contarsi = Application.WorksheetFunction.CountIf(Columns(1), valor)
Range(Cells(fila, 1), Cells(fila + contarsi - 1, columna)).Copy
Sheets("copiados").Select
Cells(Range("copiados!a10000").End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlValues
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell. Value = "******************"
Sheets("hoja1").Select
Range(Cells(fila, 1), Cells(fila + contarsi - 1, columna)).EntireRow.Delete
Application.CutCopyMode = False
End If
End Sub
gracias