hatırlatma mesajı göstermesi

[ibrahimaktas1905]

merhaba üstatlar a1 ve c4 de yazan rakamlar değiştirildiğinde
"ppm sekmesindeki debileri güncelleyiniz" mesajı ekrana düşsün istiyorum.

şimdiden teşekkür ederim.

 

[muhasebeciyiz]

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("A1").Address Or Target.Address = Range("C4").Address Then
If Range("A1").Value <> OldA1 Or Range("C4").Value <> OldC4 Then

Sheets("PPM").Select
MsgBox "PPM sekmesindeki debileri güncellemeniz gerekiyor!"

OldA1 = Range("A1").Value
OldC4 = Range("C4").Value
End If
End If
End Sub

Deneyiniz

 

[ibrahimaktas1905]

merhabalar
bir kaç günlük yıllık izim kullanmam sebebiyle cevabınızla ilgilenemedim. öncelikle kusuruma bakmayın.
kontrollerim sonucunda sizlere eksik bilgi verdiğimi gördüm. ve sorumu revize edeceğim.
Günlük Rapor sekmesinde D46 ve j 46 hücresindeki veriler değiştirildiğinde "Ppm sekmesinde bulunan debileri güncelleyiniz" mesajını vermesini istiyorum.

 

[ibrahimaktas1905]

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("A1").Address Or Target.Address = Range("C4").Address Then
If Range("A1").Value <> OldA1 Or Range("C4").Value <> OldC4 Then

Sheets("PPM").Select
MsgBox "PPM sekmesindeki debileri güncellemeniz gerekiyor!"

OldA1 = Range("A1").Value
OldC4 = Range("C4").Value
End If
End If
End Sub

Deneyiniz

merhabalar
bir kaç günlük yıllık izim kullanmam sebebiyle cevabınızla ilgilenemedim. öncelikle kusuruma bakmayın.
kontrollerim sonucunda sizlere eksik bilgi verdiğimi gördüm. ve sorumu revize edeceğim.
Günlük Rapor sekmesinde D46 ve j 46 hücresindeki veriler değiştirildiğinde "Ppm sekmesinde bulunan debileri güncelleyiniz" mesajını vermesini istiyorum.

 

[muhasebeciyiz]

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("d46").Address Or Target.Address = Range("j46").Address Then
If Range("d46").Value <> Oldd46 Or Range("j46").Value <> Oldj46 Then

Sheets("Günlük rapor").Select
MsgBox "Ppm sekmesinde bulunan debileri güncelleyiniz!"

OldA1 = Range("d46").Value
OldC4 = Range("j46").Value
End If
End If
End Sub

 

[May0663]

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("A1, C4")) Is Nothing Then

MsgBox "ppm sekmesindeki debileri güncelleyiniz"
End If
End Sub

 

[ibrahimaktas1905]

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Range("d46").Address Or Target.Address = Range("j46").Address Then
If Range("d46").Value <> Oldd46 Or Range("j46").Value <> Oldj46 Then

Sheets("Günlük rapor").Select
MsgBox "Ppm sekmesinde bulunan debileri güncelleyiniz!"

OldA1 = Range("d46").Value
OldC4 = Range("j46").Value
End If
End If
End Sub

emeğinize sağlık teşekkür ederim yapmış olduğunuz kod işliyor.