Mesaj verdirme

[iplikci_80]

Arkadaşlar EK'te iki sayfadan oluşan bir çalışma var. Bu çalışmayı açtığımda bana bir uyarı mesajı verdiren bir kod var. Benim yapmak istediğim şey bu kodu sadece Sayfa1 açıldığında mesajı verdirecek şekilde revize etmek istiyorum.

Private Sub Workbook_Activate()
msj = Range("b1") & " ÖZÜRLÜ PERSONEL İHTİYACINIZ VAR"
If Range("b1") > 0 Then MsgBox msj
End Sub

 

[Orion1]

Dosyanız ektedir.

Private Sub Workbook_Activate()
If ActiveSheet.Name = "Sayfa1" Then
    msj = Range("b1") & "   ÖZÜRLÜ PERSONEL İHTİYACINIZ VAR"
    If Range("b1") > 0 Then MsgBox msj
End If
End Sub


Private Sub Worksheet_Activate()
msj = Range("b1") & "   ÖZÜRLÜ PERSONEL İHTİYACINIZ VAR"
If Range("b1") > 0 Then MsgBox msj

End Sub

 

[iplikci_80]

Sayın Orion1 ilginiz için çok teşekkür ederim.

 

[Orion1]

Sayın Orion1 ilginiz için çok teşekkür ederim.

Rica ederim.
İyi çalışmalar.