Vba Could not find the specified object

[djossh]

Hi. I have this code below but i'm getting "Could not find the specified object" (error on Me.Controls)
please help. thanks

Private Sub CommandButton1_Click()
Dim i As Long
Dim LastRow As Object


For i = 0 To 21
Set LastRow = Sheet4.Range("a65536").End(xlUp)

LastRow.Offset(1, 0).Value = sino.Value
LastRow.Offset(1, 1).Value = brgyname.Value
LastRow.Offset(1, 2).Value = tin.Value
LastRow.Offset(1, 3).Value = address.Value
LastRow.Offset(1, 4).Value = sidate.Value
LastRow.Offset(1, 5).Value = Me.Controls("qt" & i).Value
LastRow.Offset(1, 6).Value = Me.Controls("unit" & i).Value
LastRow.Offset(1, 7).Value = Me.Controls("desc" & i).Value
LastRow.Offset(1, 8).Value = Me.Controls("up" & i).Value
LastRow.Offset(1, 9).Value = Me.Controls("amt" & i).Value

Next i


End Sub

 

[My Aswer Is This]

I think this:

Dim LastRow As Object​

Should be this:

Dim LastRow As Long

And I always use this:

Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row




​

 

[Jaafar Tribak]

Double check the control names to make sure they correspond to "qt" & i, "unit" & i etc ...

Also remember that le for next loop start at i=0 which means that the first call to Me.Controls("qt" & i).Value will evaluate to Me.Controls("qt0") which I very much suspect is the problem.

 

[djossh]

i think this:

dim lastrow as object​

should be this:

dim lastrow as long

and i always use this:

Dim lastrow as long
lastrow = cells(rows.count, "a").end(xlup).row




​

thank you so much!!.. God bless

 

[djossh]

Thank you so much. that solve the problem.. God Bless.

 

[djossh]

Double check the control names to make sure they correspond to "qt" & i, "unit" & i etc ...

Also remember that le for next loop start at i=0 which means that the first call to Me.Controls("qt" & i).Value will evaluate to Me.Controls("qt0") which I very much suspect is the problem.

Thank you. you are correct that "0" was the main problem... God Bless