Otomatik sayfalar açma ve onları adlandırma

[Korhan Ayhan]

Selamlar,

VERİ sayfanızdaki F1 hücresini ortalattırın yazı fontunuda kalınlaştırdıkktan sonra aşağıdaki kodu çalıştırın.

Sub SAYFA_EKLE()
    Application.ScreenUpdating = False
    Say = Worksheets.Count - 1
    Sheets("VERİ").Select
    [F1] = Say
    [F1].NumberFormat = "00"
    Sheets("VERİ").Copy After:=Sheets("VERİ")
    ActiveSheet.Shapes("Button 8").Delete
    ActiveSheet.Name = Format(Say, "00")
    ActiveSheet.[F1].Select
    Selection.NumberFormat = "00"
    Sheets("VERİ").Select
    Application.ScreenUpdating = True
End Sub

 

[kombo]

sn COST CONTROL
Size de teşekkür ederim. Ama aynı sorun devam ediyor. İlkönce F1 hücresindeki rakamı okuması lazım diye düşünüyorum. Ve ondan sonra sayfa numaralarını vermesini. Sizin gönderdiğiniz son kodlarda F1 ne olursa olsun "00" sayfa numarasından başlıyor.
İlginiz için teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Birde aşağıdaki kodu denermisiniz.

VERİ sayfanızdaki F1 hücresini ortalattırın yazı fontunuda kalınlaştırdıkktan sonra hücre biçimlendirmeden formatını "00" ayarlayın ve aşağıdaki kodu çalıştırın.

Sub SAYFA_EKLE()
    Application.ScreenUpdating = False
    Say = Worksheets.Count - 1
    Sheets("VERİ").Select
    Sheets("VERİ").Copy After:=Sheets("VERİ")
    ActiveSheet.Shapes("Button 1").Delete
    ActiveSheet.Name = Format(Sheets("VERİ").Range("F1").Value, "00")
    ActiveSheet.[F1].Select
    Selection.NumberFormat = "00"
    Sheets("VERİ").Select
    [F1] = [F1] + 1
    Application.ScreenUpdating = True
End Sub

 

[kombo]

Sn COST CONTROL
Söylediklerinizin hepsini yapıyorum ama olmuyor. Bir yerde hata yapıyorum herhalde.
İlginiz için teşekkür ederim.

 

[Korhan Ayhan]

Sn. kombo son mesajımdaki kodu denermisiniz.

 

[kombo]

Sn. COST CONTROL
Uyku iyice bastı galiba :uyku: . Son mesajınızdaki kodu veri sayfasının kod sayfasına yazmışım. Haliyle eski kodla çalışıyormuşum. Özür dilerim.
Elinize emeğinize sağlık.
Teşekkür ederim.

 

[kombo]

Herkese merhaba..

Şimdi de şöyle bir sorun oldu. Kopyaladığım VERİ sayfası korumalı. Önce korumayı açıyorum sonra kopyalama işlemini yapıyorum. Dolayısıyla yeni sayfa koruması kaldırılmış halde oluyor.Mavi yerlerde nasıl düzenleme yapmam gerek.


Sub SAYFA_EKLE()
ActiveSheet.Unprotect
Application.ScreenUpdating = False
Say = Worksheets.Count - 1
Sheets("VERİ").Select
Sheets("VERİ").Copy After:=Sheets("VERİ")
ActiveSheet.Shapes("Button 1").Delete
ActiveSheet.Name = Format(Sheets("VERİ").Range("F1").Value, "00")
ActiveSheet.[F1].Select
Selection.NumberFormat = "00"
Sheets("VERİ").Select
[F1] = [F1] + 1
Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub

 

[Zeki Gürsoy]

Selection.NumberFormat = "00" satırının hemen altına,
ActiveSheet.Protect
satırını ilave edebilirsiniz.

 

[kombo]

sn anemos
Evet oldu.
İlginiz için teşekkür ederim.