2 ayrı mesajı çalıştırma

[ASLAN7410]

Merhaba hayırlı akşamlar.

Aşağıdaki koddaki 2 ayrı mesajı çalıştıramadım. Bazı hücreler birleştirilmiştir.

Yardımcı olur musunuz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("C18,C23,M5:M6,M13:M18,M21:M23,O9:O14,O17:O20,O23:O25,Q9:Q12,Q15,Q17,Q19:Q21,Q23,P17")) Is Nothing Then
MsgBox "Bu hücrede formül var."
End If

If Intersect(Target, Range("H24")) Is Nothing Then
MsgBox "Verileri kontrol ediniz."
End If
Exit Sub
End Sub

 

[ASLAN7410]

Örnek dosya ekte.

 

[Zeki Gürsoy]

Deneyin...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range( _
        "c18:c21,c23,m5:m6,m13:m18,m21:m23,o9:o14,o17:o20," & _
        "o23:o25,p17,q9:q11,q15:q17,q19:q25")) Is Nothing Then

        MsgBox "Bu hücrede formül var."

    End If

    If Not Intersect(Target, Range("H24")) Is Nothing Then

        MsgBox "Verileri kontrol ediniz."

    End If
End Sub

 

[ASLAN7410]

Sayın Zeki Bey, ilginize çok teşekkür ederim, tam istediğim gibi oldu, ellerinize sağlık.

Hayırlı çalışmalar hayırlı geceler dilerim.