2 Mesaj Arasında Kodlanmamış Ara Mesaj Çıkması

[baydeniro]

Merhaba Arkadaşlar,
Mesaj onaylı bir işlem için yazdığım makroda bir gariplik var. Aşağıdaki kod ilk çıkan mesaja
"Evet" dersem 2.mesaj olarak 6 çıkıyor, sonra "200 ADETTEN FAZLA CIKTI ALMAYI SECTINIZ" çıkıyor.

"Hayır" dersem 2.mesaj olarak 7 çıkıyor, sonra "BASIMI IPTAL ETTINIZ" çıkıyor.
Arada ortaya çıkan 6 ve 7 nereden peydah oluyor, fikri olan var mı ?

Sub BASIMSAYISIKONTROL()
ONAY = MsgBox("SAYFA SAYISI 200 ADETTIR" & vbCrLf & "BASIM YAPILSIN MI", vbYesNo)
MsgBox ONAY

If ONAY = vbYes Then
MsgBox "200 ADETTEN FAZLA CIKTI ALMAYI SECTINIZ"
End If

If ONAY = vbNo Then
MsgBox "BASIMI IPTAL ETTINIZ"
End If

Range("A1").Select
End Sub

 

[ÖmerFaruk]

MsgBox ONAY
bu satırı silin.

 

[baydeniro]

MsgBox ONAY
bu satırı silin.

Teşekkür ederim üstad. O satırı silince 6 ve 7 olayı olmadı, sağolun.
Öte yandan şöyle bir durum var.
Eğer YES ise şunu yap,
EĞER NO ise ötekini yap gibi bir monte etmek istiyorum.
MsgBox ONAY çıkarılınca bu 2li uygulama çalışmıyor !

 

[ÖmerFaruk]

Silinmiş hali.

Sub BASIMSAYISIKONTROL()
ONAY = MsgBox("SAYFA SAYISI 200 ADETTIR" & vbCrLf & "BASIM YAPILSIN MI", vbYesNo)
'MsgBox ONAY

If ONAY = vbYes Then
MsgBox "200 ADETTEN FAZLA CIKTI ALMAYI SECTINIZ"
End If

If ONAY = vbNo Then
MsgBox "BASIMI IPTAL ETTINIZ"
End If

Range("A1").Select
End Sub

 

[baydeniro]

Silinmiş hali.

Sub BASIMSAYISIKONTROL()
ONAY = MsgBox("SAYFA SAYISI 200 ADETTIR" & vbCrLf & "BASIM YAPILSIN MI", vbYesNo)
'MsgBox ONAY

If ONAY = vbYes Then
MsgBox "200 ADETTEN FAZLA CIKTI ALMAYI SECTINIZ"
End If

If ONAY = vbNo Then
MsgBox "BASIMI IPTAL ETTINIZ"
End If

Range("A1").Select
End Sub

şimdi, süper oldu üstad, çok teşekkür ediyorum, elleriniz dert görmesin. sağlıkcakla kalın