Çalışma kitabı açılış sayacı

[burakinti]

Merhaba, çalışma kitabını her açtığımda bana açılış sayısını gösterecek sayaç oluşturmak istedim fakat çalıştıramadım. Destek rica edebilir miyim

Yazdığım kod

Private Sub Workbook_Open()

Dim Sayac As Integer

Sayac = Sheets("Sayfa1").Range("B2").Value + 1

End Sub

 

[Necdet]

Sheets("Sayfa1").Range("B2").Value =Sheets("Sayfa1").Range("B2").Value +1

demelisiniz ve ayrıca dosyayı saklamalısınız.

 

[burakinti]

Düzeltme yaptım fakat olmadı.

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Workbook_Open()
    Sheets("Sayfa1").Range("B2").Value = Sheets("Sayfa1").Range("B2").Value + 1
End Sub

 

[Necdet]

Düzeltme yaptım fakat olmadı.

Olmadı demek kolay, kodlar BuCalışmaKitabı'nın kod bölümünde olmalı.

Private Sub Workbook_Open()

    Sheets("Sayfa1").Range("B2").Value = Sheets("Sayfa1").Range("B2").Value + 1
    ThisWorkbook.Save

    MsgBox Sheets("Sayfa1").Range("B2").Value & " KERE AÇILDI...."
   
End Sub

 

[burakinti]

Çalışma kitabına eklemiştim, kaydetmemiş olabilir.

Teşekkürler.