Çalışma Sayfasının Formülsüz Kopyasını alma

[Sarigol_937]

Merhaba arkadaşlar benim bir çalışma sayfam var örneğin "VeriGiriş1" sayfası ben bu çalışma sayfası içerisinde bir buton ekleyerek, butona basınca yedekleme yapacağı benden bir dosya adı istesin ve ben dosya adını girip Enter' layınca aynı çalışma kitabının içine Sayfa1, Sayfa2,Sayfa3 ün yanına verdiğim sayfa adıyla kopya bir sayfa oluştursun ama bu kopyada sadece harf ve rakamlar olsun, formüller makrolar hiçbir şey kopyalanmasın, bir nebze kopyala değerleri yapıştır gibi birşey yapmalı kopya sayfaya. Yardımcı olan arkdaşlara şimdiden çok teşekkürler

 

[Necdet]

Merhaba,

Aşağıdaki "Sayfa1" olan değeri kendinize göre uyarlayınız.

Sub SayfaKopyala()
 
    Dim Syf As Variant
 
    Syf = Application.InputBox("Sayfa Adını Giriniz", "Sayfa Adı Girişi", "Yedek", Type:=2)
    If Syf = False Then Exit Sub
 
    Sheets("[B][COLOR=red]Sayfa1[/COLOR][/B]").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Syf
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
    Sheets("[B][COLOR=red]Sayfa1[/COLOR][/B]").Select
 
End Sub

 

[Sarigol_937]

hata veriyor "400" diye bişey çıktı birde type mismatch" diye bir hata verdi.

 

[Sarigol_937]

boş sayfadada denedim sadece sayıda ve sadece harfde denedim hiçbir türlü kopyalamıyor Type Mismatch diye hata veriyor

 

[Necdet]

Merhaba,

Kodları yeniledim, tekrar alıp dener misiniz?

 

[AyYıldızım]

Necdet Bey böyle birşey banada lazımdı yalnız bunu başka bir çalışma kitabındaki sayfalara bu şekilde kopyalayabilirmiyiz,

 

[Sarigol_937]

yeni makro çalışıyor denedim tşkler necdet bey ancak Formül olan sayfa1 deki formülleri siliyor yedek oluşturduğu dosyada ise formüller var, tam tersi işlem oldu

 

[Sarigol_937]

Arkdaşlar olmuyor denedim bir türlü asıl sayfa bozuyor bu kod

 

[Necdet]

Merhaba,

Soru başlığınız formülsüz kopyalamaktı. Bende o yüzden formülleri kaldırdım.

koddaki Paste:=xlPasteValues
satırını Paste:=xlPasteAll olarak değiştirin.

 

[Sarigol_937]

Ekte gönderdiğim sayfada örnek uygulama ve karşılaştığım hata mevcut, Ana kopyalanan sayfa aynı kalmalı(formüllleri,makroları)bu, oluşturulan yedekte ise sadece metin ve rakam olmalı.

 

[Necdet]

Merhaba,

Aşağıdaki gibi kullanın.

Sub SayfaKopyala()
 
    Dim Syf As Variant
 
    Syf = Application.InputBox("Sayfa Adını Giriniz", "Sayfa Adı Girişi", "Yedek", Type:=2)
    If Syf = False Then Exit Sub
 
    Sheets("KASIM AYI MEYVE FİYAT").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Syf
    Sheets("KASIM AYI MEYVE FİYAT").Select
 
End Sub

 

[Sarigol_937]

Çok teşkkürler kusura bakmayın uğraştırdım sizi çook sğolun problemim çözüldü

 

[Necdet]

Çok teşkkürler kusura bakmayın uğraştırdım sizi çook sğolun problemim çözüldü

Sorunun konu başlığında formülsüz kopyalama olmasaydı işlem daha kısa sürerdi

Güle güle kullanınız.

 

[Kılıç1977]

Merhaba,

Aşağıdaki "Sayfa1" olan değeri kendinize göre uyarlayınız.

Sub SayfaKopyala()

    Dim Syf As Variant

    Syf = Application.InputBox("Sayfa Adını Giriniz", "Sayfa Adı Girişi", "Yedek", Type:=2)
    If Syf = False Then Exit Sub

    Sheets("[B][COLOR=red]Sayfa1[/COLOR][/B]").Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Syf
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

    Sheets("[B][COLOR=red]Sayfa1[/COLOR][/B]").Select

End Sub

Merhaba, bu kod çok işime yaradı ama sayfada koruma olunca hata veriyor. korumayı aşmak içinde bir çözüm olabilirmi? Kendi dosyama aşağıdaki gibi ayarladım. ANASAYFA yedekleniyor ama sayfa koruması var, koruma şifresi 1995

Sub SayfaKopyala()
 
    Dim syf As Variant
 
    syf = Application.InputBox("Sayfa Adını Giriniz", "Sayfa Adı Girişi", "Yedek", Type:=2)
    If syf = False Then Exit Sub
 
    Sheets("ANASAYFA").Copy after:=Sheets(Sheets.Count)
    ActiveSheet.Name = syf
    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
 
    Sheets("ANASAYFA").Select
 
End Sub

 

[Necdet]

Merhaba,
Sayfanın koruma şifresini kaldırmalısınız.
Sonra tekrar sayfa koruma şifresi koyabilirsiniz.
Aşağıdaki kod Sayfa1'in şifresini kaldırır.

    Sheets("Sayfa1").Unprotect "a"

bu kod ise Sayfa1'e koruma şifresi koyar.

    Sheets("Sayfa1").Protect "a"

Koddaki sayfa adlarını kendinize göre uyarlayınısz.

 

[Kılıç1977]

Harikasınız. Denedim sorunsuz çalıştı, çok teşekkür ederim.