Çözüldü Sıralı sayfa numarası yazdırma sorunu hakkında.

[Garuramon]

Merhaba,

EK'li olan dosyada sıralı sayfa numarası yazdırması için macro yu çalıştıramadım yardımcı olur musunuz. Bir diğer konu ise sayfada "Sıra Numarası Yazdır" diye bir butonu macroya nasıl bağlarım.

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki kodu deneyin.

Sub yazdir()
    Dim Say As Long
    Dim Sor As String
    If MsgBox("YAZDIRMAK İSTEDİĞİNİZE EMİNMİSİNİZ?", vbYesNo) = vbNo Then Exit Sub
    Sor = InputBox("BAŞLANGIÇ DEĞERİNİ GİRİNİZ")
    If Sor = "" Then Sor = 1
    For Say = 1 To Sor
        [m5] = "Sayfa: " & Say
        ActiveSheet.PrintOut
    Next
End Sub

Diğer konudaki sorunuzu anlayamadım. Daha açık sorar mısınız?

 

[Garuramon]

Sayın @dalgalikur

ilk mesajımda ki dosyayı güncelledim. Macroyu çalıştırmak için butona bastığım zaman macro yu çalıştırabilir miyiz.

 

[Muzaffer Ali]

Dosyanız ekte.

 

[Garuramon]

Sayın @dalgalikur

Çok teşekkür ederim, sorun çözülmüştür.