• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Klasördeki excel dosyalarını şablonla farklı kaydetme.

  • Konbuyu başlatan Konbuyu başlatan yNsr43
  • Başlangıç tarihi Başlangıç tarihi
kodu koymayi unutmuşum. :)

Kod:
Sub Genel()
    Range("A2") = ActiveSheet.Name
    
    ActiveSheet.Name = "Genel"
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="C:\Users\Genel.xlsx", FileFormat:= _
        xlOpenXMLWorkbook, CreateBackup:=False
        Application.DisplayAlerts = False
ActiveWorkbook.Close
End Sub
 
tekrar selamlar, bunu klasördeki excellere nasıl uyarlayabiliriz ?

teşekkürler.
 
Geri
Üst