Database Record add
 

I have the following macro that adds a record to the database "TimeRecords"

Application.Goto Reference:="Export_Data"
Selection.Copy
Application.Goto Reference:="PT_Data" 'first row of database
Selection.End(xlDown).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate

Selection.PasteSpecial Paste:=xlValues

My problem is the database range does not expand to add this record

I do not want to use the user database form to add this record

oldjay

Database Record add
 

See the reply to your earlier post today.
--
Jim Cone
San Francisco, USA
http://www.officeletter.com/blink/specialsort.html




"Oldjay"
wrote in message
I have the following macro that adds a record to the database "TimeRecords"

Application.Goto Reference:="Export_Data"
Selection.Copy
Application.Goto Reference:="PT_Data" 'first row of database
Selection.End(xlDown).Select
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate

Selection.PasteSpecial Paste:=xlValues

My problem is the database range does not expand to add this record

I do not want to use the user database form to add this record

oldjay