Makro ile dosya kopyalama

[dedenet]

Elimde hazırladığım bir dosya var.
Bu dosyayı Sayfa1'de yazılı olan adlarda kopyalamak ve çoğaltmak istiyorum.
Nasıl ir kod yazmalıyım

 

[Ömer]

Merhaba,

Deneyiniz.

Sub kaydet()
    
    Dim i As Long, yol As String, dosya As String
    
    yol = ThisWorkbook.Path & "\"
    
    Application.DisplayAlerts = False
    
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    
        dosya = yol & Cells(i, "A") & ".xlsm"
        
        ActiveWorkbook.SaveCopyAs Filename:=dosya
        
    Next i
    
End Sub

 

[dedenet]

TEŞEKKÜRLER