- Katılım
- 14 Kasım 2017
- Mesajlar
- 618
- Excel Vers. ve Dili
- 2010 Türkçe
- Altın Üyelik Bitiş Tarihi
- 07-01-2024
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.
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.
Kod:
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