Hücreden dosya ismi ile kayıt

[xtrkax]

Arkadaşlar merhabalar, istediğimi ve kodları aşağıda kod içerisinde paylaştım. İstenilenlerin eklenmesi konusunda yardımcı olabilir misiniz?

Sub Enreg_Fichier()
'Bu makro düğmeden çalışmaktadır. Düğmeye atanmıştır.
'Formülleri değere dönüştürme kodlarını sağlıyoruz.
'A4:II2870 arasını kopyalayıp yapıştırma yöntemi ile değerlere dönüştürmekteyiz.
    Application.ScreenUpdating = False
    Range("A4:I2870").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("AD7").Select
    Application.CutCopyMode = False
    Range("AD7").Select
    Application.ScreenUpdating = True
'Kayıt dosyasıı oluşturma kodları.
'C2 hücresine yazılan isim ile kayıt oluşturmasını sağlıyoruz.
'Oluşulan kayıt masaüstünde kayıt olmaktadır.
    Dim NomFichier As String
    NomFichier = Range("C2")
    Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
    ActiveWorkbook.saveas Path & NomFichier
'İSTENİLENLER:
'Sadece seçili olan sekme kayıt edilmelidir.
'Dosya kayıt edildikten sonra açılmamalı veya çalıştığımız dosyanın üzerine kayıt oluşturmamalıdır.
'Kayıt edilen dosya da ilk üç satır komple silinerek alınmalı (Hücre temizliği değil direkt olarak silinmesi).
'Yani, yeni dosya direkt olarak 4. satırdan başlamalı.
End Sub

 

[askm]

İşlemi bitirdikten sonra
Workbooks.open Path & NomFichier ile dosyayı tekrar açıp silmek istediğiniz alanları silerek tekrar kayıt yapın.
Yada örnek dosyanızı ekleyerek burdan yardım alabilirsiniz.