G
Guest
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
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