Thursday, December 22, 2011

Excel macro to identify cells containing formulae

Quite often, we come across large excel sheets with huge volumes of data and a whole lot of formulae. It becomes very tricky to check the validity of each formula.
Even greater is the risk that someone might have deleted a formula and entered a figure manually.
Here is a setup in excel which can help you to identify all the cells having formulae and potentially identify any manual interventions.
The logic / reasoning follows at the end of the solution.


Open the excel file you want to use

Select all the cells which you want to cover under this control.

Select Insert à Name à Define à a dialog box will pop up



In the Names in Workbook field, enter this value: CellHasFormula

In the refers to field enter this formula: =GET.CELL(48,INDIRECT(“RC”,FALSE))

Press Ok to close the dialog box.



Select Format à Conditional Formatting à a dialog box will pop up


In the dialog box, select “Formula is” in the first field.
Type this value in the second field: =CellHasFormula



Click on the format button and select the formatting you want.

Then press ok to exit the dialog boxes.


 

As you can see below, the fields which contain formula have a different formatting.




 
If you change any of the fields manually or add a formula anywhere, you will see the formatting changes automatically



Step by Step analysis:

The 2 key steps in this solution are:

Naming the range with a formula è =GET.CELL(48,INDIRECT(“RC”,FALSE))
I’m not sure of the roots of this formula, but apparently it is one of the old excel macro commands “Get.Cell” from the time before VB macros were included in excel.
Get.Cell is used to retrieve the metadata (or properties) of a cell and use them in the macro.
“48” is probably the command used to check whether it is a formula or not. I’m still trying to find what other commands are possible with Get.Cell.
“Indirect(“RC”,…” is the normal excel formula which is used to refer to the cell itself.
“CellHasFormula” is just a name given to this range. It can be anything you want.


Adding Conditional formatting è In the second stage, we just make a reference to “CellHasFormula” and decide what formatting we want if the cell has a formula.

You will notice that we have not written any macros here, but still when you open the file next time, excel will give you a macro warning. That is because we are using “Get.Cell”. You will need to enable macros to be able to use this solution.

Monday, December 12, 2011

Excel Macro to automatically send emails to a list of people

For your own safety, lets be clear on the below understanding before you start reading or possibly using the below excel solution:
You can assume I’m an absolute idiot on MSExcel.
I have absolutely no formal training of any kind on excel, macros or on programming for that matter.
I work like a scavenger searching for bits and pieces of macro codes on the net and putting them together to suit my needs.
There may be bits which I may not understand myself, but there will never be a harmful code posted here as I understand and respect the privacy and integrity of your system.
If you have improvements or suggestions on the excel solutions posted here, please feel free to post a comment or mail me at gulthemacroguy@gmail.com
You can also send in your excel related questions / doubts / requirements on the above email and we can explore the answers together.

Quite often we come across the need to send mails to a number of people automatically. Eg: send personalised greetings, send updates to a list of people, salary details to employees, marks to students and so on.
There are a number of softwares available on the net which do this, but they are typically paid versions.
There are other ways to directly using outlook, but those methods need the user to click “OK” every time a message is sent out. This is again for your own security to ensure that virus or spams are not sent without your knowledge. This means you can’t just click a button and forget it.

I could see the below macro as the most practical way to achieve the desired results.

Before using the macro, you need to do the following actions:
  1. Create a list with names in Column A and email addresses in column B in an excel sheet. (this macro is for 3 names, but you can add as many as you want)
  2. Create a button in excel.
  3. Double click on the button and add the below macro code in the window which opens up.


Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long

Private Sub CommandButton1_Click()
Dim UserName As String
UserName = “Macroguy”
   
    Dim Email As String, Subj As String
    Dim Msg As String, URL As String
    Dim r As Integer, x As Double
    For r = 3 To 5
        Email = Cells(r, 2)
       
        Subj = "Automated Mail Alert"

        Msg = ""
        Msg = Msg & "Hi " & Cells(r, 1) & "," & vbCrLf & vbCrLf
        Msg = Msg & "This is an automated mail alert generated using MS excel macros"

        Msg = Msg & Cells(r, 3).Text & "." & vbCrLf & vbCrLf
        Msg = Msg & UserName
       
        Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
        Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")
               
        Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")
        URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg

        ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus

        Application.Wait (Now + TimeValue("0:00:04"))
        Application.SendKeys "%s"
    Next r
End Sub

Line by Line analysis of the Macro:
Lines 1-4 are required to define a shell command. Shell commands stand for those system commands which need not be part of excel, but are triggered using the macro.
  1. Private Declare Function ShellExecute Lib "shell32.dll" _
  2. Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
  3. ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
  4. ByVal nShowCmd As Long) As Long

Line 5 This is the start of our macro. This macro needs to be attached to a command button. The same macro can be attached to any event such as file open, file close, file save etc.
  1. Private Sub CommandButton1_Click()

Line 6-7 Just defined the username, this username will be used as a signature in the email. (there are ways to use shell commands and retrieve the user name from the windows user login, but I’ll cover that some other day)
  1. Dim UserName As String
  2. UserName = “Gulshan”

Line 8 Defined the email, subject, message body and mail link as strings
  1. Dim Email As String, Subj As String
  2. Dim Msg As String, URL As String


Line 10 Now comes the best part of this macro. You can send mails to more than one recipients using this macro and the message will go as an individual mail to each of them. We do this be maintaining a list in cells A3 – B5, column A contains the names and B contains the email addresses.
  1. Dim r As Integer, x As Double

Line 11 3rd to 5th rows in excel contain the email addresses. You can replace 5 with the last row of your list of mails.
  1. For r = 3 To 5

Line 12 (r,2) tells the system to look at 2nd column of each row and take the email address from there.
  1. Email = Cells(r, 2)

Line 13 Define the subject. (can also be set to pick up from a cell reference)
  1. Subj = "Automated Mail Alert"

Line 14 – 18 Create the message body: (vbCrLf sends “Enter” command or line break to the message)
  1. Msg = ""
  2. Msg = Msg & "Hi " & Cells(r, 1) & "," & vbCrLf & vbCrLf
  3. Msg = Msg & "This is an automated mail alert generated using MS excel macros"

  1. Msg = Msg & Cells(r, 3).Text & "." & vbCrLf & vbCrLf
  2. Msg = Msg & UserName

Line 19 – 20 Replace all the spaces in the message with the system code for space. This is done because the system will create a hyperlink and hyperlinks are not supposed to contain spaces.
  1. Subj = Application.WorksheetFunction.Substitute(Subj, " ", "%20")
  2. Msg = Application.WorksheetFunction.Substitute(Msg, " ", "%20")

Line 21 Replace all the line breaks in the message with the system code for line breaks. This is done because the system will create a hyperlink and hyperlinks are not supposed to contain line breaks.
  1. Msg = Application.WorksheetFunction.Substitute(Msg, vbCrLf, "%0D%0A")

Line 22 Create the URL link for the message by concatenating the above data.
  1. URL = "mailto:" & Email & "?subject=" & Subj & "&body=" & Msg

Line 23 Execute the hyperlink. This is as good as clicking on the link. This will open a new outlook message window with the first recipient, subject and the message body.
  1. ShellExecute 0&, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus

Line 24 – 25 Now the system will wait for 4 seconds and then send the send command (keyboard strokes Alt+S) to send the mail. The 4 seconds wait has been created to accommodate for the system speed. You can change it depending on how fast or slow your system is.
  1. Application.Wait (Now + TimeValue("0:00:04"))
  2. Application.SendKeys "%s"

Line 26 Now move on to the next record.
  1. Next r

Line 27 End the macro after all mails have been sent.
  1. End Sub