Object Error when using set on an variable

Question

The object Error keeps appearing no matter what I try. I'm not that experienced in VBA.

Its appears to be when I'm giving the "lastrow" variable a value.

Const sFILE_PATH    As String = "C:\Users\Downloads\"
Const sEXTENSION    As String = ".xlsm"

Dim lastrow As Long
Dim lastrow_Offset As Long: lastrow_Offset = ThisWorkbook.Sheets("Test").Cells(Rows.Count, "h").End(xlUp).Row

Dim wbk As Workbook
Dim sFileName As String

sFileName = "2018-12"
Set wbk = Workbooks.Open(sFILE_PATH & sFileName & sEXTENSION)

Set lastrow = wbk.Sheets("Acc").Cells(Rows.Count, "C").End(xlUp).Row

Remove the Set command before populating the variable. The command .row returns a number, not a range. — prextor
– prextor, Commented Jan 8, 2019 at 10:21
I would break the last statement into different statements and see which one fails — A9S6
– A9S6, Commented Jan 8, 2019 at 10:21

Mark Fitzgerald · Accepted Answer · 2019-01-08 11:48:44Z

1

You've defined Dim lastrow As Long so it's not an object which needs to be Set. It's a variable that needs to be assigned

lastrow = wbk.Sheets("Acc").Cells(Rows.Count, "C").End(xlUp).Row

I haven't tested this against your implied workbook structure but assume wbk.Sheets("Acc").Cells(Rows.Count, "C").End(xlUp).Row evaluates to a Long

answered Jan 8, 2019 at 11:48

Mark Fitzgerald

3,0683 gold badges27 silver badges29 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

Object Error when using set on an variable

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related