Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Comboxes
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Comboxes
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" wrote in message ... 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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to make all checkboxes false and clear all comboxes | Excel Discussion (Misc queries) |