Verilerin arasında yoksa Hata versin

[Kavinsky]

Merhaba

9000000028005517062321470400

kodunu TextBox1 yapıştırarak kullandığım bir userform var ve bu sistem bu kodun soldan ilk 11 hanesini

Range("A2") = Left(Me.TextBox1, 11)

koduyla alıp KONTROL sayfasındaki A2 hücresine yapıştırıyor. Yapmak istediğim şu eğer a2 hücresine yapıştırılan veri PRODUCT sayfasında A:A sütununda yok ise ürün kayıtlı değildir diye hata mesajı versin. Ben çözemedim , böyle bir şey mümkün müdür ?

 

[muygun]

Merhaba;
eki inceleyin.
İyi çalışmalar.

link:
https://s2.dosya.tc/server25/rq46wg/Kavinsky-veri_kontrol.zip.html

 

[Kavinsky]

Hocam 97 ile oluşturulmuş sanırım bu sebeple açamadım dosyayı

 

[muygun]

İlginç (Ofis 2003 le oluşturdum)
bende açıldı (Ofis2010-portable ing.)
Birde bu eki deneyin.

Link:
https://www.dosya.tc/server43/hacxvr/Kavinsky-veri_kontrol-2010.zip.html

iyi çalışmalar.
Not: Denediğiniz bilgisayarda hala sorun varsa başka pc de deneyin.

 

[Kavinsky]

Hocam 3 farklı bilgisayarda denedim olmadı. Sadece kodu göndermeniz mümkün mü ?

 

[muygun]

Elbette;
Başkasına da lazım olabilir diye userformun görüntüsünü de ekledim.



Userformun kod kısmına;

Private Sub CommandButton1_Click()'gönder butonu
Set s1 = ThisWorkbook.Worksheets("KONTROL")
Set s2 = ThisWorkbook.Worksheets("PRODUCT")

s1.Cells(2, 1) = Left(TextBox1, 11)
If WorksheetFunction.CountIf(s2.Range("a1:a65536"), s1.Cells(2, "a")) = 0 Then
MsgBox ("Bu veri PRODUCT sayfasında yok."), vbCritical
End If
End Sub