Saturday, December 14, 2013

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 common standard to represent 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 currency number is converted into text. But this feature is not available in the MS Excel.

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

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

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

Friday, November 22, 2013

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

Wednesday, May 29, 2013

Connecting Bluetooth headset with laptop - Bluetooth A2DP

Normal phone Bluetooth headset can be easily connected to a laptop and it can be used as earphone or headphone while using skype, gtalk, whatsapp or any other voice chat services or of course to listen to your favorite music. All you need to do is a Bluetooth device and the Bluetooth driver with A2DP(Advanced Audio Distribution Profile) profile.

Here is the detailed procedure the setup Bluetooth device with your laptop.

Download the A2DP Bluetooth driver from the link provided below. Extract the zip file 'Bluetooth A2DP Driver For Windows.zip'. Go inside the folder 'Bluetooth A2DP Driver For Windows', double-click on the installer file 'anycom-bluetooth-usb2x0-windowsxp-v2-1-0-4.exe'. Follow the onscreen instruction to complete the installation. 

Once the A2DP driver is installed successfully, Switch on the Bluetooth in the Laptop and Headset. Look for the Bluetooth device the list of available Bluetooth devices. If it is not visible yet, select Add Device, and add the Bluetooth device. Make sure that new Bluetooth is discoverable from other Bluetooth devices. During the installation of the new Bluetooth device, you can notice that additional profiles are installed. Adio profile, file sharing, Bluetooth telephony etc. 

Check what are the services available for the new device 
Go to Device manager and select the new device added, select properties. Then select the tab 'services'. Headset profile should be visible and checked along with other services. 

Now, route the audio to your newly installed Bluetooth device. Click on the audio volume icon on the notification bar, which is present at the bottom right corner of your Laptop screen. Right-click and select playback device, a window will open up and hows all the available playback devices. If you have installed the driver software properly, you should see the newly installed Bluetooth device in the list. Select it and set as default playback device. 

Some of the below steps, you may have to try multiple times. 

You can download the necessary drivers here

Detailed step by step procedure in

Download Bluetooth A2DP driver

How to swap 2 excel ranges | swap with multiple cells selected

I had created a macro to swap 2 cells values in MS Excel. By just clicking a button a macro could interchange the content of 2 excel cells. ...