girilen veriyi sütünda aratma

[udentr2002]

merhaba arkadaşlar textboxa girdiğim veriyi satfa1 in c stününda aratıp eğer aynı veri c stününda varsa uyarı mesajı veren bir kod nasıl olabilir??

 

[AS3434]

örneği inceleyin.

 

[udentr2002]

saol ama

benim istediğim tam olarak bu değil
anlatmak istediğim;
textboxa değer girdiğimde kaydet butonuna bastığımda textboxdaki veriyi ilgili yere kaydediyor fakat eğer kaydedeceği sütünda o adla aynı yazılmış bir bilgi varsa kaydetmeden bir uyarı mesajı verecek olan bir kod istiyorum

 

[emrexcel123]

şu kodu ekleyin

private sub commandbutton1_click ( )
x = worksheetfunction.countif(c:c,textbox1.text)
if x >= 1 then
msgbox "Bu veri zaten mevcut",vbinformation,"Veri Var"
exit sub
end if
end sub

 

[udentr2002]

emre hocam

teşekkürler ama kod hata veriyor tekrar bir bakarmısın lütfen speratör hatası gibi bir şey diyor ama

 

[AS3434]

Kodu şöyle yazın.

Private Sub commandbutton1_click()
say = WorksheetFunction.CountIf(Columns(3), txtBul.Text)
If say > 0 Then
MsgBox "Bu veri zaten mevcut", vbInformation, "Veri Var"
Exit Sub
End If
End Sub

 

[Zeki Gürsoy]

Set f = Columns("c").Find(what:=textbox1, lookat:=xlWhole)
If f Is Nothing Then
    MsgBox "yok "
Else
    MsgBox "var"
End If

 

[udentr2002]

zeki hoca

teşekkür ederim saol