Mevcut Sayfayı Yeni İsimi Vererek Eklemek

[custersd]

Mevcut Sayfayı macro ile yeni isim vererek eklemek istiyorum. Buton'a basılacak ve inpubox'da bana isim sorucak yazdığım isimle mevcut dosyayı yaratacaktır. Nasıl yapabilirim. İsim vererek boş sayfa ekleyebiliyorum ancak mevcut sayfayı yeni isimle nasıl çoğaltabilirim?

Yardımlarınız İçin Teşekkürler

 

[Orion1]

Aşağıdaki kodlar işinizi görür.

Sub sayfa_ekle()
Dim syf As String, ekle As String, s As Worksheet
syf = ActiveSheet.Name
ekle = InputBox("Sayfa İsmi Yazınız..:", "SAYFA EKLEME")
If ekle = Empty Then Exit Sub
For Each s In Worksheets
    If UCase(Replace(Replace(s.Name, "ı", "I"), "i", "İ")) = _
    UCase(Replace(Replace(ekle, "ı", "I"), "i", "İ")) Then
        MsgBox ekle & " İsminde sayfa Var..", vbCritical, "UYARI"
        Exit Sub
    End If
Next s
Application.Worksheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = ekle
Sheets(syf).Cells.Copy Range("A1")
MsgBox "İşlem tamam.", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[custersd]

Çok Teşekkürler...

 

[custersd]

Verdiğin kod mükemmel çalışıyor. Tekrar Teşekkürler..

Mevcut dosyanın kopyalanan halinde satır ve sütün çizgileri çıkıyor ekleme yapıldığında bunların görünmemesini nasıl sağlarım?

 

[Orion1]

Verdiğin kod mükemmel çalışıyor. Tekrar Teşekkürler..

Mevcut dosyanın kopyalanan halinde satır ve sütün çizgileri çıkıyor ekleme yapıldığında bunların görünmemesini nasıl sağlarım?

Kodların en sonuna aşağıdaki kodu kopyalayın.
End Sub tan önce

ActiveWindow.DisplayGridlines = False

 

[custersd]

Teşekkürler ancak şöle bi problem var. Çoğaltmak istediğim sayfayı birebir aynı olarak çoğaltması gerekiyor. Korumalı olan satırlar bulunuyor. Sizin gönderdiğiniz kodlar ile yaptığımda yeni sayfada koruma olmuyor. Birebir aynı nasıl ekleyebilirim?

Teşekkürler

 

[karakis_veli]

Kod ları bende çalıştırdım.Sayfa eklerken aynı özellikde sayfa eklemiyor.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.