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

Connecting Bluetooth headset with laptop - Bluetooth A2DP

A normal phone Bluetooth headset can be easily connected to a laptop and it can be used as earphones or headphones 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 the A2DP(Advanced Audio Distribution Profile) profile.

Amazon Web Services Quiz: Essential AWS Concepts

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 'anyone-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 the 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'. The 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 a 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 it as a 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 make an Excel macro available for entire excel in a PC - Excel add-ins

This post will show you how to make an Excel macro available for entire MS Excel in a PC. Whatever macro you write will only be available to that particular file. When you open a new Excel file you need to copy-paste or rewrite the entire macro again in the new excel workbook. You can avoid this by making an Excel Add-In. You can place the excel macro somewhere and make it as an add-in. whatever functionality present in the macro(add-in) will be available to the entire excel in your PC. It will be similar to your =SUM() function. When you try to insert the function, you can see your own functions in the “User Defined Functions” category

Let’s do it

1.       Open an Excel workbook

2.       Press ALT+F11

3.       In the project explorer( left side pane) select “VBA Project (book2)”, right-click Insert, then select Module. A blank page opens in the middle.

4.       http://krishnasr.blogspot.com/2010/02/convert-currency-to-word-in-excel.html open this link and copy-paste the code here

5.       Press again ALT+F11, this brings back to excel.

6.       Save the excel file as Excel 97-2003Add-in (*.xla)

a.       By default, it will save under C:\Users\krishnasg\AppData\Roaming\Microsoft\AddIns in Windows 7. You change this if you want, but this is a safer place.

b.      Close the excel and remember to save it

7.       Open a new excel workbook. In the excel menu Ribbon (i.e. File, Home, Insert, etc.) find Developer Menu item. If it is not showing for you, then you can enable it in the excel options. See below To enable Developer Menu item in Excel Ribbon

a.       File -> Excel Options -> Customize Ribbon in the right-hand side check the Developer check box if

8.       Under the developer menu, select Add-Ins. You will see a list of available add-ins. You can also see your add-in book2  select that and say OK.

9.       Now your add-in is ready to use in any workbook across your computer