Bir shette hücreye girilen verinin diğer shette olmadığı zaman uyarı vermesi

[u.L.a.s]

Merhabalar

Sheet2 de B sütununda herhangi bir hücreye yazdığım veriyi Sheet1 de C sütununda karşılaştırma yapsın eğer Sheet1 de C sütununda yazdığım veri yoksa Bana msg box ile uyarı verebilen bir makro gelsin istiyorum bilgi ve yardımlarınızı rica ederim

Teşekkürler

 

[YUSUF44]

Aşağıdaki kodları Sheet2'nin kod bölümüne (sayfa adına sağ tıklayıp kod görünrüle deyince açılan sayfaya) yapıştırıp deneyiniz:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Selection.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
son = Sheets("Sheet1").Cells(Rows.Count, "C").End(3).Row
If WorksheetFunction.CountIf(Sheets("Sheet1").Range("C1:C" & son), Target) = 0 Then
    MsgBox "Sheet1 sayfasının C sütununda " & Target & " bulunmamaktadır!", vbCritical
End If
End Sub

 

[u.L.a.s]

Üstadım merhaba. gerekli karşılaştırmayı yapıyor ama doğru bilgi girsem dahi hata veriyor. acaba hücre formatlarının farklı olmasındanmı kaynaklanıyordur.

zira ben Sheet2 de B sütununda herhangi bir hücreye girdiğim veri şu şekilde. yani 10.10.10.10 gibi ip bilgisi.

Sheet1 de bu ip bilgisini arıyor yani. Sheet1 de C sütununda her satırda farklı ip bilgisi mevcut. olmayan bir ip yazmışsam hata vermesi lazım
ama olan bir ip yide yazsam yine aynı msgbox geliyor karşıma.

Gerçi her iki shette hücre yapısı General olarak ayarlanmış durumda.

 

[YUSUF44]

Örnek dosya paylaşır mısınız? Dosyada belirttiğiniz sorunlu veri bulunsun mümkünse.

 

[u.L.a.s]

ov o sıkıntı çünkü işyerindeki bir dosya ve onu paylaşmam büyük problem olur güvenlik gereği ben kendim sıfırdan hazırlasam bu sefer aynı orjinal dosya gibide olmaz onuda biliyorum hay allah

 

[YUSUF44]

Dosyanızdaki özel verileri sildikten/değiştirdikten sonra farklı kaydedip paylaşamaz mısınız?

 

[Merhum İdris SERDAR]

.Veri doğrulama kullanabilirsiniz.

.

 

[u.L.a.s]

yok üstadım yine ayrı pc den yollayacağım ilginiz için teşekkür ederim. işyeri pc sinde bu dosya ve zaten dosya yükleme siteleri açılmıyor bu pc de

veri doğrulamaya baktım evet ingilizce olan versiyonda nasıl yapmam gerekir bu veri doğrulamayı

 

[Merhum İdris SERDAR]

.

Örnek dosya ekte.


.

 

[u.L.a.s]

Teşekkürler ilginiz için ama yüklediğiniz dosyayı ben indiremiyorum

 

[Merhum İdris SERDAR]

.

Buradan indirin.

http://s7.dosya.tc/server11/x4w5d1/DATAVAL.xlsx.html

.

 

[u.L.a.s]

İdris üstadım Merhaba

çok teşekkür ederim bilgileriniz ve yardımınız için.

çok ufak bir sorum daha olacak.

=Sheet1!$C$2:C$10000 şeklindeki formülde sadece sheet1 deki verilere bakıyor ya. ona göre veri doğrulaması yapıyor.
ben aynı anda birde sheet3 te ki veriyede baksın istiyorum. yani sheet2 de yazdığım verinin doğruluğunu hem sheet1 de hem sheet3 te kontrol etsin istiyorum.

Or ile başlayan formül ekledim ama hata verdi sürekli.

 

[Merhum İdris SERDAR]

.

Data Validation > Custom

Formül bölümüne:

=OR(COUNTIF(Sheet1!$C$1:$C$1000;B1)>0;COUNTIF(Sheet3!$C$1:$C$1000;B1)>0)

yazın.

.