MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Append entered data to a range


Posted by Andrew Warwick on June 27, 2001 2:15 AM

This is a basic user form / data entry question.

How can I emulate Lotus 123s APPEND macro command to automatically add a row of data entered by the user to the bottom of a range and expand the range's name to include the added row of data ?


Posted by Uriah1 on June 27, 2001 12:46 PM

THis works for me. PS your name will change the
region automatically if it has $ $ in the range.
Not sure if this is like the old 123 command.

'------ copy your new data
Sheets("sample1").Select
Range("A1:ca1").Select
Selection.Copy
'----------post your new data

'-some go up instead of down to find their last

Sheets("sample2").Select
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False