Application-defined or Object-defined error

[nanofied]

Hello guys. In the code below, I am trying to compare 2 column on Worksheet(DUMPSheet) (this worksheet has already been activated in the code before.) and add the missing cell into Worksheet(DTSheet). When trying to execute the code I get the "Application-defined or Object-defined error" Error.

Dim REFNO_GE As Variant
REFNO_GE = Range("A2:A" & Range("A" & Rows.Count).End(xlUp).row).Value


Dim REFNO_DT As Variant
REFNO_DT = Range("K2:K" & Range("K" & Rows.Count).End(xlUp).row).Value


Dim x, y As Variant
Dim match As Boolean
Dim GECounter, DTCounter As Long
    
GECounter = 2
DTCounter = LastDTRow + 1
    
For Each x In REFNO_GE
    match = False
    For Each y In REFNO_DT
        If x = y Then match = True
    Next y
    If Not match Then
        Worksheets(DUMPSheet).Range(Cells(GECounter, 7)).Select
        Selection.Copy
        Worksheets(DTSheet).Range(Cells(DTCounter, 1)).Select
        Selection.Paste
        DTCounter = DTCounter + 1
    End If
    GECounter = GECounter + 1
Next

 

[nanofied]

        Worksheets(DUMPSheet).Range(Cells(GECounter, 7)).Select

To clarify the error occurs at this line.

 

[MARK858]

What happens with the code below?

    If Not Match Then
        Worksheets(DUMPSheet).Range(Cells(GECounter, 7)).Copy _
                Worksheets(DTSheet).Range(Cells(DTCounter, 1))
        DTCounter = DTCounter + 1
    End If

I am assuming that LastDTRow is being created somewhere earlier in the code.

 

[nanofied]

        Worksheets(DUMPSheet).Range(Cells(GECounter, 7)).Copy _
                Worksheets(DTSheet).Range(Cells(DTCounter, 1))
[\CODE]

At the above portion of the code I get the same error "Run-time Error 1004: [COLOR=#333333]Application-defined or Object-defined error"[/COLOR]

 

[MARK858]

Any sheet protection or merged cells? also when the error occurs if you hover your mouse over GECounter and DTCounter what values are shown?

Also is DUMPsheet a variable or a sheet name (same question for DTSheet)?

 

[nanofied]

They are not protected or merged as far as I know. But the cells that I wish to paste on is part of a table

DUMPSheet and DTSheet a string variable which have already been declared in the earlier code which are not shown

I will only be able to confirm again once I’m back at work 3 dayslater. Sorry for the inconvience and thank you for your assistance

 

[Fluff]

How about

If Not Match Then
    Worksheets(DUMPSheet).Range(Worksheets(DUMPSheet).Cells(GECounter, 7)).Copy _
      Worksheets(DTSheet).Range(Worksheets(DTSheet).Cells(DTCounter, 1))
    DTCounter = DTCounter + 1
End If

 

[MARK858]

Thanks Fluff, I missed that the Cells hadn't been qualified with the sheet

 

[nanofied]

How about

If Not Match Then
    Worksheets(DUMPSheet).Range(Worksheets(DUMPSheet).Cells(GECounter, 7)).Copy _
      Worksheets(DTSheet).Range(Worksheets(DTSheet).Cells(DTCounter, 1))
    DTCounter = DTCounter + 1
End If

Hi Fluff, I am still getting the same error.

 

[nanofied]

Any sheet protection or merged cells? also when the error occurs if you hover your mouse over GECounter and DTCounter what values are shown?

Also is DUMPsheet a variable or a sheet name (same question for DTSheet)?

I have checked, there is no sheet protection or any merged cells.

And GECounter and DTCounter is 2 and 117 respectively. The values are as what I desired.