Sayfa açılırken uyarı mesajı hak.

[akmes]

Selamlar,

Aşağıdaki sayfa kodunu birden fazla hücre için kullanmak istesem nasıl bir değişiklik yapmam lazım?Konu hakkında yardımlarınızı rica ediyorum.Teşekkürler.

Private Sub Worksheet_Activate()
If Cells(76, 4).Text = "YANLIŞ" Then
MsgBox "Mizan İle Tutmuyor.!!!"
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

 

[Necdet]

Merhaba,

Aşağıdaki kodları ThisWorkbook'un kod sayfasına kopyalayınız.
Kodların çalışmasını istemediğiniz sayfa varsa kırmızı ile renklendindirdiğim satıra ek yapabilirsiniz.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   [B][COLOR=red] If ActiveSheet.Name <> "Sayfa1" And ActiveSheet.Name <> "Sayfa3"[/COLOR][/B] Then
        If Cells(76, 4).Text = "YANLIŞ" Then MsgBox "Mizan İle Tutmuyor.!!!"
    End If
End Sub

 

[akmes]

Merhaba,

Aşağıdaki kodları ThisWorkbook'un kod sayfasına kopyalayınız.
Kodların çalışmasını istemediğiniz sayfa varsa kırmızı ile renklendindirdiğim satıra ek yapabilirsiniz.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
   [B][COLOR=red] If ActiveSheet.Name <> "Sayfa1" And ActiveSheet.Name <> "Sayfa3"[/COLOR][/B] Then
        If Cells(76, 4).Text = "YANLIŞ" Then MsgBox "Mizan İle Tutmuyor.!!!"
    End If
End Sub

İlginiz için çok teşekkür ederim.