Dosyadan Her çıktı aldığımda seri numarası 1 artsın

[YusufTure]

Evet arkadaşlar benim sorum şu olacak;
excel de yapılan bir formdan her çıktı aldığımda seri no olan hücrede 1 artsın istiyorum mümkünmüdür?

excel de ki mavi yerin herp plotter e gönderdiğimde 11 , 12 vb.. artsın

 

[Mahir64]

Evet arkadaşlar benim sorum şu olacak;
excel de yapılan bir formdan her çıktı aldığımda seri no olan hücrede 1 artsın istiyorum mümkünmüdür?

excel de ki mavi yerin herp plotter e gönderdiğimde 11 , 12 vb.. artsın

Merhaba
Butona atayarak yapabilirsiniz.

Sub yazıdr()
ActiveWindow.SelectedSheets.PrintOut Copies:=1
[n7] = [n7] + 1
End Sub

 

[YusufTure]

Çok Teşekkürler.
Saolsın.

Mesele Halloldu inşallah

 

[Mahir64]

Çok Teşekkürler.
Saolsın.
Mesele Halloldu inşallah

Bunu butona eklerseniz çalışır.Butona bağlı kalmadan yadır dediğiniz zamanda artabilir.
Kodu ekleyeceğim.
iyi çalışmalar.

 

[Mahir64]

Merhaba
TfisWorkbook kod bölümüne ekleyin
Her yazdır dediğinizde artacaktır.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("sayfa1").[n7] = Sheets("sayfa1").[n7] + 1
End Sub

 

[YusufTure]

Valla Bu daha iyi oldu saolsın...

ellerinize sağlık.

 

[Mahir64]

Valla Bu daha iyi oldu saolsın...

ellerinize sağlık.

Kolay gelsin
İyi çalışmalar:hey: