How to add member without overwriting the old member?

[Baked_potato]

I have no background in programming and currently still going on self study.


Private Sub OKcmdb_Click()

Dim x As Long

x = 1


Worksheets("Members").Cells(x, 1).Value = Idtb.Value

Worksheets("Members").Cells(x, 2).Value = Fullnametb.Value

Worksheets("Members").Cells(x, 3).Value = JPositiontb.Value

Worksheets("Members").Cells(x, 4).Value = Sectiontb.Value

Sheets("Members").Activate

End Sub


Thanks in advance,
Baked potato

 

[Fluff]

Hi & welcome to MrExcel.
How about

Private Sub OKcmdb_Click()

Dim x As Long



With Worksheets("Members")
   x = .Range("A" & Rows.Count).End(xlUp).Offset(1).Row
   .Cells(x, 1).Value = Idtb.Value

   .Cells(x, 2).Value = Fullnametb.Value

   .Cells(x, 3).Value = JPositiontb.Value

   .Cells(x, 4).Value = Sectiontb.Value

   .Activate
End With

End Sub

 

[mumps]

Try:

Private Sub OKcmdb_Click()
    With Sheets("Members")
        .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Resize(, 4).Value = Array(Idtb.Value, Fullnametb.Value, JPositiontb.Value, Sectiontb.Value)
        .Activate
    End With
End Sub

 

[Baked_potato]

Hi & welcome to MrExcel.
How about

Private Sub OKcmdb_Click()

Dim x As Long



With Worksheets("Members")
   x = .Range("A" & Rows.Count).End(xlUp).Offset(1).Row
   .Cells(x, 1).Value = Idtb.Value

   .Cells(x, 2).Value = Fullnametb.Value

   .Cells(x, 3).Value = JPositiontb.Value

   .Cells(x, 4).Value = Sectiontb.Value

   .Activate
End With

End Sub

Hi sir,

Why does when i clicked ok, there's no appearance of the text i wrote in textboxes?

 

[Fluff]

That suggest you have data of some sort further down the sheet than you thought.
If you hit Ctrl End what row does it take you to?

 

[Baked_potato]

Try:

Private Sub OKcmdb_Click()
    With Sheets("Members")
        .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Resize(, 4).Value = Array(Idtb.Value, Fullnametb.Value, JPositiontb.Value, Sectiontb.Value)
        .Activate
    End With
End Sub

Hi sir,

No text appeared

 

[Baked_potato]

That suggest you have data of some sort further down the sheet than you thought.
If you hit Ctrl End what row does it take you to?

Hi sir,

Wow!

I didn't notice this one.

3039

 

[Fluff]

Is your data in that row?

 

[Baked_potato]

Is your data in that row?

Is your data in that row?

Yes sir

 

[Fluff]

Should you have data that far down?
If not I suggest you delete all those rows.