Soru Farklı kaydet

[okan32]

Sub Farklı_Kaydet()
Kayit_Yeri = Environ("USERPROFILE") & "\Desktop\" & ActiveSheet.Name & ""
ActiveSheet.Range("A1:E100").Copy
Workbooks.Add 1
ActiveWorkbook.Sheets(1).PasteSpecial
Application.CutCopyMode = False

With ActiveWorkbook
    .SaveAs Kayit_Yeri & "" & ".xls"
    .Close
End With
MsgBox "Masaüstüne Kayıt İşlemi Yapıldı...", vbInformation, ""
End Sub

Aşağıdaki kod ile sayfayı masaüstüne farklı kaydediyorum ama sayfayı biçimleri ile birlikte kaydediyor. benim istediğim sadece verileri kaydedecek

 

[yanginci34]

Denermisiniz.

Sub Farklı_Kaydet()
Kayit_Yeri = Environ("USERPROFILE") & "\Desktop\" & ActiveSheet.Name & ""
ActiveSheet.Range("A1:E100").Copy
Workbooks.Add 1
ActiveWorkbook.Sheets(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False

With ActiveWorkbook
    .SaveAs Kayit_Yeri & "" & ".xls"
    .Close
End With
MsgBox "Masaüstüne Kayıt İşlemi Yapıldı...", vbInformation, ""
End Sub

 

[okan32]

ActiveWorkbook.Sheets(1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

Bu satırda hata verdi hocam

 

[okan32]

Arkadaşlar örnek dosyayıda ekliyorum