Otamatik numara verme

[dilteks]

Arkadaşlar merhaba
ben excelde yapmış olduğum ekteki listede fiş numarasının her açılışta (1) bir artırarak gelmesini nasıl sağlarım.
İlginiz için şimdiden teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları ThisWorkook a kopyalayınız

Private Sub Workbook_Open()
Sheets("Sayfa1").[D2] = Sheets("Sayfa1").[D2] + 1
End Sub

 

[dilteks]

Sayın Necdet Yesertener öncelikle ilginiz için teşekkür ederim,
fakat ben yapamadım, eğer mümkünse ekteki listeye uygulama yaparsanız çok memnun olurum.
Teşekkür ederim.

 

[Necdet]

Merhaba Sayın dilteks,

Dosya ekte

 

[dilteks]

Teşekkür

Çok Teşekkür ederim