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

Katılım
21 Eylül 2005
Mesajlar
79
Excel Vers. ve Dili
MS Office 2003
Arkadaşlar Merhaba,

Eğer çıktı alınmışsa A1 hücresindeki sayıyı 1 artıran bir makro varmıdır.
 
Katılım
3 Mart 2005
Mesajlar
609
Excel Vers. ve Dili
2010 Excel-Türkçe
Altın Üyelik Bitiş Tarihi
21/03/2019
print makrosunun sonuna

[a1].value=[a1].value +1
 
Katılım
30 Nisan 2006
Mesajlar
16
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
 
Katılım
21 Eylül 2005
Mesajlar
79
Excel Vers. ve Dili
MS Office 2003
Metin bey yardımınız için çok teşekkür ederim.
 
Üst