Excel'i açarken UYARI ekranı açma

[ahmetmete78]

Arkadaşlar merhaba,

Excel'i açarken uyarı mesajı çıkartmayı başarabildim. Ancak bu mesajın excel içerisindeki bir veriye bağlı olarak çıkmasını istiyorum.

Mesela c1 hücresindeki değer eğer (-) eksi ise dosya açılırken uyarı mesajı çıksın.

amacım şu, dosya içerisinde firma ödemeleri ve ödeme tarihleri var. c1 hücresine bir formül yazdım.bu formül bugünün tarihinden firmaya taahhüt edilen ödeme tarihi çıkartıyor. Sonuç (-) eksi ise durum kritik. Bu yüzden de dosyayı açan kişinin bu uyarı mesajı ile dikkattini çekmek istiyorum.

Ben aşağıdaki formülü denedim ama galiba biraz basit kaldı;

Private Sub Workbook_Open()

If Cells(1, 23) < 0 Then

MsgBox "Vadesi Dolan Ödemeleri Kontrol Et !!!"
Stop

End Sub

Yardımınız için şimdiden teşekkürler.

 

[uzmanamele]

Merhaba

bu şekilde deneyiniz.

Sub auto_open()
If Sheets("sayfa1").Cells(1, 1) < 0 Then
MsgBox "Vadesi Dolan Ödemeleri Kontrol Et !!!"
End If
End Sub

Private Sub Workbook_Open() altında da yazabilirsiniz

 

[ahmetmete78]

Merhaba

bu şekilde deneyiniz.

Sub auto_open()
If Sheets("sayfa1").Cells(1, 1) < 0 Then
MsgBox "Vadesi Dolan Ödemeleri Kontrol Et !!!"
End If
End Sub

Private Sub Workbook_Open() altında da yazabilirsiniz

teşekkür ederim sorun çözülmüştür.