Data Input in next Empty Row

amde10 · Dec 11th 2020

I'm sorry i was not follow the rulers before. I try to input data through form to the last empt sheet on table, and i get continously error. Can anyone kindly tell me the reason of it and how to fix it. Thanks you. I have watched many videos before and still get stuck. These are my codes and where's the error at.

Code

n = Worksheets("ListItem").Range("TglOrderMasuk" & Rows.Count).End(xlUp).Row + 1

Worksheets("ListItem").Range("TglOrderMasuk" & n).Value = txbOrderMasuk.Value

Worksheets("ListItem").Range("NamaBuyer" & n).Value = txbBuyer.Value

Worksheets("ListItem").Range("KodePO" & n).Value = txbPO.Value

Worksheets("ListItem").Range("NamaProduk" & n).Value = txbNamaBarang.Value

Worksheets("ListItem").Range("JenisWig" & n).Value = txbJenisWig.Value
    Worksheets("ListItem").Range("QtyOrder" & n).Value = txbQOrder.Value

Display More

**Carim** · Dec 12th 2020

Hello,

Many contributors will give you a hand ... as long as you attach a sample file ...

**royUK** · Dec 12th 2020

You need to add a new listrow

**royUK** · Dec 12th 2020

This will add a new Row at the bottom of the Table and insert the input from the TextBox to the first cell of that row.

Code

Option Explicit


Dim oTbl As ListObject


Private Sub CommandButton1_Click()
Dim oNewRw As ListRow
Set oNewRw = oTbl.ListRows.Add(AlwaysInsert:=True)
oNewRw.Range.Cells(, 1).value = Me.txbOrderMasuk.value
'///oNewRw.Range.Cells(, 2).value = Me.TextBox2.value
''/// etc
End Sub
Private Sub UserForm_Initialize()
Set oTbl = Worksheets("ListItem").ListObjects(1)
End Sub

Display More

Attach an example oyou workook forfurther help

Data Input in next Empty Row

Participate now!

Share

Tags