auto saving transfered data
Hi seags,
the only way I know is to paste the following code into the
ThisWorkbook code module of the invoice log workbook...
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Worksheets(1).Rows(1).Insert
End Sub
It's an event procedure that is triggered when you save the workbook.
All it does is insert a row at the top of the first sheet in the
workbook. When you reach the bottom of the worksheet it will result in
a run-time error. You will then have to start using the next worksheet
after changing the code to Worksheets(2).Rows(1).Insert
If you're not sure how to get the code into the right place then follow
these steps..
Copy the code. Press Alt + F11 to get into the Visual Basic Editor. Go
ViewProject Explorer to ensure that the Project Explorer is visible.
Double the ThisWorkbook icon in the Project Explorer (has the green
Excel X). Paste the code into place in the white space just to the
right of the Project Explorer.
Ken Johnson
|