Currency Conversion VBA/Formula - Please help !!

[Mike_VBA]

Hi Guys,

Happy Belated Halloween!

I have a query.

I have two tables, One with Employee Information and expenses paid to them in different currencies and another table with the average currency rate for the month. How do I convert only the totals of each employee to reflect a certain currency in conversion (i.e., Totals shown in SGD,AUD or HKD).

CURRENCY

The need is to generate the subtotal/grand total based on a single currency (either SGD,AUD,HKD), by converting the multiple currencies in accordance to the date. Any ideas guys! Much appreciated.. Cheers to DonkeyOte and the other guys out here..

 

[Mike_VBA]

Dim rngT As Range, rngArea As Range Set rngT = Intersect(ActiveSheet.UsedRange, Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow) For Each rngArea In rngT.Areas

The formula works across columns for the first set (Fred Smith) but when it goes down it uses the range of the above subtotal too.

 

[DonkeyOte]

The formula works across columns for the first set (Fred Smith) but when it goes down it uses the range of the above subtotal too.

Again, I can only go by the sample file and the code provided works on that without issue (as far I can tell from the limited testing I performed)

 

[Mike_VBA]

Two words for you - 'VBA Genius'. You started off in 2008 helping me with my questions and your inputs have always been invaluable.

I will check the code and understand it, add handlers and come back to you.

Again - DonkeyOte, serving the community beyond what this post can say.