Soru hücredeki veriyi diğer sayfada arama

[ppeacee]

Sayfa1 deki verileri sayfa2 veriyi aktarıyorum makro ile. Makro koduna şöyle bir şey eklemek istiyorum Sayfa1 deki c2 deki girilen veriyi sayfa2 deki c2 sütununda arama yapılacak o değerde yoksa eğer sayfa1 de f2 "evet" yazmıyorsa uyarı mesajı verecek " yeni seri numarısı. Numunesi alınmamıştır. Kayıt yapmayınız." diyerek kayıt makrosunu durdurması.

 

[ppeacee]

Lütfen yardımcı olurmusunuz. Teşekkürler.

 

[Korhan Ayhan]

Yazımınıza göre sorgu şöyle olabilir.

If Worksheetfunction.Countif(Sheet("Sayfa2").Range("C:C"), Sheet("Sayfa1").Range("C2")) = 0 And Sheet("Sayfa1").Range("F2") <> "evet" Then
MsgBox "Yeni seri numarası numunesi alınmamıştır. Kayıt yapmayınız.", vbCritical
Exit Sub
End If

 

[ppeacee]

Compile error: sub or function not defined hatası alıyorum.

 

[ppeacee]

Yazımınıza göre sorgu şöyle olabilir.

If Worksheetfunction.Countif(Sheet("Sayfa2").Range("C:C"), Sheet("Sayfa1").Range("C2")) = 0 And Sheet("Sayfa1").Range("F2") <> "evet" Then
MsgBox "Yeni seri numarası numunesi alınmamıştır. Kayıt yapmayınız.", vbCritical
Exit Sub
End If

Bu koddan başka nasıl yapabilirim.

 

[Korhan Ayhan]

Bu kod bloğunu kendi kodlarınızın içine adapte etmelisiniz.

 

[Korhan Ayhan]

Uyarlama sorunu yaşıyorsanız örnek dosya paylaşınız.