Copy Data into Database gives error

  • Thread starter Thread starter bactfarmer
  • Start date Start date
B

bactfarmer

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
 
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
 
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
 
Back
Top