Referans Numarası Ekleme

[Liberty]

Merhaba,

Sürekli kullandığım bir excel sayfasına referans numarası eklemek istiyorum. Dosyayı her açtığımda otomatik olarak numara artsın, güncellensin. Mümkün müdür? Teşekkürler.

 

[Orion1]

Aşağıdaki kodu standart bir modüle kopyalayınız.
A1 hücresindeki dosya her açıldığında 1 artacaktır.

Sub Aoto_Open()
sheets("Sayfa1").Range("A1").Value = Range("A1").Value + 1
End Sub

 

[Liberty]

Çok teşekkürler. Standart modülden kastınız ne? nereye kopyalamam gerek? visalbasici açıp mı kopyalayacağım? hangi sayfaya nereye?

 

[karadami]

excel de alt+F11 e birlikte basip acilan sayfada insert menusunden module tiklayarak ekleyebilirsiniz.

 

[Liberty]

evet ama sayfayı her açtığımda numara artmıyor. macroyu çalıştırmam gerekiyor her seferinde.

Sub Aoto_Open()
sheets("Sayfa1").Range("A1").Value = Range("A1").Value + 1
End Sub

 

[Orion1]

evet ama sayfayı her açtığımda numara artmıyor. macroyu çalıştırmam gerekiyor her seferinde.

Sub Aoto_Open()
sheets("Sayfa1").Range("A1").Value = Range("A1").Value + 1
End Sub

Bir hata yapmışım.
Aşağıdaki kodu kopyalayınız.

Sub Auto_Open()
sheets("Sayfa1").Range("A1").Value = Range("A1").Value + 1
End Sub

 

[Liberty]

Düzeldi, tekrar teşekkürler.

 

[Orion1]

Düzeldi, tekrar teşekkürler.

Rica ederim.
İyi çalışmalar.