Soru "P" Sütunundaki İsimleri Dosya Olarak Çoğaltmak

[bulentkars]

Merhaba,
Çalıştır Düğmesini tıkladığımda, C:\Şahin\Anadosya\Guncel.xlsb Dosyasını "P" Sütünunda isimler ile C:\Şahin\Databese\ Klaösörü altına çoğaltmak istiyorum.
Örnek Dosya Ektedir.
Yardımcı Olabililirseniz Sevinirim.
Şİmdiden Teşekkürler

 

[dEdE]

Merhaba,
Aşağıdaki kodu örnek dosya üzerinde dener misiniz?

Sub Dosya_Cogalt()
'Kodun anlaşılır olması için değişkenler uzun sözcüklerle yazıldı. İsterseniz kısaltabilirsiniz.
    Dim FSO As Object
    Dim KaynakDosya As String
    Dim HedefKlasör As String
    Dim DosyaAdi As String
Set FSO = CreateObject("Scripting.FileSystemObject")
    
    SonSatir = Cells(Rows.Count, "P").End(xlUp).Row
    KaynakDosya = "C:\Şahin\Anadosya\Guncel.xlsb"
    HedefKlasör = "C:\Şahin\Databese\"
    
For i = 2 To SonSatir
    DosyaAdi = Cells(i, 16).Value & ".xlsb"
    FSO.CopyFile Source:=KaynakDosya, Destination:=HedefKlasör & "\" & DosyaAdi
Next i
End Sub

 

[bulentkars]

Sayın Dede;

Çok teşekkürler emeğinize sağlık..