iki seçenekli msgbox (kod yardımı)

[spacebar]

üstadlarım merhaba. msgbox ile ilgili bir sorunum var yardımcı olursanız sevinirim.

P9=1 ise "Miktar Hatalı"
P10=2 ise "Tutar Hatalı" uyarısını vermek istiyorum. kodlarım aşağıdakilerden birini çalıştırıyor. ama ikisi için nasıl çalıştıracağımı bulamadım. yardımlarınız için teşekkürler.


Private Sub Worksheet_Activate()
If Range("P9").Value = 1 Then
MsgBox "Miktar Hatalı !", vbCritical, "Dikkat !!"
Exit Sub
End If
End Sub

Private Sub Worksheet_Activate()
If Range("P10").Value = 2 Then
MsgBox "Tutar Hatalı !", vbCritical, "Dikkat !!"
Exit Sub
End If
End Sub

 

[heft]

Aşağıdaki şekilde işinize yaramaz mı?

Private Sub Worksheet_Activate()

If Range("P9").Value = 1 Then
MsgBox "Miktar Hatalı !", vbCritical, "Dikkat !!"
Exit Sub
End If

If Range("P10").Value = 2 Then
MsgBox "Tutar Hatalı !", vbCritical, "Dikkat !!"
Exit Sub
End If


End Sub

 

[spacebar]

sayın heft iki seçenekten biri olduğu zaman çalışıyor (1 veya 2).
ama her iki uyarı olduğu zaman çalışmıyor.

 

[Ziynettin]

Bu şekilde kullanın.

Private Sub Worksheet_Activate()
    If Range("P9").Value = 1 And Range("P10").Value = 2 Then
        MsgBox "hepsi hatalı"
    Else
        If Range("P9").Value = 1 Then
            MsgBox "Miktar Hatalı !", vbCritical, "Dikkat !!"
        End If
        If Range("P10").Value = 2 Then
            MsgBox "Tutar Hatalı !", vbCritical, "Dikkat !!"
            End If
    End If
End Sub

 

[spacebar]

üstad teşekkür ederim. ellerinize sağlık.

 

[Korhan Ayhan]

Sizin ilk mesajınızdaki kod da Exit Sub yazan satırları silerseniz istediğiniz olacaktır.

Tabi bu durumda iki mesaj kutusu peş peşe gelecektir. Bu doğru bir kullanım değildir. @Ziynettin beyin önerisi daha uygun kullanım şeklidir.

Private Sub Worksheet_Activate()
    If Range("P9").Value = 1 Then
        MsgBox "Miktar Hatalı !", vbCritical, "Dikkat !!"
    End If
    
    If Range("P10").Value = 2 Then
        MsgBox "Tutar Hatalı !", vbCritical, "Dikkat !!"
    End If
End Sub

 

[spacebar]

bunu da öğrendiğim iyi oldu. bu da kullanılabilir. teşekkür ederim üstadım.