Pdf dosyaları belirtilen klasörlere aktarma

[orhanarslann]

Merhabalar,

Ekteki excelde gösterdiğim şekilde A sütununda bazı pdf dosyalara ait uzantılar bulunmakta.B sütununda ise bu pdf dosyalardan sorumlu olan kişiler yer almakta.

Masa üstündeki bu klasöre dosyalardan sorumlu olan kişilere ait alt klasör açtım ve A sütunundaki dosyaları ilgililerinin klasörüne aktarmak istiyorum.
Yardımcı olursanız sevinirim.

 

[mancubus]

dosyaların yedeklerini aldıktan sonra deneyiniz.

Sub xlTR_174296()

    Dim i As Long
    Dim anaKlasor As String, klasor  As String, dosya As String
    
    anaKlasor = "C:\Users\user12\Desktop\Klasör\"

    Worksheets("Sayfa1").Select
    
    With CreateObject("Scripting.FileSystemObject")
        For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
            klasor = anaKlasor & Cells(i, 2) & "\"
            dosya = .GetFileName(Cells(i, 1))
            .CopyFile Cells(i, 1), klasor & dosya 'kopyalamak
            '.MoveFile .Cells(i, 1), klasor & dosya 'taşımak
        Next i
    End With

End Sub

 

[orhanarslann]

@mancubus çok teşekkür ederim ellerine sağlık üstadım

 

[mancubus]

rica ederim.
kolay gelsin.

 

[tahsinanarat]

Sn. mancubus hocam; Klasördeki pdf dosya isimlerinin ilk 11 karaktere kadar (tc) kısmı taşımak istersek, kodda nasıl bir değişiklik yapmalıyız.

 

[tahsinanarat]

2 Nolu mesajınızdaki kodları denedim, copyalama yapıyor ancak taşımayı yaptıramadım Sn.mancubus hocam

 

[mancubus]

.MoveFile'ın başındaki tırnak işaretini silip .Copyfile'ın başına ekledik mi?