veri girildiginde mesaj kutusu

[websitesi84]

merhabalar. excelde her hücreye bir şey yazıldıgında mesaj kutusu çıkmasını istiyorum. kutuya yazsın digerine geççtiginde mesaj kutusu çıksın. bu tüm hücrelerde olsun ama mesaj aynı olsun. Yardımcı olabilirsenz sevinirim

 

[Korhan Ayhan]

Merhaba,

Çok kullanışlı bir işlem olmaz ama aşağıdaki kodu ilgili sayfanızın kod bölümüne uygulayıp deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Veri As Range
    
    For Each Veri In Target
        If Veri.Value <> "" Then
            MsgBox "Bu bölüme çıkmasını istediğiniz mesajı yazınız...", vbInformation
            Exit Sub
        End If
    Next
End Sub