Makroda düzenleme

[recepkull]

Arkadaşlar aşağıdaki kodda isteyip de yapamadığım bir nokta var bu konuda yardımlarınızı bekliyorum.

8-11-15 satırlardan herhangi biri dolu ise uyarı çıksın, çıkan uyarıda Hayır a basıldığında makro işlem yapmasın istiyorum bunu nasıl yapabilirim.

Sub Hesapla()
sütun = Range("J6").Value * 3 + 23
cevap = MsgBox(Range("K7").Value & " ayına ait kayıt var", vbYesNo + vbQuestion, "ONAY")
If Cells(8, sütun) Or Cells(11, sütun) Or Cells(15, sütun) <> "" Then
If cevap = vbNo Then
    Exit Sub
Else
Cells(8, sütun) = Range("I17") / 2
Cells(11, sütun) = Range("I17") / 2
Cells(15, sütun) = Range("I11")
End If

Else
Cells(8, sütun) = Range("I17") / 2
Cells(11, sütun) = Range("I17") / 2
Cells(15, sütun) = Range("I11")

End If
End Sub

 

[ÖmerBey]

Merhaba,
Sorgunuzu aşağıdaki şekilde değiştirip dener misiniz?

If Cells(8, sütun) <> "" Or Cells(11, sütun) <> "" Or Cells(15, sütun) <> "" Then
    cevap = MsgBox(Range("K7").Value & " ayına ait kayıt var", vbYesNo + vbQuestion, "ONAY")
    If cevap = vbNo Then
        Exit Sub