MsgBox Uyarı Hatası Hk.

[tirEdsOuL]

Arkadaşlar merhaba; forumda arattırdım ama sorumun cevabını bulamadım. A23 hücresine

=EĞER(VE(M26<=40000;Z26<=40000;E27<>45);"ÖTV Oranı %45 olmalı";EĞER(YADA(VE(M26>40000;M26<=70000;Z26<40000);VE(M26<40000;Z26>40000;Z26<70000);VE(M26>40000;M26<=70000;Z26<=70000;Z26>40000;E27<>50));"ÖTV Oranı %50 olmalı";EĞER(VE(YADA(M26>70000;Z26>70000);E27<>60);"ÖTV Oranı %60 olmalı";"")))

şeklinde bir formülüm var.. şartlar yerine getirildiğinde hücrede uyarı mesajı çıkıyor. Ben bu mesajı aşağıdaki MsgBox kodu ile ekrana uyarı olarak verdiriyorum. Ama hücrede herhangi birşey yazmazsa da ekrana boş uyarı çıkıyor.. Uyarı kodunda nasıl bir düzenleme yapmalıyım ki hücre boşsa uyarı mesajı gelmesin ?

Private Sub Worksheet_Change(ByVal Target As Range)
    If [A23] > 0 Then
        MsgBox Range("A23") & Chr(10), vbCritical
        Exit Sub
    End If
End Sub

 

[Ömer BARAN]

Merhaba.

If [A23] > 0 Then yerine If [A23] <> "" Then olarak deneyin.
.

 

[tirEdsOuL]

ilginiz için çok teşekkürler Ömer bey..

 

[Ömer BARAN]

ilginiz için çok teşekkürler Ömer bey..

Kolay gelsin.