Run-time Error 438

**ccowman** · 01-16-2013, 01:38 PM

Hi everyone,

I'm very new to VBA and have gotten this code to work for another sheet and am basically just tweaking it for my new requirements. Wondering if anyone could help explain why I'm receiving a 438 error of "Object doesn't support this property or method". Below is my code. Thanks!

Sub CopyPasteEnrollReqID()
Dim lrow As Long, i As Long, lastrow As Long, x As Long, counter As Long

With Worksheets("Requirements")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 2 To lrow
            If .Cells(i).Value Like "Enrollment Through Delinquency" Then
            .Range("A" & i & ":A" & i).Copy Worksheets("Enroll").Range("J" & Rows.Count).End(xlUp).Offset(1, 0)
            lastrow = Worksheets("Enroll").Range("J" & Rows.Count).End(xlUp).Row
            Worksheets("Enroll").Cells(lastrow).Value = .Cells(i)
            End If
    Next i
    Worksheets("Enroll").Columns("A:A").HorizontalAlignmnet = xlCenter
End With

End Sub

**Norie** · 01-16-2013, 01:46 PM

Which line of code causes the error?

**ccowman** · 01-16-2013, 01:49 PM

Sorry, wish I could say, but every time I try to Debug and "Step Into", it throws up that error. Let me know if you have any other ideas how to see which line is the issue. Thanks!

**stnkynts** · 01-16-2013, 01:50 PM

Not quite sure. It should be telling you in Visual Basic Editor which line is causing the problem. A couple things I noticed

Range("A" & i & ":A" & i)

Is just a single cell

Worksheets("Enroll").Cells(lastrow).Value = .Cells(i)

I have a feeling this isn't going to do what you want it to do

Let us know which line of code it error on.

**ccowman** · 01-16-2013, 02:28 PM

So the code originally worked, however, it copied a few extra things that I didn't want, so I tried to tweak it. Below is the code that previously "worked". Basically, I took the code from another sheet that it worked perfectly on and tried to transform it to work for this scenario (and I don't know quite enough to fully do that properly - as you can tell).

Sub CopyPasteEnrollReqID()
Dim lrow As Long, i As Long, j As Long, lastrow As Long, x As Long, counter As Long

With Worksheets("Requirements")
    lrow = .Range("A" & .Rows.Count).End(xlUp).Row
    For i = 2 To lrow
        For j = 15 To 15
            If .Cells(i, j).Value Like "Enrollment Through Delinquency" Then
            .Range("A" & i & ":A" & i).Copy Worksheets("Enroll").Range("J" & Rows.Count).End(xlUp).Offset(1, 0)
            lastrow = Worksheets("Enroll").Range("J" & Rows.Count).End(xlUp).Row
            Worksheets("Enroll").Cells(lastrow, j).Value = .Cells(i, j)
            End If
        Next j
    Next i
    Worksheets("Enroll").Columns("A:A").HorizontalAlignmnet = xlCenter
End With

End Sub

I appreciate any help, but I may just re-post in the VBA forum and see if someone can help me from scratch! Thanks again!

**Norie** · 01-16-2013, 02:31 PM

I can't see anything wrong with the code and I can't test it - no worksheet/workbook/data for that.

Can you not tell us which line of code the error happens on?