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
