Makronun Çalışması için onay uyarısı almak

[gohanx21]

Arkadaşlar şöyle bir makro var

Sub Yazdır()


    sayi = Mid([b3].Value, 1, Len([b3].Value))
    sayi = sayi + 1
    [b3] = sayi

    Sheets("Form").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1
    Sheets("Veri").Select
    Range("B3").Select
End Sub

Bu makroyu çalıştırdığımda şöyle bir uyarı vermesini istiyorum. Örneğin " 12. Kayıt Yazdırılacak" diye bir uyarı vermesini istiyorum. Bir sonraki tıklamada "13. Kayıt Yazdırılacak" Diye uyarı vermesini istiyorum. Bu uyarılarda Devam ve İptal seçenekleri olacak.

 

[dEdE]

Merhaba,

Sub Yazdır()
sayi = [b3].Value
If MsgBox(sayi & ". Kayıt Yazdırılacak", vbInformation + vbYesNo, "U Y A R I") = vbYes Then
    sayi = Mid([b3].Value, 1, Len([b3].Value))
    sayi = sayi + 1
    [b3] = sayi
Sheets("Form").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Veri").Select
Range("B3").Select
End If
    [b3] = sayi + 1 'Hayır tuşuna basılması halinde sayının artmamasını istiyorsanız bu satırı siliniz
End Sub

Galiba bu işinizi görür.

 

[gohanx21]

Arkadaşlar örnek bir dosya ekledim. Yardımcı olabilir misiniz

 

[gohanx21]

eyvallah dostum sağol tam istediğim gibi olmuş.

 

[dEdE]

Rica ederim.
Güle güle kullanın.

 

[Erdem Akdemir]

.................