Print alınmışsa sayıyı bir artır

[ataniyazi]

Arkadaşlar Merhaba,

Eğer çıktı alınmışsa A1 hücresindeki sayıyı 1 artıran bir makro varmıdır.

 

[metinozlu]

print makrosunun sonuna

[a1].value=[a1].value +1

 

[kutlayalp]

Sayın ataniyazi
aşağıda verdiğim makro ile ilk sayfadan başlamak üzere sayfaya numaralandırır. ben a1 hücresini seçtim. Tabi burda ufak bir detay var iki satırlık makroyu ne kadar kopyalarsan aynı sayfadan aldığın çıktı sayısı kadar numara verir.


Sub Düğme1_Tıklat()


Range("A1") = Range("A1") + 1

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True

Range("A1") = Range("A1") + 1
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub

 

[ataniyazi]

Metin bey yardımınız için çok teşekkür ederim.