Makro ile excel dosyasının bir kısmını kopyalama

[gnorar]

İçerisinde; Meyve, Sebze, Etürünleri, Sütürünleri, Balık, Deterjan, Giyim, Elektronik adı altında 8 sayfadan oluşan "Malzemeler" adlı bir excel dosyası var. Excel dosyasında makrolar ve sayfa hücrelerinde formüller var.
Bu 8 sayfadan; Etürünleri, Sütürünleri, Balık, Deterjan, Giyim adlı sayfaları Masaüstünde yeni oluşturulacak "Yedek" adında bir excel dosyasına kopyalamak istiyorum. Ancak oluşturulan yedek dosyası şu özellikleri taşımalı.

1- Masa üstünde yedek adlı bir dosya varsa hiçbirşey yapılmadan excel uyarı versin.
2- Ana dosyadaki hiç bir mokro ile hücrelerdeki formüller yedek dosyasına kopyalanmayacak (Değerler kopyalanacak)
3- Değerler kopyalanırken sayfa, satır, sutün yapıları korunmuş olacak. (Satır genişlikleri, sutün yükseklikleri, birleştirilmiş hücreler, yazı karakterleri yazı puntoları vs. korunarak yedek dosyası oluşturulacak)

Bu işi yapacak bir bir kod geliştirebilirmisiniz?

 

[mancubus]

ben 1. madde için gerekli kodu vereyim. 2 ve 3'e forumda yüzlerce örnek var. (gerçi 1 için de var ama...)

Sub masaustundekidosyayakopyala()
    
    Dim obj As Object
    Dim dsy As String, dyolu As String
    
    Set obj = CreateObject("WScript.Shell")
    
    dsy = "Yedek*.*"
    dyolu = obj.SpecialFolders("Desktop") & "\" & dsy
    
    If Dir(dyolu) > "" Then
        MsgBox "Masaüstünde " & dyolu & " mevcut! Uygulamadan çıkılıyor!"
        Exit Sub
    Else
        GoTo devam:
    End If
    
devam:
'2. ve 3. maddenin kodları buraya!!!
'veya "GoTo devam:" silinerek "Else" ve "End If"in arasına

End Sub