Sayfanın kopyasını kod ve formüller hariç kaydetmek

[ynmcan]

Merhaba arkadaşlar;
Bir grafiğe veri girdiğim sayfayı, aynı çalışma kitabında aşağıdaki kod yardımı ile başka bir isimle yeni bir sayfa olarak kopyalıyorum

Sub başka_isim_ile_kaydet()
For i = 1 To Worksheets.Count
If Sheets(i).Name = Range("T1").Value Then
Y = MsgBox(Range(("T1")) & "  TARİHLİ BİR VARDİYA PLANI KAYDI ZATEN VAR.!!! VAR OLAN PLAN DEĞİŞSİNMİ???", vbYesNo, "")
If Y = vbYes Then
Sheets(i).Delete
Sheets("VERİ_GİRİŞ_FORMU").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Range("T1").Value
Exit Sub
End If
End Sub

Bu yeni isimle kopyaladığım sayfada yanızca grafik ve en son girilmiş verilerin görünmesini, kod ve formmüllerin silinmesini istiyorum. Bunu yapmam mümkünmü ?

 

[leumruk]

Merhaba,
Kodunuzu aşağıdaki ile değiştirip deneyin.

Sub başka_isim_ile_kaydet()
Set s1 = Sheets("VERİ_GİRİŞ_FORMU")
For i = 1 To Worksheets.Count
If Sheets(i).Name = s1.Range("T1").Value Then
Y = MsgBox(s1.Range(("T1")) & "  TARİHLİ BİR VARDİYA PLANI KAYDI ZATEN VAR.!!! VAR OLAN PLAN DEĞİŞSİNMİ???", vbYesNo, "")
If Y = vbYes Then
Sheets(i).Delete
Sheets.Add After:=Sheets(Worksheets.Count)
Sheets(Sheets.Count).Name = s1.Range("T1").Value
s1.Cells.Copy
        Cells.PasteSpecial Paste:=xlValues
        Cells.PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
s1.Select
Exit Sub
End If
End Sub