teklif numarasını otomatik atama ve artırma (soru)

[drsistem]

Merhaba Arkadaşlar;
Sizlerden bir konu üzerine yardımlarınızı istiyorum. Ekte yer alan teklif formumda, Formu farklı kaydet dediğimde teklif no (Teklif No:YT150411010) otomatik olarak atama nasıl yapabilirim. Açıklama yapmam gerekirse teklif no [gun/ay/yıl(11)/otomatik atama No(010+1)] 150411010 şelinde. farklı kaydet dediğimde 150411011 olarak eklemesini istiyorum. 16 Nisanda bu no 160411010 ile başlayıp her farklı kaydet dediğimde 1 atmasını istiyorum. Bunu yapmam mümkün müdür acaba? Forumda yer alan bazı örnekleri inceledim fakat üstesinden gelemedim. İlgilenen arkadaşlara şimdiden teşekkür eder, iyi çalışmalar dilerim.
Saygılarımla;

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

ThisWorkbook bölümüne yazarak deneyiniz

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
Set s1 = Sheets("Teklif Formu")
sirano = Right(s1.Range("g18"), 2)
sirano = sirano + 1
Teklif_No = Left(s1.Range("g18"), 9)
s1.Range("g18") = Teklif_No & sirano
End If
End Sub

 

[drsistem]

merhaba

bu kod işinizi görür mü?

ThisWorkbook bölümüne yazarak deneyiniz

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
Set s1 = Sheets("Teklif Formu")
sirano = Right(s1.Range("g18"), 2)
sirano = sirano + 1
Teklif_No = Left(s1.Range("g18"), 9)
s1.Range("g18") = Teklif_No & sirano
End If
End Sub

Sanırım yapamadım. daha detaylı bir bilgi suna bilir misiniz? veya bir örnek..

 

[drsistem]

Konu ile ilgili yardımlarınızı bekliyorum arkadaşlar.İlgilenen arkadaşlara şimdiden teşekkür eder, saygılarımı sunarım.Sağlıcakla kalın

 

[mavitunam]

Konu ile ilgili yardımlarınızı bekliyorum arkadaşlar.İlgilenen arkadaşlara şimdiden teşekkür eder, saygılarımı sunarım.Sağlıcakla kalın

merhaba bu çözümü bende merak ediyorum. Nasıl yapabiliriz acaba?