changing code from using Combobox to optionbuttons

[paul_pearson]

Thanks bakerman

That solved.....no error but if i select External and it combobox`s ,fill in a comment and then Transfer Data a messagebox asks for me to select a Part which is disabled in the Internal section......would this be from Tags in the properties....if i remove this this it will not be available when i select Internal option

It works fine if i select the Internal option as it transfers the data correctly,it is only if i select External this happens

Thanks again

[bakerman]

This covers all, i guess.

[paul_pearson]

Thanks again bakerman

All works well and i guess you are most likely getting tired of this thread but 1 last go

If i enter a date and machine i can send data without it having all the fields with entries....it only asks for a Comment....

If this can be changed i think it is finally finished

Thanks again

[bakerman]

Private Sub CommandButton1_Click()

    For Each ctl In Frame1.Controls
        If TypeName(ctl) = "OptionButton" Then
            If ctl.Value = False Then x = x + 1
        End If
    Next
    If x = 3 Then MsgBox "Select a machine before you write data": Exit Sub
    For Each ctl In Frame2.Controls
        If TypeName(ctl) = "OptionButton" Then
            If ctl.Value = False Then y = y + 1
        End If
    Next
    If y = 2 Then MsgBox "Select Internal or External before you write data": Exit Sub
    'check user input
    For Each ctl In Me.Controls
        If ctl.Tag <> vbNullString And ctl.Enabled Then
            If ctl.Value = vbNullString Then MsgBox ctl.Tag: Exit Sub
        End If
    Next
    For i = 1 To 3
        If Me("OptionButton" & i) Then whatsheet = Me("OptionButton" & i).Caption
    Next
    'write data to worksheet
    With Sheets(whatsheet)
       .Unprotect Password:="abc"
       .Cells(.Cells(.Rows.Count, "B").End(xlUp).Row + 1, 2).Resize(, 17) = Array(ComboBox1.Value, , , , , , , , _
            ComboBox2.Value, ComboBox3.Value, ComboBox4.Value, TextBox2.Text, IIf(OptionButton4, TextBox1.Text, ""), _
            ComboBox5.Value, ComboBox6.Value, TextBox3.Text, IIf(OptionButton5, TextBox1.Text, ""))
        .Protect Password:="abc"
    End With
    'Clear all fields
    For Each ctl In Me.Controls
        If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then ctl.Value = vbNullString
        If TypeName(ctl) = "OptionButton" Then ctl.Value = False
    Next
    For i = 2 To 6
        Me("Combobox" & i).Enabled = False
        If i = 2 Or i = 3 Then Me("Textbox" & i).Enabled = False
    Next
    End Sub

[paul_pearson]

Thanks bakerman for all your help....appreciated