Açılışda uyarı mesajı hücreden.

[sasys]

Merhaba,
Sayfa1'in A1 hücresine yazılan notlar açılışda uyarı mesajı olarak gelsin, A1 boş ise açılışda uyarı mesajı gelmesin istiyorum.
Şimdiden ilgi alakanız için teşekkür ederim.

 

[Ömer]

Merhaba,

ThisWorbook sayfasına kopyalayın.

Private Sub Workbook_Open()
    
    With Sheets("Sayfa1")
        If .Range("A1") = "" Then Exit Sub
        MsgBox .Range("A1")
    End With
    
End Sub

.

 

[sasys]

Üstad eline, koluna sağlık.
İyi varsınız.

 

[muhammed83]

teşekkürler ustat çok işime yaradı bu kod