Makro İle Dosya Kopyalama

[Metin55]

Günaydın,
Ekte örnek dosyadaki d6:K27 hücre aralığındaki tabloyu formüller hariç biçimlenmiş hali ile masa üstüne yeni bir dosya ile nasıl kayıt yapabiliriz?.Ayrıca kaydet butonuna bastığında bize hangi isimle kayıt yapılacağına dair bir kutucuk gelip kutucuğa dosya ismini girip o isimle kayıt yaptırmak mümkünmüdür.Yardımcı olursanız memnun kalırım.Saygılar

 

[EmrExcel16]

Merhaba aramıza hoş geldiniz.

Dosya yedekleme işlemini (istediğiniz isimle masaüstüne)aşağıdaki kod ile yapabilirsiniz .İyi çalışmalar..

Private Sub CommandButton1_Click()
Dim Kayıt_Yeri As String
Dim uzanti As String, dosya As String
Dim masaustu As String, dosya_adı As String, yer As String
Application.ScreenUpdating = False
masaustu = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")
dosya = ActiveWorkbook.Name
Set fLk = CreateObject("Scripting.FileSystemObject")
uzanti = fLk.GetExtensionName(dosya)
dosya_adı = fLk.GetBaseName(dosya)
yer = InputBox("Dosyanın adını yazınız.", "Dosya Adı", "")
If yer = "" Then
MsgBox "İşlemi iptal ettiniz"
Exit Sub
End If
ActiveWorkbook.Save
Application.DisplayAlerts = False
Yedek_Dosya_Adı = yer & "." & uzanti
Kayıt_Yeri = masaustu & "\" & Yedek_Dosya_Adı
fLk.CopyFile ThisWorkbook.FullName, Kayıt_Yeri
MsgBox "Dosyanız aşağıdaki isimle yedeklenmiştir." & Chr(10) & Chr(10) & Kayıt_Yeri, vbInformation, "U Y A R I "
        ActiveWorkbook.Save
Application.DisplayAlerts = True
End Sub

 

[Metin55]

Sayın Emir çok teşekkür ederim.Benim yapmak istediğim dosya yedeklemesi değil d6:k27 hücre aralığının başka bir sayfaya tümüyle (biçimlendirme dahil) aktarılması ve yeni isimle kayıt yaptırılmasıdır (Kopyalama sadece ilgili aralıkta olacak)

 

[Metin55]

Rica etsem yardımcı olabilirmisiniz.

 

[Metin55]

Rica etsem yardımcı olabilirmisiniz.

 

[Metin55]

Günaydın arkadaşlar;
Rica etsem konuya yardımcı olabilirmisiniz?