Belge numarası verme

[raden]

Kendimce bir belge yaptım.fakat belgeyi her açtığım da +1 artacak şekilde belgeye numara vermek istiyorum.belgemi salt okunur hale getirip yapmaya çalışıyorum fakat işin can alıcı noktasın tıkanıyorum...yardımcı olursanız sevinirim..elit parlak diye bi dosya göndermeye çalıştım....şimdiden teşekkürler

 

[raden]

Dosyayı değiştirip gönderdim. C1 hücresine her açtığımda numara vermek istiyorum.fakat malumuz veremiyorum.yardımcı olursanız sevinirim...teşekkürler

 

[ynmcan]

Dosyayı değiştirip gönderdim. C1 hücresine her açtığımda numara vermek istiyorum.fakat malumuz veremiyorum.yardımcı olursanız sevinirim...teşekkürler

Syn. Raden ; Dosyanız Ekte.

Sub auto_open()
Sayfa1.Range("C1") = Sayfa1.Range("C1") + 1
End Sub

 

[Skorpiyon]

Sayın raden,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Workbook_Open()
Range("C1") = Val(Range("C1")) + 1
End Sub

Düzeltme = Sayın ynmcany'nin kodları daha doğru olmuş. Benim kodlarımda Sayfa2'de iken çıkış yapılırsa, hata verebilir.

Yada kodu şu şekilde yazarsanız, problem olmaz;

Private Sub Workbook_Open()
Sheets("Sayfa1").Select
Range("C1") = Val(Range("C1")) + 1
End Sub

 

[pbaytak]

merhaba, üzerinden bir hayli zaman geçmiş fakat tam aradığımı buldum diye sevinmiştim, makro benim sayfamda çalışmadı ve çözüm bulamadım. yardımcı olabilirseniz sevinirim.

 

[pbaytak]

acaba eksi bir konu olduğu için mi cevap alamıyorum yeni konu açmak istemedim ...