Additions to userform

[ipbr21054]

Morning,

I have made a userform but need a couple of additions that im not to be about.

The code in use is shown below.

The addition would be that once i press Command Button 1 it should make sure that TextBox 1,2,3,4,5,6 & Option Button1,2,3 has been answered otherwise show msgbox to advise question not answered etc.

The last addition would then be once the above has been successfully transfered to my sheet the text boxes / option buttons should be cleared & focus set on text box 1 ready for the next entry.

Private Sub CommandButton1_Click()

LastRow = ThisWorkbook.Worksheets("POSTAGE").Cells(Rows.Count, 1).End(xlUp).Row


ThisWorkbook.Worksheets("POSTAGE").Cells(LastRow + 1, 1).Value = TextBox1.Text


ThisWorkbook.Worksheets("POSTAGE").Cells(LastRow + 1, 2).Value = TextBox2.Text


ThisWorkbook.Worksheets("POSTAGE").Cells(LastRow + 1, 3).Value = TextBox3.Text


ThisWorkbook.Worksheets("POSTAGE").Cells(LastRow + 1, 5).Value = TextBox4.Text


ThisWorkbook.Worksheets("POSTAGE").Cells(LastRow + 1, 6).Value = TextBox5.Text


ThisWorkbook.Worksheets("POSTAGE").Cells(LastRow + 1, 9).Value = TextBox6.Text




If OptionButton1.Value = True Then
ThisWorkbook.Worksheets("POSTAGE").Cells(LastRow + 1, 8).Value = "DR"
End If


If OptionButton2.Value = True Then
ThisWorkbook.Worksheets("POSTAGE").Cells(LastRow + 1, 8).Value = "IVY"
End If


If OptionButton3.Value = True Then
ThisWorkbook.Worksheets("POSTAGE").Cells(LastRow + 1, 8).Value = "N/A"
End If




End Sub

Have a nice day.

 

[My Aswer Is This]

Are you using a PC or a MAC

I used the same Textbox names you used.

 

[ipbr21054]

PC

Can you upload your file so i can then download and try

 

[My Aswer Is This]

Remove the testing:
These lines of code and see if things work:

For i = 1 To 6
        If Me.Controls("TextBox" & i).Value = "" Then MsgBox "Some Textbox is empty": Exit Sub
    Next
    
    For i = 1 To 3
        If Me.Controls("OptionButton" & i).Value = False Then x = x + 1
    Next
    If x = 3 Then MsgBox "No Option Button is selected": Exit Sub

 

[ipbr21054]

Ok
That code has been removed.
I then leave 1 text box empty and hit the transfer button.
I see RTE 424 object required.

No matter which text box i leave empty the same line when i debug is shown in yellow

.Cells(lastrow + 1, 6).Value = TextBox5.Text

Transfer goes ahead but there is no values transfered from option button or TextBox6

If i leave a option button unselected then same error message,same line of code in yellow,also button option & TextBox6 no values transfered.

Hope this helps

 

[My Aswer Is This]

I only added the part of the script where you wanted to check to make sure no data was missing.

Was this script you provided working before for you?

What version on Excel are you using?

 

[My Aswer Is This]

So here is the line of code I provided:

.Cells(lastrow + 1, 9).Value = TextBox6.Text: TextBox6.Value = ""

You tell me why this would not work?

You said Value from textbox6 was not working.

This script says put textbox6 value into column 9
​

 

[My Aswer Is This]

I spent time helping on this but for some reason it seems like my efforts did not help. I setup a Userform just like you showed and it all worked for me.

 

[ipbr21054]

Regarding post #15 i am only advising you what happens once i run the code with your code removed in post # 13

Why it doesnt work i dont know & yes TextBox 6 then is entered into column 9

 

[ipbr21054]

Please wait as i might of found the issue

 

[My Aswer Is This]

I admit I get confused when I write a script that works perfect for me but user says it does not work for them.

So I'm a little lost what does and does not work.

If the only part that is not working is the part where it checks the controls for values I could write that part another way.

But I'm not sure what is and is not working.