Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Excel Vba problem

Status
Not open for further replies.

futbuk

Programmer
Sep 17, 2002
12
CA
Instead of inserting a line at row 7 every time and inserting a data entry, I really wanted this macro to begin recording the data from line 7 downward so that the newest data entry appears on the bottom line instead of the top. Any suggestions?
Application.ScreenUpdating = False
Sheets("Template").Select
Rows("7:7").Select
Selection.Insert Shift:=xlDown
Range("B1:p1").Select
Selection.Copy
Range("B7").Select
ActiveSheet.Paste
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("YC STATUS").Select
ActiveWindow.LargeScroll Down:=2
Range("C63").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Sheets("Template").Select
Range("B7").Select
Selection.Copy
Sheets("YC STATUS").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
ActiveWindow.ScrollRow = 1
Sheets("REQUEST SHEET").Select
Range("F26:G26,F24:G24,F22:G22,F20:G20,F18:G18,C16:K16,C13:K13,C10:K10,C7:K7,J18"). _
Select
Range("C7").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("C7").Select
Application.ScreenUpdating = True
End Sub
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top