exceldeki listeden fotoğraf adlandırma

[abinkays]

arkadaşlar elimdeki mevcut excel listesinden resimler klasöründeki fotoğrafları yeniden adlandırabilir miyim? yani her resmin ait olduğu bir isim var ve bu isimleri excelde hücre içinden kopyalayıp klasördeki resimleri yeniden adlandırıyorum ve 1500 fotoğraf var bu şekilde adlandırılacak kolay yolu olabilir mi acaba

 

[abinkays]

birçok benzer konuya baktım ama bulamadım. bu geçen zaman içerisinde araştırmalar yapma imkanım oldu fakat sonuca ulaşamadım yardımlarınızı bekliyorum

 

[Emir Hüseyin Çoban]

. . .

Yaklaşık 1 yol sonra aynı konuyu araştırdığınıza göre pekte acil değil sanırım.
Ekteki dosyayı inceleyiniz.
Dosya dizini şu şekilde olmalı.
Resimler excelin bulunduğu klasör altında Resimler isimli klasör adı altında olmalı.
Ekteki çalışma klasörü dizini gibi.

. . .

 

[abinkays]

. . .

Yaklaşık 1 yol sonra aynı konuyu araştırdığınıza göre pekte acil değil sanırım.
Ekteki dosyayı inceleyiniz.
Dosya dizini şu şekilde olmalı.
Resimler excelin bulunduğu klasör altında Resimler isimli klasör adı altında olmalı.
Ekteki çalışma klasörü dizini gibi.

. . .

gerçekten çok teşekkür ederim Allah razı olsun beni çok büyük bir yükten kurtardınız Allah C.C. da sizin sıkıntılarınızı gidersin inşaallah

 

[mustafa1205]

Hüseyin Hocam bana da zaman zaman lazım olan bir konuydu. Çok teşekkür ederim.

 

[Emir Hüseyin Çoban]

Hüseyin Hocam bana da zaman zaman lazım olan bir konuydu. Çok teşekkür ederim.

. . .

Dikkat ediniz Yeni isimleri .JPG formatında değiştirir.

. . .

 

[mustafa1205]

İkazınız için teşekkürler. Gerçekten dikkatimden kaçmıştı. Çok sağolun

 

[Emir Hüseyin Çoban]

. . .

Şu şekilde olabilir.
C sütununa yeni dosya isminin formatını yazabilirsiniz.
.png

Kodlarda şu şekilde olmalı

Sub kod_değiştir()
Dim i As Long, say As Long
yol = ThisWorkbook.Path & "\Resimler\"

If MsgBox(yol & " klasörü içersindeki dosyaların isimleirini değiştirmek istiyormusunuz ?", _
vbYesNo + vbQuestion) = vbNo Then Exit Sub
For i = 1 To [A65536].End(3).Row
If Cells(i, "B") <> "" Then
If Dir(yol & Cells(i, "A").Value) <> "" Then
 Name (yol & Cells(i, "A").Value) As (yol & Cells(i, "B").Value & [COLOR="Red"][B]Cells(i, "C").Value[/B][/COLOR])
        say = say + 1
    End If
Else: End If
    
Next i
MsgBox say & " dosya isimi değiştirildi.."
say = Empty
End Sub

. . .

 

[Sewimce]

. . .

Yaklaşık 1 yol sonra aynı konuyu araştırdığınıza göre pekte acil değil sanırım.
Ekteki dosyayı inceleyiniz.
Dosya dizini şu şekilde olmalı.
Resimler excelin bulunduğu klasör altında Resimler isimli klasör adı altında olmalı.
Ekteki çalışma klasörü dizini gibi.

. . .

Ekteki dosyay tıkladım fakat ücretli üyelik istiyor download için . Link hala aktifmi ? ona göre üye olucam boşuna üye olmak istemiyorum Bu uygulama bana çok lazım. Teşekkürler.