Sayfa taşınırken veri silme

[zırzır]

Arkadaşlar.makro yardımı ile Kayıt adlı kitaptaki iki sayfayı "D"sürücüsüne
aktarıyorum.Ancak aktarma yaptıktan sonra iki sayfada [K3:Z35] aralığındaki
tüm formüller açığa çıkıyor.
1)=Aktarma makrosu çalışırken iki sayfadaki [K3:Z35] aralığı silinsin,
2)=Aktarılan iki sayfadaki "sütun genişliği:4,00 satır yüksekliği:15 olsun
Kullandığım makro aşağıdadır.Yardımlarınıza şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Sub Kayıt_Aktar()
    Application.ScreenUpdating = False
    Set WB = ActiveWorkbook
    MyFolder = "D:\Kayıt"
    MyFile = " " & Format(Now, "dd.mm.yyyy") & ".xls"
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If Not FSO.FolderExists(MyFolder) Then
        FSO.CreateFolder (MyFolder)
    End If
    Sheets(Array("Kayıt1", "Kayıt2")).Copy
    With Sheets("Kayıt1")
        .Range("K3:Z35") = Empty
        .Cells.ColumnWidth = 4
        .Cells.RowHeight = 15
    End With
    With Sheets("Kayıt2")
        .Range("K3:Z35") = Empty
        .Cells.ColumnWidth = 4
        .Cells.RowHeight = 15
    End With
    Set YWB = ActiveWorkbook
    YWB.SaveAs Filename:=MyFolder & "\" & MyFile
    YWB.Close
    WB.Activate
    Set WB = Nothing
    Set YWB = Nothing
    Set FSO = Nothing
    Application.ScreenUpdating = True
End Sub

 

[zırzır]

Sayın Korhan Ayhan,ellerinize sağlık tam istediğim gibi.İyi çalışmalar