Hücreler eşit değilse uyarsın

[SeSi]

Merhaba,

Bir önceki sayfanın E25 hücresiyle aktif sayfanın E20 hücresi eşit değilse, "(bir önceki sayfa ismi) sayfasındaki tutarlar eşit değil" şeklinde uyarı mesajı versin istiyorum.

Teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Bu uyarıyı ne zaman vermesini istiyorsunuz ? Örneğin;

E20 hücresi değiştiğindemi ?
Sayfa aktif olduğundamı ?

 

[SeSi]

Sayın COST_CONTROL,

Eğer her ikiside olabilyorsa iyi olur, olmuyorsa sayfa aktif olduğunda uyarsın. Birde kodu bazı sayfalarda çalıştırmayacağız. Örneğin; Stok, Veri, Depo, İcmal, Özet gibi sayfalar var. İcmal ve Depo sayfalarında uyarı çıkmayacak.

Teşekkürler.

 

[Seyit Tiken]

Bu kodu kendinize uyarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Sheets("Sayfa1").[a1].Value <> [a1].Value Then
MsgBox "Tutarlar Eşit Değil"
End If
End Sub

 

[danersin]

Küçük bir öneride benden bu tip dosyalarda koşullu biçimlendirme daha kullanışlı olabiliyor.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyada hem sayfanız aktif olduğunda hemde sayfada E20 hücresini değiştirdiğinizde çalışacak kodlar mevcuttur. Bu kodları hangi sayfada çalışmasını istiyorsanız o sayfanın kod bölümüne uygulamanız gerekmektedir. Umarım işinize yarar. :arkadas:

 

[SeSi]

Sayın COST_CONTROL,

Teşekkürler.