Resim isminin değişmesi nasıl olur

[mest3651]

Arkadaşlar elimde bi veri dosyası var. veri dosyasında adayın ismi ve soyismi mevcut. aynı zamanda masaüstünde klasörde kendi ismiyle resmi var. benim yapmak istediğim veriyi girdiğimde masaüstündeki resmin isminin kurs nosuyla otomatik değişmesi. ekteki dosyada adayın kurs nosu 1960 resminde isminin 1960 olarak değişmesini istiyorum. şimdiden herkese çok teşekkür ederim. uğraştım işin içinden çıkamadım.

 

[halit3]

5 adet buna benzer konu açmışsınız anladığım kadarı ile resimlerin adlarını değiştirmek istiyorsunuz.

Ekli dosyada değiştireceğin dosyalara ait klasörü userformdan Değiştirilecek dosyaların klasörünü bul düğmesi ile bulacaksınız liste kutusuna ve A sutununa resim adlarını getiriyor siz bu resimleri hangi ad ile değiştirecekseniz B sutünuna elle adlarını yazınız
Sayfadaki dosyaların adlarını değiştir düğmesine tıklıyarak hedef klasörü seçiniz.

 

[excel03]

merhaba;

sayfa alanına;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Local Error GoTo 10
Static x
If Target = [c2] Then
x = [c2]
End If
isimDegistir (x)
10:
End Sub

modül alanına;

Sub isimDegistir(x)
On Local Error GoTo 10
If x = Empty Then Exit Sub
Const FILEPATH As String = "d:\belgelerim\desktop\"  ' < Buraya resim dosyalarının yolunu yazınız.
x2 = [c2]
If x <> x2 Then
Name FILEPATH & x & ".JPG" As FILEPATH & x2 & ".JPG"
MsgBox "Dosya ismi " & x2 & ".JPG olarak değişti."
End If
10:
End Sub

 

[mest3651]

Resim isminin değişmesi

ilgilendiğiniz için çok teşekkür ederim. kod kısmını yazdım ama bi yerde hata yapıyorum herhalde.

Sub isimDegistir(x)
On Local Error GoTo 10
If x = Empty Then Exit Sub
Const FILEPATH As String = "C:\Documents and Settings\Administrator\Desktop" '<RSM
x2 = [c2]
If x <> x2 Then
Name FILEPATH & x & ".JPG" As FILEPATH & x2 & ".JPG"
MsgBox "RSM " & x2 & ".JPG olarak değişti."
End If
10:
End Sub

resimler RSM klasörünün içinde

 

[excel03]

merhaba;

...
kod kısmında dosyanın adı kısmına kullandığım dosya isminimi yazmam gerekiyor.

Sub isimDegistir(x)
On Local Error GoTo 10
If x = Empty Then Exit Sub
Const FILEPATH As String = "C:\Documents and Settings\Administrator\Desktop\RSM\" '<RSM
x2 = [c2]
If x <> x2 Then
Name FILEPATH & x & ".JPG" As FILEPATH & x2 & ".JPG"
MsgBox x & "dosyasının adı " & x2 & ".JPG olarak değişti."
End If
10:
End Sub

 

[mest3651]

excel03 çok teşekkkür ediyorum. bi sorum daha olacak bi yede yanlış yapıyorum ama nerde bulamadım. kod kısmında dosyanın adı kısmına kullandığım dosya isminimi yazmam gerekiyor.

 

[excel03]

excel03 çok teşekkkür ediyorum. bi sorum daha olacak bi yede yanlış yapıyorum ama nerde bulamadım. kod kısmında dosyanın adı kısmına kullandığım dosya isminimi yazmam gerekiyor.

#5 nolu mesaj düzenlendi.