Excel & Outlook

Good link to learn how Excel macro can be used along with Outlook:

http://www.excelgaard.dk/Lib/Outlook/Read/

Progress bar in excel

Refer to the following link for including progress bar in your VBA code:

http://oreilly.com/pub/h/2607

Get the weekday in Excel

Use the below formula to get the weekday.

=TEXT(WEEKDAY(NOW()),"dddd")

Code to go to the top cell

VBA Code to go to the top cell in a sheet:

Private Sub Workbook_Open()

With ActiveWindow

.ScrollRow = 1

.ScrollColumn = 1

Call Cells(.ScrollRow, .ScrollColumn).Select

End With

End Sub

Get to last row in a column

How to get to the last row in a column using VBA:

Dim LastRow As Long

LastRow = Range("I" & Rows.Count).End(xlUp).Row

'I is the column and LastRow is a variable

Delete rows using Loop

VBA code to loop thru rows within column and delete rows containing a certain value:

Dim LastRow As Long 

Dim I As Long 

 

LastRow = Range("D" & Rows.Count).End(xlUp).Row 

 

For I = LastRow To 2 Step -1  'Change the row number

    Set rng = Range("D" & I) 

    If rng.Value= "ABC" Then   'Change the condition

        rng.EntireRow.Delete 

    End If 

     

Next I 

Negative closest value to zero:

Get the negative closest value to zero: