Unleashing Power of Excel

2006-10-04T00:35:00.000-07:00

Sort Worksheets

2006-10-03T23:28:00.000-07:00

Sort Worksheets

Public Sub SortWorksheets()
' sort worksheets in a workbook in ascending order
Dim sCount As Integer, i As Integer, j As Integer
Application.ScreenUpdating = False
sCount = Worksheets.Count
If sCount = 1 Then Exit Sub
For i = 1 To sCount - 1
For j = i + 1 To sCount
If Worksheets(j).Name <>
Worksheets(j).Move before:=Worksheets(i)
End If
Next j
Next i
End Sub

Creating a Usage Log

2006-10-03T23:17:00.000-07:00

Creating a Usage Log for Excel File

If a workbook's ThisWorkbook code module contains a procedure named Workbook_Open, that procedure is executed whenever the workbook is opened.
If you would like to keep track of who opens a workbook, and at what time, add the following procedure to the ThisWorkbook code module.

Private Sub Workbook_Open()
Open ThisWorkbook.Path & "\usage.log" For Append As #1
Print #1, Application.UserName, Now
Close #1
End Sub

When this procedure is executed, it appends the user name and the current date/time to a text file. The file is stored in the workbook's directory, and is named usage.log. If the text file does not exist, it is created. You can, of course, change the code so the text file is written to a different directory.

NOTE:Keep in mind that this procedure is not executed if the workbook is opened with macros disabled.

Validation for Resticting Duplicate Entries in excel.

2006-10-03T23:15:00.000-07:00

Validation for Resticting Duplicate Entries in single Column

Use following Formula in Data>>Validation

=COUNTIF($A$1:A1,A1)=1