Otomatik Numara Verme

[akmekatesisat]

Merhabalar
Benim istediğim özellik excel'e ben bir numara vericem Örn: 20190001 Sipariş numarası başlangıcı olarak.
Ama her farklı kaydet dediğimde bu sayının 1er 1er artmasını istiyorum. Varmı yardım edecek reisler.
Ne zamandır uğraşıyorum kafayı yicem

 

[Erdem Akdemir]

Merhaba,

Böyle bir işlemi neden yapmak istiyorsunuz. Her siparişi ayrı bir excel dosyasında mı takip etmek istiyorsunuz.
Dosyanın adı sipariş numarası mı olacak?

 

[akmekatesisat]

Merhaba,

Böyle bir işlemi neden yapmak istiyorsunuz. Her siparişi ayrı bir excel dosyasında mı takip etmek istiyorsunuz.
Dosyanın adı sipariş numarası mı olacak?

Merhaba Firmamız için teklif formu istiyorum sipariş değil de teklif no desek daha doğru olur sabit bir excel dosyasında 2019-0001 numaralı teklif no satırı olsun istiyorum ve teklifi hazırlayıp farklı kaydet dediğimde sabit dosyadaki numaranın +1 artmasını istiyorum.
Bu şekilde yardımcı olabilir misiniz acaba.
Yapamazsanız da teşekkür ederim..

 

[systran]

Örneği inceleyiniz.
CTRL + S ile orjinal dosyayı kayıt ederken sayaç artmaz. F12 ile farklı kaydet derseniz, önce sayaç artar sonra kayıt edersiniz.

https://drive.google.com/drive/folders/1kCbBa_7DAncp648D0zuI7YqdSHtOMsPN?usp=sharing

 

[akmekatesisat]

Örneği inceleyiniz.
CTRL + S ile orjinal dosyayı kayıt ederken sayaç artmaz. F12 ile farklı kaydet derseniz, önce sayaç artar sonra kayıt edersiniz.

https://drive.google.com/drive/folders/1kCbBa_7DAncp648D0zuI7YqdSHtOMsPN?usp=sharing

Merhaba size bendeki excel dosyasını atsam Teklif No diye bir sütun açıcam oraya uygulasanız bu işlemi olur mu veya sizin attığınız linkteki formülü bozmadan kendi excelime nasıl aktarırım kopyala veya kes işlemlerinde formül veya makro her neyse bozuluyor.

https://dosya.co/tucvu99e4vfm/SİPARİŞ_FORMU.xls.html

buna uyarlarsanız çok sevinirim

 

[systran]

Elinizdeki çalışma sayfası açıkken
Alt+F11 (VB editör açılacak) Resimdeki 1-2-3 sıralamasını takip edin. Aşağıdaki kodu araya yapıştırın. Sihirli hücre B2

If SaveAsUI Then Sayfa1.Range("B2").Value = Sayfa1.Range("B2").Value + 1

 

[akmekatesisat]

Elinizdeki çalışma sayfası açıkken
Alt+F11 (VB editör açılacak) Resimdeki 1-2-3 sıralamasını takip edin. Aşağıdaki kodu araya yapıştırın. Sihirli hücre B2

If SaveAsUI Then Sayfa1.Range("B2").Value = Sayfa1.Range("B2").Value + 1

Ekli dosyayı görüntüle 210621

Altın üye olmanız gerekmektedir diyor

 

[systran]

#6 nolu mesaj güncellendi

 

[Mehmetfrkbzkrt]

Örneği inceleyiniz.
CTRL + S ile orjinal dosyayı kayıt ederken sayaç artmaz. F12 ile farklı kaydet derseniz, önce sayaç artar sonra kayıt edersiniz.

https://drive.google.com/drive/folders/1kCbBa_7DAncp648D0zuI7YqdSHtOMsPN?usp=sharing

Merhabalar hocam benim de aynı sorunum var formül yazmayı da bilmiyorum rica etsem bana yardımcı olur musunuz çok sevinirim.