inputbox kullanımı

[musaliha]

Dim wert01 As String
wert01 = InputBox("ÖDEME YAPAN KİŞİ ADINI YAZINIZ", "MAKBUZ")
Worksheets("MAKBUZ").Cells(9, 3) = wert01







wert01 = InputBox("NAKİT VERİLEN ÜCRETİ GİRİNİZ", "MAKBUZ")
Range("a1").Value = wert01

Range("AV65535").End(xlUp).Offset(1, 0) = ComboBoxADI
Range("AW65535").End(xlUp).Offset(1, 0) = wert01


wert01 = InputBox("NAKİT VERİLEN AYI GİRİNİZ", "MAKBUZ")
Range("a2").Value = wert01


Range("AZ1").Select
Selection.Copy
Range("AX65535").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("AY65535").End(xlUp).Offset(1, 0) = "NAKİT"

MsgBox ComboBoxADI.Value & " " & " MAKBUZ YAZDIRILIYOR", , "DİKKAT"


ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("MAKBUZ").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("KAYIT").Select



InputBox ile yapmak istediğimi yapıyorum ancak cansel ile çıkıldığında işlemi durdurmasını sağlayamadım.Aynı şekilde msgboxta MAKBUZ YAZDIRILIYOR mesajı geldiğinde hayır diyerek çıkmasını istiyorum.vbyesno olarak yaptım ama her iki haldede yine yazdı ben hayır dediğinde yazmamasını sağlamak istiyorum.

 

[hamitcan]

Aşağıdaki şekilde dener misiniz ?

If InputBox("mesaj") = "" Then Exit Sub

 

[musaliha]

Teşekkür ederim.