Otomatik numarator

[f.ilker]

Merhabalar,
Forumda önceden de numarator işlemi anlatılmış ama ben beceremedim ne yazık ki
Ekteki dosyadaki J4 hücresine kendiliğinden artan numaratör koymak istiyorum.
10000 ile başlayıp, dosya açıldığında 1 artarak devam etmeli.

J3 Hücresi: Quote No:
J4 Hücresi: 10000

Yardımlarınızı rica ederim.
Saygılarımla

ilker

 

[askm]

Bu Çalışma Kitabı kısmına aşağıdaki kodları yazın.

Private Sub Workbook_Open()
If Sheets("Sayfa1").Range("j4") = "" Then
    Sheets("Sayfa1").Range("j4") = 10000
Else
    Sheets("Sayfa1").Range("j4") = Sheets("Sayfa1").Range("j4") + 1
End If
End Sub