Dosya Taşıma

[Tevfik_Kursun]

Muhterem Arkadaşlarım,
Adları B13 ten itibaren yazılı olan PDF dosyalar bu excel dosyanın bulunduğu klasördedir. Bu dosyaları, aynı klasör içinde hazır bulunan ve adı C1 hücresinde yazılı olan klasörün içine makro ile nasıl taşırım.
Saygılarımla

 

[askm]

Sub askm()
Dim ds, f
Set ds = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For i = 12 To Range("B65536").End(3).Row
    belge = ThisWorkbook.Path & "\" & Cells(i, 2) & ".pdf"
    ykonum = ThisWorkbook.Path & "\" & Range("C1") & "\"
    If Dir(ykonum) <> "" Then
    Else
        MkDir ykonum
    End If
        f = ds.MoveFile(belge, ykonum)
Next
MsgBox "İşlem tamam...", vbInformation, "ASKM"
End Sub

 

[Tevfik_Kursun]

Sayın ASKM,
Çok teşekkür ederim.
Saygılarımla