Currency Conversion Us$ In Indian Rupees

Hi all,

I have a spreadsheet about 300 rows deep with different titles of books. I want to duplicate these so that each title is shown 13 times for each book.

Example:

American Indian Tribal Law is row one on the speadsheet, I want to see it like this:

American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law
American Indian Tribal Law

So for every title (300) it would appear 13 times so i would ultimately have 3,900 rows when all said and done.

Thanks for any help!
CUBE

hi

I have got the Spell number function VB macro code from you link site.
But now i have edited the same for Indian Rupee coversion as

Option Explicit
'Main Function
Function SpellNumber(ByVal MyNumber)
Dim rupees, paise, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Lakh "
Place(4) = " Crores "
Place(5) = " Million"
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert paise and set MyNumber to dollar amount.
If DecimalPlace > 0 Then
paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then rupees = Temp & Place(Count) & rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case rupees
Case ""
rupees = "No rupees"
Case "One"
rupees = "One Dollar"
Case Else
rupees = rupees & " rupees"
End Select
Select Case paise
Case ""
paise = " and No paise"
Case "One"
paise = " and One Cent"
Case Else
paise = " and " & paise & " paise"
End Select
SpellNumber = rupees & paise
End Function

' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function

' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else ' If value between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function

' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function

Now if i enter 5,00,000, it spells as Five hundred Thousand Rupees.
But what i need is Five Lakh Rupees.
Now if i add another zero as 50,00,000, it spells as Five Lakh Rupees
But what i need is Fifty Lakh rupees.
Only one digit is going wrong. I don't know where to edit.
Can anyone help me out?

Customising a TEXT(Value,"Format") for Indain Currency

I use a particular format for displaying numeric values as money in Indian Rupees with appropriate commas after Thousands and Lakhs..

I have the following two formats to be used in the FORMAT CELL for the Numeric values where Money or Currency has to be displayed..

1. [>9999999]"Rs "#\,##\,##\,##0;[>99999]"Rs "#\,##\,##0;"Rs "#,##0 without dedimal points.
Ex:- 125999 -->> Rs 1,25,999

2. [>9999999]"Rs "#\,##\,##\,##0.00;[>99999]"Rs "#\,##\,##0.00;"Rs "#,##0.00 with decimal points upto 2 decimal places... Ex:- 125999 -->> Rs 1,25,999.00

Now this works fantastically for numeric entries, however I need to use the same format when using in a sentence such as Rs 1,25,999 for the XYZ expense..

So how do I customise the same in the TEXT Function..?

What FORMAT do I use in the TEXT Functions parameter to get the same result using it in a sentence..

Regards
e4excel

Hello!

I have Installed New India Currency Symbol, in Fonts Folder HTML Code:

(Rupee Foradian

)

Now i want to Format a List of Numbers in this Format

Means Put this Currency Symbol in front of Numbers Same as Dollar or Euro

Like

Sheet1 D 5 $ 500.00 Excel 2007



But instead of Dollar Symbol i want New Indian Currency Symbol

I know how to Put in One Cell, But Have No idea how to Put in Multiple Cells

Any Idea how can do it Rather than Manually

can anyone tell me the function how to convert numbers in words in Indian rupees in excel using formula. (without macro) . Just like presently excel 2002 have =bathtext() but it will convert in Thai language.

Hi,
I am having some data in a sheet containing the values in actual Rupees (Indian Currency). It is to be converted into Rs. in lacs. Pl. give the formula. Data is in 5 columns. Where I have to enter the formula for converting.
Advance thanks for the solution providers.

Hello,
In excel 2007 how to convert indian ruppes to word.
Ex: 1010, in word one thousand and ten only

While I m trying to run following macro, I am having error message 'compile error: sub or function not defined' at the red bold text below . Please help to resolve.

' Main Function *
'****************
Function SpellNumber(ByVal MyNumber)
Dim Rupees, Paisa, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert Paisas and set MyNumber to rupee amount.
If DecimalPlace > 0 Then
Paisas = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp "" Then Rupees = Temp & Place(Count) & Rupees
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Rupees
Case ""
Rupees = "No Rupees"
Case "One"
Rupees = "One Rupee"
Case Else
Rupees = Rupees & " Rupees"
End Select
Select Case Paisas
Case ""
Paisas = " and No Paisas"
Case "One"
Paisas = " and One Paisa"
Case Else
Paisas = " and " & Paisas & " Paisas"
End Select
SpellNumber = Rupees & Paisas
End Function
'*******************************************
' Converts a number from 100-999 into text *
'*******************************************
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) "0" Then
Result = GetDigit (Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function
'*********************************************
' Converts a number from 10 to 99 into text. *
'*********************************************
Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else ' If value between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function

hi
is there any macro available to spell number in indian currency
i have one addin but its not giving words for "zero value"
please give suggestions

thnks& regds

Hi

Please help in converting Number into text I have tried to look for a formula but have not go any

Is there any way to convert them in indian currency format of Lakhs

like Rs 1,50,450 or Rs One lakh fifty thousand four hundred fifty only

Regards
Balendra Kumar

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..

Is there any way that I can Add indian currency format in the Ms EXcel

Ie is should show in Format Currency

the indian Currency is depected as Rs before the No
for Example Rs 100

Request your help in this

Hi all,

How can i add new Indian Rupee symbol in Excel sheet instead of the default dollar sign.

Regards,

zaska

Real Magic Indian Oil from traditional Indian herbs.

FREE TRIAL FOR 500 customers (5ml bottle), Ring +91 9810577227

Real Magic Indian Oil from traditional Indian herbs.

FREE TRIAL FOR 500 customers (5ml bottle), Ring +91 9810577227

Hi,
I am having a problem using the Indian formating. I will explain.
When i format a number in excel, it appears like this:
1,000,000.00
I would like it to appear like this:
10,00,000.00
Is it possible in excel. Please advice

Thanks and regards,
Pio Desousa Proenca
Dubai

Hi. Normally I can figure these things out, but this one has me baffled.

I have a 4 extractions from a company system listing net asset values in local currencies of items worldwide. It consists of about 200,000 items total (4 files at about 50,000 lines) in the variety of currencies. Each separate value extracts with a custom format basically displaying USD after the number, or EUR or SGD (Singapore Dollar), JPY (Yen), etc. There are probably 30 different currencies.

The problem is the system will not allow an extraction of each separate currency, and there is no column to sort by where I can isolate each currency to convert them to one standard, even sorting by country has a variety of currencies within each country (I know - very strange). The only indication of the currency is in the custom format, and so I am trying to use the CELL function with a reference to "format" or something else to pull out the format so I can sort the values, summarize, and convert. It seems if the number is in the standard currency format, a C2 (currency 2 decimals) appears, but for the custom formats I get nothing but the decimal number. No JPY or EUR or SGD.

Does anybody know a way to get this data from a cell into a separate column?

Thanks in advance.

Hi. Normally I can figure these things out, but this one has me baffled.

I have a 4 extractions from a company system listing net asset values in local currencies of items worldwide. It consists of about 200,000 items total (4 files at about 50,000 lines) in the variety of currencies. Each separate value extracts with a custom format basically displaying USD after the number, or EUR or SGD (Singapore Dollar), JPY (Yen), etc. There are probably 30 different currencies.

The problem is the system will not allow an extraction of each separate currency, and there is no column to sort by where I can isolate each currency to convert them to one standard, even sorting by country has a variety of currencies within each country (I know - very strange). The only indication of the currency is in the custom format, and so I am trying to use the CELL function with a reference to "format" or something else to pull out the format so I can sort the values, summarize, and convert. It seems if the number is in the standard currency format, a C2 (currency 2 decimals) appears, but for the custom formats I get nothing but the decimal number. No JPY or EUR or SGD.

Does anybody know a way to get this data from a cell into a separate column?

Thanks in advance.

Hi Guys,

New here and I have a query for today

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..

Hello friends. I am newbie here.


A1:A20 = Companies Names
B1:B20 = Curreny (million Rupees)

I have 20 Companies names in columns A (A1 : A20)
each company has its own numeric value (million Rs) in Column B. (B1 : B20)


I need a formula which can provide me the TOP 5 Companies according to the highest amount of currency in million rupees.


English is not my native language so i apologize if i could not properly explained my question.

Thanks.