Populate next row with UserForm data

[loststudent]

Hi, everyone!

I'm currently doing a VBA application for updating a company's stock.

I'm trying to get the data from the UserForm combo boxes and text boxes to go into a spreadsheet but all I have so far is data going to the chosen cells. Everytime I clear the UserForm and add other data, those cells keep updating themselves, instead of moving on to the next row and populating it.

This is the code I have:

Private Sub CmmBAddOrder_Click()

Sheet3.Range("C5").Activate


ActiveCell.Value = TxtBoxOrderNo
ActiveCell.Offset(0, 1).Value = TxtBoxSupplier
ActiveCell.Offset(0, 2).Value = TxtBoxDate
ActiveCell.Offset(1, 0).Select

End Sub

I have tried many variations of this code, hoping it would work, but it either gets me 2 cells with the same value or keep updating the same cells.

Could someone (please please please) help me with a code that would make the data populate the next rows everytime I complete the UserForm?

Thank you

 

[Fluff]

Maybe

Private Sub CmmBAddOrder_Click()

With Sheet3.Range("C" & Rows.Count).End(xlUp).Offset(1)
   .Value = TxtBoxOrderNo
   .Offset(0, 1).Value = TxtBoxSupplier
   .Offset(0, 2).Value = TxtBoxDate
End With
End Sub

 

[dmt32]

another way perhaps:

Private Sub CmmBAddOrder_Click()
    Sheet3.Range("C" & Sheet3.Rows.Count).End(xlUp).Offset(1).Resize(, 3).Value = _
    Array(Me.TxtBoxOrderNo, Me.TxtBoxSupplier, Me.TxtBoxDate)
End Sub

Dave

 

[loststudent]

Thank you very much! It worked and saved my whole application!

 

[loststudent]

Thank you very much! I used both codes, they worked and saved my whole application!

 

[Fluff]

Glad we could help & thanks for the feedback

 

[ianrenton]

Hi, everyone!

I'm currently doing a VBA application for updating a company's stock.

I'm trying to get the data from the UserForm combo boxes and text boxes to go into a spreadsheet but all I have so far is data going to the chosen cells. Everytime I clear the UserForm and add other data, those cells keep updating themselves, instead of moving on to the next row and populating it.

This is the code I have:

Private Sub CmmBAddOrder_Click()

Sheet3.Range("C5").Activate


ActiveCell.Value = TxtBoxOrderNo
ActiveCell.Offset(0, 1).Value = TxtBoxSupplier
ActiveCell.Offset(0, 2).Value = TxtBoxDate
ActiveCell.Offset(1, 0).Select

End Sub

I have tried many variations of this code, hoping it would work, but it either gets me 2 cells with the same value or keep updating the same cells.

Could someone (please please please) help me with a code that would make the data populate the next rows everytime I complete the UserForm?

Thank you

I had almost identical problem. This thread saved my ***. Thanks everyone