U kodu nemaš ni komentara, a nisi korisitio ni uvlačenje tako da mi je teško za praćenje i nisam razumeo kako si zamislio da radi.
Primer realizacija ComboBox-a sa mogućnošću dodavanja novih stavki u "bazu" kako bih ja realizovao imaš u prilogu.
Osnovna ideja ovog rešenja:
a/ Imamo imenovani opseg
ListaCombo
b/ RowSorce svojstvo za odgovarajući ComboBox (
cmbTest) na formi ukazuje na ovaj imenovani opseg
c/ Kad se klikne na OK i time potvrdi izbor proverava se da li je tekuća vrednost već postoji na listi. Ukoliko ne onda se dodaje na kraj postojećeg opsega.
Code:
Private Sub cmdOK_Click()
' Završetak izbora
If IsError(Application.Match(Me.cmbTest.Text, Me.cmbTest.List, 0)) Then 'Vrednost nije na listi
'Upiši novu stavku
Range("ListaCombo").End(xlDown).Offset(1, 0).Value = Me.cmbTest.Text
' Dodaj novu stavku u imenovan opseg
Range("ListaCombo").Resize(Range("ListaCombo").Rows.Count + 1, Range("ListaCombo").Columns.Count).Name = "ListaCombo"
End If
End Sub
Nije to loše Rembrante, samo što ne bi dodao još malo boje?