Farklı Kaydedildiği zaman otomatik olarak numara verdirme

[MetinErol]

Kullandığımız dosya farkıl kaydet seçeneği ile kaydedildiği zaman otamatik olarak bir önceki formdan sonraki numarayı alabilir mi..
Böyle bir formül varmı? Teşekkürler.. İyi Çalışmalar..

 

[Levent Menteşoğlu]

Bunun için dosyanızın kaydedildiği klasörün yolunu ve dosyalara verdiğiniz isimlerin nasıl olduğu ile ilgili bir örnek verirmisiniz.

 

[Seyit Tiken]

Sub FarklıKaydet()
Böyle bir şey mi? İstediniz.
"Makro Kaydet" ile yapılmış. Butona basıldığı an kayıt yapılsa da yapılmasa da numara veriyor.

On Error Resume Next
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\seyıt\Belgelerim\Kitap1.xls", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
[A1] = [A1] + 1
End Sub

 

[MetinErol]

formda kullandığımız bir teklif numarası var her yaptığım yeni teklife yeni numara vererek farklı kaydediyorum.. İstediğim farklı kaydet ile kaydettiğim zaman bu numarayı otomatik olarak vermek istiyorum.. Örnek
1. Teklifte C4 hücresindeki numara 5 ise yeni yapacağım teklifte bu numara yine aynı hücrede 6 olacak..

 

[MetinErol]

SANAYİ VE TİCARET LTD. ŞTİ. TEKLİF FORMU
Kurum : Pirelli Çelikkord AŞ.
Bölüm :Teknik Büro
TARİH:06 Mart 2006 Pazartesi İlgili : Aydın Şekerci
Teklif No :603.005 e-mail :
Alternatif : 1
Tel - Fax :

Yukarıdaki teklif numarası yen, yapacağım teklifte 603.006 olacak ve ay değiştiği zaman 604.001 den tekrar başlayacak otomatik olarak bu mümkün mü..Teşekkürler İyi Çalışmalar..