makro ile uyarı mesajı

[alimutlu2308]

merhabalar arkadaşlar.

Ek'te göndermiş olduğum dosya hakkında yardımlarınızı rica ediyorum.
Yapmak istediğim. dosyata sheet1 deki fark satırındaki bakiyeler sıfırdan farklı
ise yeşil renkli sheetlre tıklandığında "farlarınızı düzeltin" diye bir mesaj gelsin.
bu mümkünmüdür acaba
tşk.

 

[Korhan Ayhan]

Selamlar,

Çalışmanızın ThisWorkbook bölümüne aşağıdaki kodu uygulayıp denermisiniz. Sayfaları seçtiğinizde uyarı mesajı gelecektir.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sheets("Sheet1").Range("E42") <> 0 Or Sheets("Sheet1").Range("F42") <> 0 Then
    MsgBox "FARKLARINIZI DÜZELTİN !", vbCritical
    End If
End Sub

 

[alimutlu2308]

teşekkürler

arkadaşım eline sağlık. teşekkür ederim.