Thread: UserForm terminates without result

Hi!

I'm trying to create a UserForm which should ask for few info, than put the values (and some other values taken from the worksheet) into the sheet. for some reason only the first value is copied into the cell, afterwards the UserForm closes without any error message... I have no idea what ca be wrong... here is the code that runs when the "enter" button of the UserForm is pressed..

Private Sub EnterBt_Click()

Dim emptyRow As Long
Dim HeadingCounter As Integer
Dim QuestionCounter_1 As Integer

Sheets(1).Activate

QuestionCounter_1 = Range("B2").Value
HeadingCounter = Range("B1").Value
emptyRow = WorksheetFunction.CountA(Range("a:a")) + 1


Cells(emptyRow, 2).Value = QuestionTBox.Value
Cells(emptyRow, 3).Value = PageTBox.Value
Cells(emptyRow, 4).Value = QuestionCounter_1
Cells(emptyRow, 5).Value = Chr(HeadingCounter)
End Sub

Any ideas?
Thanks!!!!
Mickey

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Try

Option Explicit
Private Sub EnterBt_Click()

Dim emptyRow As Long
Dim HeadingCounter As Integer
Dim QuestionCounter_1 As Integer

With Sheets(1)

QuestionCounter_1 = .Range("B2").Value
HeadingCounter = .Range("B1").Value
emptyRow = .Cells(.Rows.Count, 2).End(xlUp).Row + 1


.Cells(emptyRow, 2).Value = QuestionTBox.Value
.Cells(emptyRow, 3).Value = PageTBox.Value
.Cells(emptyRow, 4).Value = QuestionCounter_1
'not sure what this is
.Cells(emptyRow, 5).Value = Chr(HeadingCounter)
End With
End Sub

Thanks for the rep. Your chr code should be fine until the number exceeds 26