Recalculating Figures with Currencies

**mrosendal** · 11-17-2008, 07:10 PM

Hi all

I am very thankful for all the help i am getting on this forum.

I have been given a quite difficult task regarding Sales figures and currencies. Since there are sales in different countries and currencies these need to be converted in the Native currency DKK.

1. I have 2 Sheets, One has all the sales figures and the other has the Exchange rates of the currencies needed.

2. First thing will be to generate Makro which can Multiply the Sales Figure on book 1 with the Currency on book 2, Then dividing it by 100 to get the correct sales figure in DKK. e.g (s.fig 10000 * 594,568 (USD rate) / 100 = 59400 DKK)

3. When VBA has these figures in DKK they will then have to be put on a new workbook ("results") With 2 seperate Sheets, Sheet1 to view all results on a descending list.

4. Sheet2. Will be used to view a top 10 of the sales figures in DKK for 10 selected currencies. (GBP, NZD, SEK, NOK, EUR, RUB, USD, JPY, ISK and DKK).
So the highest numbers corresponding to those currencies on the results list.

Hope this is not to difficult to get done. I have started with declaring some variables i think will be needed to complete it.

I have also attached files to work on.

Thanks in advance

**mrosendal** · 11-17-2008, 07:12 PM

Sub SortSalesfigures()

Dim Salesfigures As Object
Dim Exchangerates As Object
Dim GBP As String, NZD As String, SEK As String, NOK As String
Dim EUR As String, RUB As String, USD As String, JPY As String, ISK As String
Dim DKK As String

Dim i As Integer
Dim j As Integer

i = 1
j = 1

With Workbooks("SalesFigures").Sheets("Salgsbeløb").Range("A2:B328")

'(need sth to combined numbers with Workbook("Exchange Rates") and Sheets("kurser")
'This i need to calculate the total sales.

'I was thinking to Multiply the Sales figure in each cell with Rate and Then Dividing the number
'100 to get the correct number.

'When the figures have been calculated with the currency which corresponds the figures will now
' all be in DKK. Therefore they have to be moved to a new Workbook ("Results")

'The manager will then be able to view the figures

'When the figures are all available there has to be made a top 10 list to show the 10 highest numbers
'in DKK of the 10 Currencies. (GBP, NZD, SEK, NOK, EUR, RUB, USD, JPY, ISK and DKK)



End Sub