otomatik sayı

[votann]

Excelde bir sayfaya hazırladığım formda yazdır butonuna basıldığında sayfa içerisinde otomatik olarak seri nosu değişsin istiyorum.Yardımcı olabilirmisiniz.Kısaca yazıcıya makro atayacağım.

 

[xxrt]

ThisWorkbook sayfasına aşağıdaki kodları yazın.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Sayfa1").Range("A1").Value = Sheets("Sayfa1").Range("A1").Value + 1
End Sub

 

[votann]

Teşekkür Ederim