TEXTBOX DA AYNI DEĞER VAR UYARISI

[ulutanas]

Arkadaşlar merhaba, sitemizde konu hakkında fazlasıyla arama yaptım ama sonuca ulaşamadım.

Sürekli kullandığımız dosyada bir bir sorum olacak. VBA dan Stok sayfasına yaptığımız kayıtlarda palet numarası olarak kayıt yaptığımız sütün'a aynı kayıt bazen yanlışlıkla iki kere kayıt yapıyoruz.

Bu sorunu önlemek için palet no yazdığımız textbox1'e yazdığımız sayıları stok sayfadaki E1:E2000 arasındaki verileri tarayıp aynı sayılı kayıt tekrar yapılmaması için textbox uyarı versin istiyorum.

Yani E:2:e2000 arasında mevcut olan sayılardan herhangi bir değeri Textbox1 e tekrar girersek uyarı vermesi için nasıl bir kod yazılmalı.

Yardımcı olan arkadaşlara şimdiden teşekkür ederim.

İyi çalışmalar...

 

[askm]

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
say = WorksheetFunction.CountIf(Sheets("stok").Range("E1:E2000"), TextBox1.Text)
If say = 0 Then
    Rem işlem yapılacak kodlar
Else
    
    MsgBox "Bu kod daha önce kullanılmış.", vbInformation, "UYARI!"
    TextBox1.Text = ""
    Exit Sub
End If
End Sub

 

[TiOr]

Slm,
İlgili sayfanın kod kısmına yapıştırınız.
İyi çalışmalar.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("E1:E2000")) Is Nothing Then Exit Sub
If WorksheetFunction.CountIf(Range("E1:E2000"), Target) > 1 Then
MsgBox "BU KAYIT DAHA ÖNCE YAPILMIŞ...!", vbCritical, "ULUTANAS"
End If
End Sub

 

[ulutanas]

Teşekkür ederim askm hocam sorun çözüldü.