OTOMATİK SAYI ARTTIRMA

[SHERO]

Merhabalar ;

arkadaşlar benim kullanmış olduğum teklif formatın da her teklif sayfası bir sekmede yer almaktadır. ve en son icmalde toplanmaktadır. benim sorum şu ;

her sekmede biz o teklif bölümüne bir numara veriyoruz. ve o numara sekme arttıkça artıyor. mesela ilk teklif sayfasına (sekme) verdiğim numara S022001 ise ikinci teklif sayfası sekmesinde S022002 olması gerekiyor tıpkı irsaliye ve fatura numaralarının arttığı gibi. bunu nasıl otomatik yapabilirim ? yardımlarınız için şimdiden tşk. ederim...

 

[genesis_vision]

Bu kod işinizi görecektir.
Sub deneme()
Sheets(Sheets.Count).Copy after:=Sheets(Sheets.Count)
a = Sheets(Sheets.Count - 1).Name
b = Right(a, 4) + 1
ActiveSheet.Name = "S02" & b
End Sub

 

[leguminosea]

Alternatif olarak;
Teklif sayfalarınızı isimlerini 1,2,3... diye sıralı adlandırmak şartı ile;
="S0"&2200+(PARÇAAL(HÜCRE("dosyaadı";A1);BUL("]";HÜCRE("dosyaadı";A1);1)+1;4))*1

 

[leguminosea]

veya;
ilk teklif sayfanızda (Teklif1 Sayfası) teklif noyu S022001 (mesela A1 Hücresine) yazdıktan sonra
Sonraki Teklif2 sayfanızda A1 hücresine;
="S0"&22000+(PARÇAAL(Teklif1!A1;BUL(2200;Teklif1!A1;1)+2;3)*1)+1