çalışma sayfası isminin kopyaladıkça artması

[Erdal]

Merhabalar;
Excelde tüm çalışma kitaplarım tek çalışma sayfasından oluşuyor. Bunların isimlerinide değiştirerek 1 yaptım.Çalışma sayfamı "taşı ve kopyala" komutuyla çoğalttığımda yeni açılan çalışma sayfasının isminin; kopyaladığım çalışma sayfasının isminin 1 fazlası olmasını istiyorum.Yani ismi 1 olan bir sayfayı kopyalıyorsam yeni sayfanın isminin 2 olması gibi. Siteyi arattığımda en yakın olarak aşağıdaki linki buldum fakat benim işimi tam olarak görmüyor. Eğer yardım edebilirseniz çok memnun olurum. Şimdiden teşekkürler.

http://www.excel.web.tr/showthread.php?t=17349&highlight=%E7al%FD%FEma+sayfas%FD+ismi

 

[N.Ziya Hiçdurmaz]

yanıt

Böyle birşeymi.

Sub test()
For i = 1 To Sheets.Count
Sheets(i).Select
Next
[a1] = ActiveSheet.Name
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = ActiveSheet.Previous.[a1] + 1
End Sub

 

[Erdal]

öncelikle ilginize teşekkür ederim sn. v. basic for applications
verdiğiniz kodlar işime yaramadı ben şöyle birşey istemiştim.
Normalde sayfa 1 olan çalışma ksayfamın ismini 1 diye değiştirdim. Bu çalışma sayfasını taşı ve kopyala dediğimde (ekle değil) çalışma sayfamın ismi 1 (2) oluyor ben ise 2 olmasını istiyorum.ismi 5 olan bir çalışma sayfasını kopyalıyorsam ismi 6 olsun gibi... Böyle birşey mümkünmü şimdiden teşekkürler

 

[N.Ziya Hiçdurmaz]

yanıt

Sub test()
For i = 1 To Sheets.Count
Sheets(i).Select
Next
[a1] = ActiveSheet.Name
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = ActiveSheet.Previous.[a1] + 1
End Sub

 

[Erdal]

sn. V. Basic For Applications
ben beceremedim herhalde verdiğiniz kodlar işe yaramadı. Olmayacak herhalde ilginiz için çok teşekkürler

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

Kullanılan kodlar; (Çalışmanızın "ThisWorkbook" bölümüne uygulayın.)

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    On Error Resume Next
    ActiveSheet.Name = ActiveSheet.Previous.Name + 1
End Sub

 

[Erdal]

teşekkür ederim sn. cost_control
tam istediğim gibi olmuş bilginize sağlık tekrar teşekkürler