Se il problema è "solamente" quello di controllare in una colonna se un valore è già presente, la / le soluzione/i possibile/i è /sono estremamente semplice/i.
Te ne illustro una "tanto per"; ho ipotizzato che:
1) le descrizioni da cercare si trovano in colonna A
2) il nuovo valore da inserire viene scritto in TextBox1
3) per inserire il nuovo valore nell'elenco clikki un pulsante (che ho chiamato CBInserimento)
Il codice seguente non inserisce nulla, è puramente dimostrativo!
- Codice: Seleziona tutto
Option Explicit '<== dicharazione obbligatoria delle variabili
Option Compare Text '<== ignora la differenza fra maiuscole e minuscole
Private Sub CBInserimento_Click()
Dim fnd As Range
With Worksheets("Elenco").Range("A:A")
Set fnd = .Find(Me.TextBox1.Text)
End With
If fnd Is Nothing Then
'il valore non è presente in elenco, quindi lo vado ad inserire
MsgBox "Valore non presente, lo inserisco", vbInformation
Else
MsgBox "Valore già presente", vbCritical
End If
Set fnd = Nothing
End Sub