Numaratör ile verilen belgeleri saydırmak

[Mdemir63]

arkadaşlar günaydın

dosyamda isteyen kişilere belge verdiğim zaman numaratör her biri için birer arttırarak numara versin istiyorum hangi kodları kullanabilirim.

Teşekkürler


dosya ekte

 

[Ali]

Thisworkbook'a aşağıdaki kodları ekleyiniz.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Sayfa2").Range("F5") = Sheets("Sayfa2").Range("F5") + 1
End Sub

 

[Mdemir63]

Sn: Fructose
Öncelikle ilginize teşekkür ederim. istediğim gibi verdiğiniz kodu kullandım oldu ancak istediğim zaman da kendim manuel sayı verebilmeliyim bunun için ne yapabiliriz
saygılar

 

[Ali]

istediğim zaman da kendim manuel sayı verebilmeliyim bunun için ne yapabiliriz
saygılar

Manuel sayı vermek derken siz istediğiniz zamanmı çalışacak eğer onu kastediyorsanız sayfanızda bir buton oluşturup aşağıdaki gibi yapmalısınız.Butona bastığınız zaman sayacaktır.

Sub Düğme1_Tıklat()
Sheets("Sayfa2").Range("F5") = Sheets("Sayfa2").Range("F5") + 1
End Sub

 

[Seyit Tiken]

Bu şekilde bir deneyin. B1 hücresindeki değeri baz alıyor.

 

[Seyit Tiken]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Sayfa1").[A1] = Sheets("Sayfa1").[A1] + [B1]
End Sub

 

[Mdemir63]

Hocam manuelden kastım şu bu sizin yaptığınız tamam değerler her çıktı aldığımda değişiyor buraya kadar tamam

ancak elle değiştirmek istediğimde yani kendim numaratöre sayı yazmak istediğimde nasıl yaparız. saygılar

 

[Mdemir63]

Sn: Seyit Tiken

verdiğiniz kodları denedim olmadı

saygılar

 

[Seyit Tiken]

İstediğiniz böyle bir şey mi?

Sub Düğme1_Tıklat()
ActiveSheet.PrintOut
[A1] = [A1] + 1
End Sub

 

[mehmett]

Hocam manuelden kastım şu bu sizin yaptığınız tamam değerler her çıktı aldığımda değişiyor buraya kadar tamam

ancak elle değiştirmek istediğimde yani kendim numaratöre sayı yazmak istediğimde nasıl yaparız. saygılar

Numaratörün sayı yazdığı hücreye kendiniz istediğiniz sayıyı yazabilirsiniz. Ancak bu durumda numaratörü çalıştırırsanız sizin yazdığınız sayından devam eder.

 

[Mdemir63]

hepinize sonsuz teşekkürler

iyi çalışmalar diliyorum