Sayfaya yeni isim verme

[Kocbey]

Sayın ustalarım
yapmış olduğum çalışmada

Private Sub CommandButton1_Click()
Sheets("1").Select
Sheets("1").Copy Before:=Sheets(1)
Sheets("Ödeme").Select
End Sub

makrosu ile 1 sayfasını kopyalayarak yeni sayfa oluşturuyorum. Oluşan sayfanın adı 1(1), 1(2), 1(3) olarak açılıyor bende daha sonra sayfaların ismini tek tek değiştiriyorum elimdeki sayfaların isimleri 1, 2, 3, 4, 5 ..... diye gidiyor

benim istediğim yeni sayfa oluştuğunda makronun mevcut sayfaları kontrol ederek ismini kendisinin vermesi, makro çalışınca yeni sayfanın ismi 1(1) yerine en son kaçıncı sayfa isminde kaldıysa ordan devam etmesini istiyorum örneğin 50. sayfada kaldıysak yeni oluşan sayfa ismi 51 bir sonrakinin ismi 52 ..... diye gitmesi lazım.

 

[hamitcan]

Eğer bir sayfa silerseniz bu seri bozulacak, bence her sayfa kopyalama işleminde sayfalar yeniden adlandırılsa daha iyi olur.

 

[Necdet]

Merhaba,

Private Sub CommandButton1_Click()
Sheets("1").Copy Before:=Sheets(1)
ActiveSheet.Name = Sheets.Count + 1
Sheets("Ödeme").Select
End  Sub

 

[Kocbey]

Necdet usta hata veriyor.

benim çalışmamda Çizelge, Ödeme, A, 1, 2, 3, 4, 5, 6, 7, ............... 50 diye sayfalarım var ilk kodda 1. sayfa kopyalanacak yazmıştım ama kopyalanacak sayfa A isimli sayfa. gerçi değişen bir şey olmadı her ikisinede denediğimde

Compile Error:
Expected End Sub

hatası veriyor

 

[Necdet]

Merhaba,

Kodları aktarırken hata olmuş, düzelttim, tekrar deneyiniz.

 

[Kocbey]

Usta ellerin ve aklın dert görmesin çok sağol işimi görmeye yetti