Can't add new item to the listbox while running the userform

[syed_iqbal]

Hi,




Pls go through the userform in attached excel file.


"Add New Genre" Code is not working.

Thank you in advance




regards
shiva

[GTO]

Syed_iqbal,

I get a red bar warning me not to open your file.

Mark

[syed_iqbal]

Hi,



Sorry, Now pls find the attached file.



regards
syed

[GTO]

Okay, you are using RowSource to populate the listbox with the (formula-driven) named range 'filmgener'. You cannot use .AddItem if you have linked the list boxes contents to a RowSource. Does that make sense?

Mark

[mike7952]

Give this a try. Add the new item to sheet2 first then reassign listbox row source

Private Sub cmdnewgenre_Click()
Dim r As Range
    If newgenre.Value <> "" Then
        Set r = Range("a2", Range("a2").End(xlDown)).Find(newgenre.Value)
        If r Is Nothing Then
            Sheet2.Range("a2").End(xlDown).Offset(1, 0).Value = newgenre.Value
            genrelst.RowSource = "filmgener"
            newgenre.Value = ""
        End If
    End If
End Sub