Excel listesine göre klasör belgesi isim değiştirmek

[igultekin2000]

Merhaba;
GIP üzerinden indirdiğimiz e-arşiv faturaları .html şeklinde indiriyorum ve excel sayfasına listeliyorum. R sütununda bulunan isimler, masaüstündeki GIB klasöründeki .html dosalarının ismini gösteriyor. Excel çalışma sayfasının C sütununda ise bu numaraya karşılık fatura numarası bulunuyor. Excel çalışma sayfasına makro ekleyerek R sütunun sırasında C sütunun fatura numarasını GIB klasöründe bulunan R sütunu ismindeki dosyaların ismini değiştirmek istiyorum.
Klasör içindeki isim aynı sadece sonunda " _f " eki vardır. Ve klasörün içindeki dosyanın uzantısı ise .html şeklindedir. Teşekkür ederim.

R sütunu 2.satır ismi e02a877a-c0ab-4dcd-bece-edf3fed78a42 C sütunu 2.satır ismi GIB2021000000137 GIB KLASÖR içindeki dosyanın ismi uzantısı .html e02a877a-c0ab-4dcd-bece-edf3fed78a42_f

 

[veyselemre]

Sub test()
    pth = Environ("userprofile") & "\desktop\GİB\"
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        fName = pth & Cells(i, "R").Value & "_f.html"
        If Dir(fName) <> "" Then
            newName = pth & Cells(i, "C").Value & ".html"
            Name fName As newName
        End If
    Next i
End Sub

 

[igultekin2000]

Sub test()
    pth = Environ("userprofile") & "\desktop\GİB\"
    For i = 2 To Cells(Rows.Count, 1).End(3).Row
        fName = pth & Cells(i, "R").Value & "_f.html"
        If Dir(fName) <> "" Then
            newName = pth & Cells(i, "C").Value & ".html"
            Name fName As newName
        End If
    Next i
End Sub

Teşekkür ederim, elinize sağlık, pratik ve sorunsuz olmuş.