Textbox value to cell in active sheet rather then Specific

[DanSMT]

Hey all new here.

I am having an issue changing code to place textbox value to current active sheet rather than a specific sheet. I am working my way through to create an active form to generate data based on scanning an item into a single textbox.

TextBox1.Font.Size = 28
TextBox1.Value = ActiveSheet.Range("E1").Value + 1
If Me.ScanTB = "" Then
Me.ScanTB.SetFocus
Else
For i = 1 To 1
c = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 'Having issue here.
Sheets("Sheet1").Cells(c + 1, 1).Value = ScanTB.Text
Next i
Me.ScanTB = ""
Cancel = True
End If

 

[Fluff]

Hi & welcome to MrExcel
How about

If Me.ScanTB = "" Then
   Me.ScanTB.SetFocus
Else
   Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = ScanTB.Text
   Me.ScanTB = ""
   Cancel = True
End If

 

[DanSMT]

Perfect!!! Thank you sooooo much!!

 

[DanSMT]

One more thing.

I would also like to count each item in the first column and display the quantity in a textbox.

I did that in the first spreadsheet, however when I create a new sheet it obviously isnt transfering over.

 

[Fluff]

As that is a totally different question, please star a new thread.
Cheers

 

[DanSMT]

Ok, although I actually figured that one out. Thanks though.

 

[Fluff]

You're welcome & thanks for the feedback