Otomatik Seri No Verme

[toglyy]

Merhaba,

Excel'de fatura gibi bir form hazırlamayı düşünüyoruz, bu formun bir tarafında da seri numarası olmasını ve dosyayı her açışımızda değişmesini istiyoruz.

Nasıl Yapabiliriz?

 

[muratboz06]

Aşağıdaki linkte bulunan örneği inceleyebilirsiniz.

https://s4.dosya.tc/server6/yz3fbv/Kitap1.xlsm.html

BuÇalışmaKitabı modülündeki kodun açıklaması:
Çalışma kitabı her açıldığında Deneme Sayfasındaki B1 Hücresinde bulunan değeri 1 artır ve kaydet.

 

[u.L.a.s]

Murat Beyin gönderdiği dosyayı incelemedim ama sanırım benim anlattığımla aynıdır bilemiyorum ama ben kod halini aşağıya yazıyorum.

Örneğin Fatura Sayfanız sheet1 diyelim ve seri numarası a1 hücresinde. A1 hücresinde bir değer varken kaydedip kapattığınızda. Ve tekrar açtığınızda o hücredeki değeri bir artıran çok basit macro kod aşağıdaki gibi uygulanabilir

aşağıdaki kod Thisworkbook kod düzeneği içerisine yazılmalıdır

Private Sub Workbook_Open()
Worksheets("Sheet1").Range("A1") = Worksheets("Sheet1").Range("A1") + 1
End Sub

 

[toglyy]

çok teşekkür ederim iki yöntem de işime yaradı.