VBA for matching Credit Card Refunds

[CellMaster]

1. This page is the original data.

2. This should be the output after running the VBA.

I have already made a VBA to fomat Column E to remove the EUR from the 1,80 EUR. I came close to figuring it out, but after some days of searching and trying I am stuck. The amount left over is the currency loss due to the change in EUR/USD price from the time of the purchase and the time of refund. Does anyone have any ideas? Would be grateful.

Thanks.

 

[Micron]

Not sure if you're saying your code attempt works or not. Perhaps you need a combination of Left and Instr functions, like

Left("1,80 EUR",instr("1,80 EUR"," ")-1)

You didn't post the code so I'll leave it to you to figure out what to replace "1,80 EUR" with. Maybe a range reference.

 

[CellMaster]

Not sure if you're saying your code attempt works or not. Perhaps you need a combination of Left and Instr functions, like

Left("1,80 EUR",instr("1,80 EUR"," ")-1)

You didn't post the code so I'll leave it to you to figure out what to replace "1,80 EUR" with. Maybe a range reference.

Hi, yes the vba for removing the EUR from the number is working. What I haven’t been able to figure out is how grab the matching transactions (the charge and refund) and copy them to a new cell and calculate any currency loss.