• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

makro ile uyarı mesajı

Katılım
22 Kasım 2007
Mesajlar
90
Excel Vers. ve Dili
excel 2003
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.
 

Ekli dosyalar

Selamlar,

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

Kod:
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
 
teşekkürler

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