Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Data into Database gives error
I'm creating a macro to copy information entered into a form and
put it into a database. It works fine as long as the first row of information is filled out in the database. If the no information has been added to the database yet I get Run-Time Error 1004 Application Defined or Object Defined Error. What can I change to correct this from happening Sheets("Form").Select Range("A6:X20").Select Selection.Copy Sheets("Database").Select Range("A10").Select Selection.End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.End(xlDown).Select |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Data into Database gives error
maybe add a :
If Range("A6:X20").value <"" then Selection.Copy Sheets("Database").Select Range("A10").Select Selection.End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.End(xlDown).Select else msgbox "There is No Value in the range !!" end if "bactfarmer" wrote in message ups.com... I'm creating a macro to copy information entered into a form and put it into a database. It works fine as long as the first row of information is filled out in the database. If the no information has been added to the database yet I get Run-Time Error 1004 Application Defined or Object Defined Error. What can I change to correct this from happening Sheets("Form").Select Range("A6:X20").Select Selection.Copy Sheets("Database").Select Range("A10").Select Selection.End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.End(xlDown).Select |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Copy Data into Database gives error
Maybe you could start at the bottom of column A and go up to find the last used
cell in that row, then come down one row. Dim RngToCopy as Range Dim DestCell as range with worksheets("form") set rngtocopy = .range("a6:X20") end with with worksheets("Database") set destcell = .cells(.rows.count,"A").end(xlup).offset(1,0) end with rngtocopy.copy _ destination:=destcell bactfarmer wrote: I'm creating a macro to copy information entered into a form and put it into a database. It works fine as long as the first row of information is filled out in the database. If the no information has been added to the database yet I get Run-Time Error 1004 Application Defined or Object Defined Error. What can I change to correct this from happening Sheets("Form").Select Range("A6:X20").Select Selection.Copy Sheets("Database").Select Range("A10").Select Selection.End(xlDown).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Selection.End(xlDown).Select -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Auto copy data from another database | Excel Worksheet Functions | |||
How to make reference to database and if true copy from database? | Excel Discussion (Misc queries) | |||
I have Error 1919 Error Configuring ODBC dataSource Database | Excel Discussion (Misc queries) | |||
Using Excel as a database and need macro or vba to take data entered on one tab and update the database by adding to the next avail row | Excel Programming | |||
Excel error while trying to import data from an Access database - MSQRY32.exe has generated errors | Excel Discussion (Misc queries) |