Her Kayıtta Numara Arttırma

[rumuz]

Merhaba ;
Bir teklif formu hazırladım. Kaydedildiği zaman J9'daki hücre 1 artsın istiyorum.
Buradaki birçok konuyu araştırdım ancak makrodan hiç anlamadığım için yapamadım.
Şöyle bir opsiyon da olabilir mi onu merak ediyorum, normal excel olarak değil de pdf olarak kaydedildiğinde de 1 artması sağlanabilir mi ?
Yardımınızı rica ediyorum.
Şimdiden çok teşekkür ederim.

 

[antonio]

Merhaba ;
Bir teklif formu hazırladım. Kaydedildiği zaman J9'daki hücre 1 artsın istiyorum.
Buradaki birçok konuyu araştırdım ancak makrodan hiç anlamadığım için yapamadım.
Şöyle bir opsiyon da olabilir mi onu merak ediyorum, normal excel olarak değil de pdf olarak kaydedildiğinde de 1 artması sağlanabilir mi ?
Yardımınızı rica ediyorum.
Şimdiden çok teşekkür ederim.

Sayfa2 ye sağ tıklayın, kod görüntüle, çıkan ekrana aşağıda ki kodları kopyalayıp yapıştırın. Kolay gelsin.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim evrak As Range
Set evrak = Sheets("Sayfa2").Range("J9")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
evrak.Value = evrak.Value + 1
Application.ScreenUpdating = True
End Sub