UserForm

Hi

Try something like this.

Private Sub CommandButton2_Click():

Dim LastRow As Range
Dim strVal As String
  For i = 1 To 20
    If UserForm1.Controls("combobox" & i).Value = "" Then
      MsgBox "Please fill in all options"
      Exit Sub
    End If
  Next i

I've just put in the start of the module so you can see its position.

rylo

thats perfect mate...

you a star... ive used it so the combo box is filled and the textbox field....

for each combo box there are 3 values to select 'Yes', 'No' and 'N/A'

when i press Y on the keyboard, it changes the combo box to Yes, when the N button is pushed its changes it to No, how can i assign a different character on the keyboard so 'N/A' can be selected in the combo box... like the letter 'A'

thanks

Hi

Only thing I can think of is to change "N/A" to " N/A". You can then use a space bar to select.

When the data is being output, you could remove the leading space (TRIM function) or replace when the output is completed.

rylo

thanks mate