Combobox change event not working although code is write

[Tifa]

hello! I m using the below code I m sure it is right but the cell doesn't change when I choose or select an item from my Combobox

how code I fix this?
is it a problem in combo box properties, I guess I tried all of them too!

Private Sub CB_Model_No_1_Change()

Dim product As Worksheet
Set product = ThisWorkbook.Sheets("DeNora Data Entry")

product.Range("A5").Value = Me.CB_Model_No_1.Value

End Sub

 

[Saurabhj]

Hi Tifa,

Are you getting any error ?
I used the same code and it's working.

In userform, I used below code.

Private Sub CB_Model_No_1_Change()
    Dim product As Worksheet
    Set product = ThisWorkbook.Sheets("DeNora Data Entry")
    
    product.Range("A5").Value = Me.CB_Model_No_1.Value
End Sub

Private Sub UserForm_Activate()
    CB_Model_No_1.AddItem "first"
    CB_Model_No_1.AddItem "second"
End Sub

Thanks,
Saurabh

 

[Tifa]

No, errors are appearing at all

but nothing is happening

when I select an item the cells doesn't change!!

 

[NoSparks]

If you put STOP as the first instruction in the procedure does it stop there ?

Are you working with merged cells ?

 

[Tifa]

I found the solution!!

in the properties bar the boundcolumn / columncount was set to 10

when I changed it to 1 it worked !!

 

[Tifa]

Thanks a lot for all of you