G
Guest
Simple Macro which take me to the last cell on a tab sheet titled "Personal".
This is a database that I can add names and telephone numbers. The macro
ends with my cursor on the last cell of a the two column worksheet (Column A
& B) which in this case is column B. I want to complete the macro execution
by telling the cursor to go down 1 and left 1 or left 1 and down 1. I want
to the cursor to point to next line blank line as I repeat the process as I
add names and tel #'s.
Thanks,
=========== See script below=======
Sub AddName()
'
' AddName Macro
' Macro recorded 6/6/2007 by George
'
Range("D19").Select
Sheets("Personal").Select
Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
ActiveCell.SpecialCells
End Sub
This is a database that I can add names and telephone numbers. The macro
ends with my cursor on the last cell of a the two column worksheet (Column A
& B) which in this case is column B. I want to complete the macro execution
by telling the cursor to go down 1 and left 1 or left 1 and down 1. I want
to the cursor to point to next line blank line as I repeat the process as I
add names and tel #'s.
Thanks,
=========== See script below=======
Sub AddName()
'
' AddName Macro
' Macro recorded 6/6/2007 by George
'
Range("D19").Select
Sheets("Personal").Select
Range("A1").Select
Selection.SpecialCells(xlCellTypeLastCell).Select
ActiveCell.SpecialCells
End Sub