last row problem

[polboy_mx]

hello to all, i have one useform to capture data but I cannot locate "lastrow"
this its the code...
Private Sub btn_prodxklienteOK_Click()
Dim LastRow As Long

LastRow = Worksheets("pxk").Range("A65536").End(xlUp).Row + 1
**here begin the problem
Cells(LastRow, 1).Value = tb_idkliente.Value
Cells(LastRow, 2).Value = cb_kliente.Value
Cells(LastRow, 3).Value = cb_artikulos.Value
Cells(LastRow, 4).Value = tb_cantidad.Value
Cells(LastRow, 5).Value = tb_dolar.Value
Cells(LastRow, 6).Value = tb_pesos.Value
Cells(LastRow, 7).Value = Calendar1.Value
Cells(LastRow, 8).Value = tb_factura.Value
Unload Me
End Sub

 

[Norie]

What is the actual problem?

The posted code looks fine to me.

Is it not returning the expected last row or is it producing errors?

 

[Von Pookie]

I don't see anything wrong with that code. Are you getting an error of some sort when you try to run it? How is it not working for you?

 

[polboy_mx]

the problem start in the line "Cells(LastRow, 1).Value = tb_idkliente.Value

 

[Norie]

But what's the problem?

 

[Von Pookie]

He sent me the workbook; just now having a look...

 

[uofmoo]

I've never used the Range.End.Row before so I don't know how that works, but I usually use:
LastRow = ActiveSheet.UsedRange.Rows.Count

 

[Von Pookie]

polboy:

I looked at your workbook. The form does not have a textbox named tb_idkliente. That is causing the error. It can not update the value since the item does not exist.

You will also have a problem with this line:

Cells(LastRow, 7).Value = Calendar1.Value

You do not have an object called Calendar1. You should use DTPicker1 instead.

 

[polboy_mx]

Thanks, Resolved...