Makbuz no.sunu 1 arttırmak.

[İsmail Küçükşengün]

Marhaba,

Sub Düğme2_Tıklat()
Sheets("makbuz").Select
Range("a1:f22").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$22"
Application.ScreenUpdating = False
Application.Visible = True
Application.ScreenUpdating = True
'
Sheets(Array("makbuz")).PrintOut Copies:=1
Application.ScreenUpdating = False
Application.Visible = True
Application.ScreenUpdating = True
Sheets("makbuz").Select

End Sub

Koduyla sayfadaki makbuzu yazdırdığımız varsayalaım.
N1 Hücresinde sayı ( mesela) 3 yazılı olsun.
Yazdır düğmesine bastığımızda yukarıdaki makro ile sayfa yazdırılıyor.Yazdırdıktan sonra N1 hücresindeki sayının 1 artması (örnekte 3 iken yazdırdıktan sonra 4 olması) için yukarıdaki makroya nasıl bir ilave yapabiliriz?

Şimdiden teşekkürler.

 

[uzmanamele]

merhaba

bu mudur?
[N1]=[N1]+1

 

[İsmail Küçükşengün]

Evet. Budur. Hem excel hem de Briç uzmanım.

Excele uzun zaman ara verdiğimden ve işlerin yoğunluğundan aklıma gelmedi.
Teşekkürler.

 

[cumle_alem]

Bizede anlatsanız ya da makrosuz mmkün olmazmı onu söyleseniz

 

[baydeniro]

Merhaba. Bu kodu alfanümerik olanlar için nasıl revize etmeliyiz ?