1004 : application defined or object defined error

Question

0.00/5 (No votes)

See more:

Hi. I am trying to write a macro (for the first time ever) to move data from one sheet to the other in excel so that I can populate a table.

This is my macro so far. When I try to run it it tells me "error 1004: application defined or object defined error" what am i doing wrong?

'
' Movedata Macro
'
Sub SubMoveData()

'
    Dim SrcSht       As Worksheet
    Dim DestSht      As Worksheet
    Dim lngDestLrow  As Long
    
    'Define Worksheets
    Set SrcSht = Sheets("Measures Worksheet")
    Set DestSht = Sheets("RS - Measures Data Compiled")
    
    'Define Destination Sheet Lrow
    lngDestLrow = DestSht.Cells(Rows.Count, "B7").End(xlUp).Row
    
    'Move Data
    DestSht.Cells(lngDestLrow + 1, "B7") = SrcSht.Range("C14") 'Enter the form Field B7 on the next available row
    DestSht.Cells(lngDestLrow + 1, "C7") = SrcSht.Range("K14") 'Enter the form Field C7 on the next available row
    DestSht.Cells(lngDestLrow + 1, "D7") = SrcSht.Range("L14") 'Enter the form Field D7 on the next available row
    DestSht.Cells(lngDestLrow + 1, "E7") = SrcSht.Range("M14") 'Enter the form Field E7 on the next available row
   
        
End Sub

What I have tried:

I've tried to change the info in

lngDestLrow = DestSht.Cells(Rows.Count, "B7").End(xlUp).Row

but nothing is working.

Posted 21-Nov-19 7:54am

biologisttryingtocode

Updated 27-Nov-19 9:31am

Add a Solution

Comments

ZurdoDev 21-Nov-19 14:24pm

No idea what the problem is. How would we? You did not tell us what line of code causes the error. The error you got is a generic one.

biologisttryingtocode 21-Nov-19 14:27pm

My bad. It's telling me this line is causing the error: lngDestLrow = DestSht.Cells(Rows.Count, "B7").End(xlUp).Row

it gets highlighted whenever I try to run the code

Richard MacCutchan 22-Nov-19 3:56am

I do not think that the Rows object has a property called Count.

biologisttryingtocode 22-Nov-19 10:17am

It is - it's worked in the past. Do you have any suggestions for how to fix this problem?

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2019-11-27T09:32:00

Try to change this:

VB

lngDestLrow = DestSht.Cells(Rows.Count, "B7").End(xlUp).Row

to this:

VB

lngDestLrow = DestSht.Range("B" & Rows.Count).End(xlUp).Row + 1

Change the code accordingly to this part:

VB

'Move Data
'DestSht.Cells(lngDestLrow + 1, "B7") = SrcSht.Range("C14") 'Enter the form Field B7 on the next available row
DestSht.Range("B" & lngDestLrow) = SrcSht.Range("C14") 'Enter the form Field B7 on the next available row
'and so on....

Let me know if it help.