Adında kayıt mevcut

[xemdarx]

Selamlar,
Aşağıdaki kod içine Tc kimlik numarası kayıtlı ise B sütünunda ismi bulup "A.... B.... Adında üye zaten kayıtlı" uyarı verebilir mi?

   Next bak
    For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
        If StrConv(bak.Value, vbUpperCase) = StrConv(TextBox3.Value, vbUpperCase) Then
            MsgBox "Bu TC KİMLİK numaralı bir kayıt var."
            Exit Sub
        End If

 

[PLİNT]

Merhaba
TC no "B" sütununda; "C" sütununda isim var ise aşağıdaki gibi
Adı "C" de, soyadı "D" de ise mavi bölümü kullanın

[SIZE="2"]Private Sub CommandButton1_Click()
  For Each bak In Range("B1:B" & Cells(Rows.Count, "B").End(3).Row)
If Trim(bak.Value) = Trim(TextBox3.Value) Then
 MsgBox Cells(bak.Row, "C") & " Adında üye zaten var "
[COLOR="Blue"] ' MsgBox Cells(bak.Row, "C") & " " & Cells(bak.Row, "D") & " Adında üye zaten var "[/COLOR]
            Exit Sub
        End If
        Next
End Sub[/SIZE]

 

[xemdarx]

Teşekkürler. İstediğim gibi oldu..Saygılarımla