Bir metin kutusu girdisini metin içeren bir sütuna ('-' ile alfanümerik) karşılaştır, bir çoğaltma bulunursa, kullanıcıyı uyar

Question

Özel bir karakterle alfasayısal karakterlerden oluşan bir metin içeren bir sütuna sahibim '-' gibi -1, Amp-2, Xua-09, vb. Aşağıdaki kodu denedim, ancak Kat-1 gibi bir metni kopya olarak görmüyor. Herkes bu kodun neyin yanlış olduğunu kontrol edebilir.

Private Sub txt_BPName_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
Dim myrange As Range 
Dim match As Boolean 
Dim val 
Set myrange = Worksheets("Sheet1").Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).row) 
match = WorksheetFunction.CountIf(myrange, val) > 0 
If match Then 
MsgBox ("Duplicate") 
Cancel = True 
End If 
End Sub 

Answer 1

Bence instr() işlevine bakmalısınız. Sütununuzda yineleme yapabilir ve sütundaki her bir hücreyi bir for döngüsü ile metin kutusu değerinizle karşılaştırabilirsiniz. Bu muhtemelen en kolay çözümdür. E-tablonuzun bir bölümünü yayınlarsanız, işlevinizi çalışmak üzere düzenlemek daha kolay olurdu.