Sayaç oluşturmak

[unur]

Merhaba Arkadaşlar;
Excel sayfamın her açıldığında Örn:A1 hücresindeki rakam bir artsın istiyorum.Böyle bir şey nasıl yapılabilir acaba
Teşekkürler

 

[umutsancar]

Thisworkbook'a bunu yapıştırın.


Private Sub Workbook_Open()
Worksheets("Sayfa1").Range("A1") = Worksheets("Sayfa1").Range("A1") + 1
ActiveWorkbook.Save
End Sub

 

[zafer]

Merhaba

Sayfa1 isimli sayfanızın her aktif duruma getirdiğinizde istiyorsanız

Aşağıdaki kodu sayfa1 in kod sayfasına yapıştırınız.

Private Sub Worksheet_Activate()
[a1] = [a1] + 1
End Sub

 

[unur]

Teşekkürler Umut Bey; elinize sağlık

 

[unur]

Bu arada zafer bey sizede teşekkürler; şimdi gördüm sizin cevabınızıda teşekkürrü bölüp parçalamış olmayalım

 

[pitsss]

Thisworkbook'a bunu yapıştırın.


Private Sub Workbook_Open()
Worksheets("Sayfa1").Range("A1") = Worksheets("Sayfa1").Range("A1") + 1
ActiveWorkbook.Save
End Sub

Cevabınız iiçin çok teşekkürler..

 

[hsevki]

arkadaşlar bu süper birşey elinize sağlık