Aynı değerden iki adet varsa (mükerrer ise )uyarsın

[h2001]

Arkadaşlar,
Aşağıdaki makro ile combobox 5 e yazdığım veriyi bir buton ile sorguluyorum. Aynı isimde iki kişi varsa beni uyarsın istiyorum. Makro için şimdiden teşekkürler.Syg.


Private Sub CommandButton12_Click()
Sheets("YTSDOSYAVERİ").Select

Dim bak As Range
For Each bak In Range("a2:a" & WorksheetFunction.CountA(Range("a2:a6500")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox5.Value, vbUpperCase) Then
bak.Select

TextBox8.Value = ActiveCell.Offset(0).Value
TextBox12.Value = ActiveCell.Offset(O, 8).Value
TextBox9.Value = ActiveCell.Offset(0, 9).Value
TextBox14.Value = ActiveCell.Offset(O, 2).Value
TextBox16.Value = ActiveCell.Offset(O, 3).Value
ComboBox1.Value = ActiveCell.Offset(0, 17).Value

ComboBox4 = ""
TextBox21.SetFocus

Exit Sub
End If
Next bak
MsgBox "Aradığınız kayıt bulunamadı"
End Sub

 

[alibal]

http://excel.web.tr/showthread.php?t=17185&highlight=m%FCkerrer

Yukarıdaki bağlantıyı inceleyiniz...