Private Sub btn_prodxklienteOK_Click()
Dim LastRow As Long
LastRow = Worksheets("pxk").Range("A65536").End(xlUp).Row + 1
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,
------> Unload Me ' aqui ...
End Sub




