***

 


    Useful Links


   +    Andrew's Excel Tips

   +    AJP Excel Information

 Excel VBA - Excelplus.NET



VBA Coding


   +    WorksheetFunction and MsgBox

   +    Select Case according name of the sheet

   +    Workbook_Open: Sheets Visible, ScrollArea, xlVeryHidden

   +    Variable and Prefixes

   +    Formatting Date

   +    Worksheet Name, Save As

   +    Inputbox, NumberFormat

   +    CommandButton1_Click run procedure

   +    Protect ActiveSheet , StatusBar, Timer

   +    Protect and Unprotect Sheet with CheckBox

   +    ErrorHandler, Offset

   +    Do While Not IsEmpty, ScreenUpdating

   +    On Time

   +    Select Case, Cells

   +    Worksheets.Add according a list

   +    Save as according given name and date

   +    Do While Not IsEmpty, Entirerow, Selection.Delete

   +    Expiration Date, Activeworkbook.Close

   +    Save As

   +    Make Dir, Inputbox

   +    CountA

   +   CurrentRegion, Count, Formula

   +   ActiveSheet.Copy, Sheets.Count, Format

   +   For Each Cell in Selection

   +   Function ThisWorkbook.FullName SheetName

   +   Date Format

   +   Kill All .doc Documents in folder



   +   Move file, If Else, And, Dir, MsgBox

   +   ActiveCell Row Column

   +   Application.CountA(Selection)

   +    GetOpenFilename Xls

   +    ThisWorkbook.Name, Application.UserName, Chr(13), Format

   +    ActiveWorkbook. SaveAs, Do Loop, If Then Else

   +    MkDir, Len, For Next

   +    Rows, Delete, CountA

   +    Name Range, Add Comment

   +    Polynomial Regression

   +    Do Loop, ElseIf, String Lenght

   +    Validate Date

   +   Do Loop, ScreenUpdating, If Then, Do While Not IsEmpty

   +   WorkSheet_Change

   +   Does the file exist?

   +   Convert String To Double

   +   Open all files in directory, Copy, CountA, Screenupdating

   +   Password generator, If ... Then ...Else, For i ... Next i, GetSaveAsFilename

   +   PrintOut All, MsgBox - vbYesNo + vbQuestion, EntireRow, Copy, PasteSpecial, PrintArea

   +    WorkSheet_Change(ByVal Terget As Change), Target.Address, EnableEvents

   +    Intersect, Find - xlWhole, xlPart, Row, Column, Set, Range

   +    Select Case - activate sheet, Round

   +    Open all files in directory except one - ActiveWorkbook. Path, ScreenUpdating, Dir, Open, CountA, Close

   +    Generate file name according time - DisplayAlerts, If - False, GetSaveAsFilename, Strings.Format(Now, "s")



Main   +       


2006