Comboxes

[Angeliki]

Hi,
I have a combobox with 3 options. When i choose an option i want to write me
the
option in the cell (6,5). although it works for the second and third option
(Non Residential and combined)
it does not work for the first one (Residential). Here it is my code. Could
you please tell me what is wrong?

If ComboBox3.ListIndex = 0 Then
Worksheets("OUTPUT_CAT").Activate
Cells(6, 5) = "Residential"
End If

If ComboBox3.ListIndex = 1 Then
Worksheets("OUTPUT_CAT").Activate
Cells(6, 5) = "Non Residential"

Else
Worksheets("OUTPUT_CAT").Activate
Cells(6, 5) = "Combined"

End If

Thanks in advamce
Angeliki

[Tom Ogilvy]

You first test for zero. So the cell receive Residential or nothing. Then
regardless, you
then test for 1 and if it isn't 1 you treat it as Combined. So residential
is overwritten in this step. Make your checks exclusive so only one action
is performed:

If ComboBox3.ListIndex = 0 Then
Worksheets("OUTPUT_CAT").Activate
Cells(6, 5) = "Residential"
ElseIf ComboBox3.ListIndex = 1 Then
Worksheets("OUTPUT_CAT").Activate
Cells(6, 5) = "Non Residential"

Else
Worksheets("OUTPUT_CAT").Activate
Cells(6, 5) = "Combined"

End If


--
Regards,
Tom Ogilvy


"Angeliki" <[email protected]> wrote in message
news:[email protected]...
> Hi,
> I have a combobox with 3 options. When i choose an option i want to write
me
> the
> option in the cell (6,5). although it works for the second and third
option
> (Non Residential and combined)
> it does not work for the first one (Residential). Here it is my code.
Could
> you please tell me what is wrong?
>
> If ComboBox3.ListIndex = 0 Then
> Worksheets("OUTPUT_CAT").Activate
> Cells(6, 5) = "Residential"
> End If
>
> If ComboBox3.ListIndex = 1 Then
> Worksheets("OUTPUT_CAT").Activate
> Cells(6, 5) = "Non Residential"
>
> Else
> Worksheets("OUTPUT_CAT").Activate
> Cells(6, 5) = "Combined"
>
> End If
>
> Thanks in advamce
> Angeliki
>
>