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

Katılım
8 Eylül 2008
Mesajlar
950
Excel Vers. ve Dili
2016 İngilizce
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
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:

Kod:
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
 
Katılım
8 Eylül 2008
Mesajlar
950
Excel Vers. ve Dili
2016 İngilizce
Ü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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Örnek dosya paylaşır mısınız? Dosyada belirttiğiniz sorunlu veri bulunsun mümkünse.
 
Katılım
8 Eylül 2008
Mesajlar
950
Excel Vers. ve Dili
2016 İngilizce
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

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,084
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Dosyanızdaki özel verileri sildikten/değiştirdikten sonra farklı kaydedip paylaşamaz mısınız?
 

İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
17,104
Excel Vers. ve Dili
Excel, 365 - İngilizce
.Veri doğrulama kullanabilirsiniz.

.
 
Katılım
8 Eylül 2008
Mesajlar
950
Excel Vers. ve Dili
2016 İngilizce
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ı
 
Katılım
8 Eylül 2008
Mesajlar
950
Excel Vers. ve Dili
2016 İngilizce
Teşekkürler ilginiz için ama yüklediğiniz dosyayı ben indiremiyorum
 
Katılım
8 Eylül 2008
Mesajlar
950
Excel Vers. ve Dili
2016 İngilizce
İ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. :(
 

İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
17,104
Excel Vers. ve Dili
Excel, 365 - İngilizce
.

Data Validation > Custom

Formül bölümüne:

Kod:
=OR(COUNTIF(Sheet1!$C$1:$C$1000;B1)>0;COUNTIF(Sheet3!$C$1:$C$1000;B1)>0)
yazın.

.
 
Üst