The latest version of SpellNumber

The latest version 4.0 of MS Excel currency converter has been released. It has the following bug fixes.

See here how to use it in your excel workbook.



It used to give the wrong result for a value between 1,99,999 to 9,99,999.



It has been fixed now in version 4.0 download the latest module here 


You can download the complete excel file here


Direct access 









MS Excel currency converter - Number to words Latest version

MS Excel currency converter 3.0 has been updated with bug fixes.

This is the new version of my amazing currency converter VBA utility for MS Excel. The macro will convert the currency number which is in number to text. For example, Rs. 14,250 is a common standard to represent the money of Indian Rupees Fourteen Thousand, Two Hundred and Fifty. This VBA code takes the input as 14250 and prints as 'Fourteen Thousand, Two Hundred and Fifty'.

It can be used in writing cheques, generating financial reports, MIS reports, and other accounting purposes. If you are familiar with accounting software such as Tally, you will know that the current number is converted into text. But this feature is not available in MS Excel.

The earlier version had few bugs which were reported by the users. I have fixed them in this version. 

Below is the list of bugs fixed

1. For 1000 and 100000 it was resulting in a null string. Now it has been fixed.

You can download the VBA module here. After downloading go to your Excel VBA editor. Then, go to Insert Menu, Insert Module. Paste the VBA code just downloaded. Go back to your excel spreadsheet by pressing ALT+F11. Start using the new function.

Download

Download here the Complete Excel.

Download
Please let me know if you have any specific questions to currency converter or any generic VBA code questions. If you are looking for any new features in MS Excel or MS Word, I will try to implement them in using the VBA code.  

Excel VBA macro to swap 2 values in cells

It is very useful sometimes to have a shortcut to swap 2 cell values. I have created a macro in VBA to do this. Just copy paste the code below in your VBA module.

This video will help you with the procedure


VBA Code
-------------
Sub Swap2Values()
    Dim Value1 As Range, Value2 As Range
    Dim TempValue1 As String, TempValue2 As String

    If Selection.Cells.Count > 2 Or Selection.Cells.Count < 2 Then
        MsgBox "Please select only 2 cells. For other options check back soon!"
        End
    End If
 
    If Selection.Areas.Count > 1 Then
        Set Value1 = Selection.Areas(1).Cells(1, 1)
        Set Value2 = Selection.Areas(2).Cells(1, 1)
    ElseIf Selection.Rows.Count > Selection.Columns.Count Then
        Set Value1 = Selection.Range("A1")
        Set Value2 = Selection.Range("A2")
    Else
        Set Value1 = Selection.Range("A1")
        Set Value2 = Selection.Range("B1")
    End If
    TempValue1 = Value1
    TempValue2 = Value2
    Value1 = TempValue2
    Value2 = TempValue1
End Sub