Bul ve Değiştir ( Ctrl+H )

[1Al2Ver]

Merhaba,

Hücrelerde kayıtlı , (A2:A100)

C:\Documents and Settings\1Al2Ver\Belgelerim\Resimlerim\ Yemekler \aşure.jpg

C:\Documents and Settings\1Al2Ver\Belgelerim\Resimlerim\ Yemekler \lahana.jpg

C:\Documents and Settings\1Al2Ver\Belgelerim\Resimlerim\ Yemekler \mantı.jpg

gibi 100'e yakın satırı, sonundaki yemek adını ( aşure.jpg gibi ) sabit bırakarak

C:\User\Mypc\Belgelerim\Yemekler\... şeklinde nasıl düzenleyebilirim?

Düzenleme sonrası olması gereken şekli aşağıdaki gibi olmalı,

C:\User\Mypc\Belgelerim\Yemekler\aşure.jpg

C:\User\Mypc\Belgelerim\Yemekler\lahana.jpg

C:\User\Mypc\Belgelerim\Yemekler\mantı.jpg

Bu işlemi nasıl gerçekleştirebilirim ?

Teşekkür ederim

 

[uzmanamele]

merhaba

bu işinizi görür mü?

=YERİNEKOY(A1;"C:\Documents and Settings\1Al2Ver\Belgelerim\Resimlerim\Yemekler\";"C:\User\Mypc\Belgelerim\Yemekler\")

 

[1Al2Ver]

merhaba

bu işinizi görür mü?

Sayın uzmanamele, merhaba

Kırmızı slashları kaldırdım ve sorunum halloldu, ilginiz ve çözüm için teşekkür ederim.

=YERİNEKOY(A1;"C:\Documents and Settings\1Al2Ver\Belgelerim\Resimlerim \Yemekler\"; "C:\User\Mypc\Belgelerim\Yemekler\")

 

[halit3]

bunu yaptık başka bir soruda

Sub Makro1()
Dim DosyaSistemi
Set DosyaSistemi = CreateObject("Scripting.FileSystemObject")
kopyalanacak = "C:\Documents and Settings\1Al2Ver\Belgelerim\Resimlerim\ Yemekler \"
kapya_yeri = "C:\User\Mypc\Belgelerim\Yemekler"
On Error Resume Next
If Dir(kapya_yeri) = "" Then MkDir kapya_yeri
For i = 2 To WorksheetFunction.CountA(Worksheets(ActiveSheet.Name).Range("A2:A65000")) + 2
değer = Worksheets(ActiveSheet.Name).Cells(i, 1).Value & ".jpg"
If Worksheets(ActiveSheet.Name).Cells(i, 1).Value <> "" Then
On Error Resume Next
DosyaSistemi.CopyFile kopyalanacak & değer, kapya_yeri & "\" & değer
End If
Next i
End Sub

 

[1Al2Ver]

Sayın uzmanamele, merhaba

Kırmızı slashları kaldırdım ve sorunum halloldu, ilginiz ve çözüm için teşekkür ederim.

=YERİNEKOY(A1;"C:\Documents and Settings\1Al2Ver\Belgelerim\Resimlerim \Yemekler\"; "C:\User\Mypc\Belgelerim\Yemekler\")

Pardon, dikkatimden kaçmış, bu durumda da C:\User\Mypc\Belgelerim\Yemekler \aşure.jpg 'de boşluk bırakıyor,

Boşluk olduğunda bu hücreden veri alan kod doğal olarak çalışmıyor,

Belki başka bir çözüm olabilir,

Teşekkür ederim.

 

[uzmanamele]

Pardon, dikkatimden kaçmış, bu durumda da C:\User\Mypc\Belgelerim\Yemekler \aşure.jpg 'de boşluk bırakıyor,

Boşluk olduğunda bu hücreden veri alan kod doğal olarak çalışmıyor,

Belki başka bir çözüm olabilir,

Teşekkür ederim.

merhaba
eski dosya yolunda boşluk olmasının sebebi sizin dosya adının solunda ve sağında boşluk olmasından kaynaklanıyordur.
dosya yolunu yazarken son \ işaretinden önce ne varsa onu yazmalısınız.

=YERİNEKOY(A1;"C:\Documents and Settings\1Al2Ver\Belgelerim\Resimlerim\ Yemekler \"; "C:\User\Mypc\Belgelerim\Yemekler\")

 

[1Al2Ver]

merhaba
eski dosya yolunda boşluk olmasının sebebi sizin dosya adının solunda ve sağında boşluk olmasından kaynaklanıyordur.
dosya yolunu yazarken son \ işaretinden önce ne varsa onu yazmalısınız.

Sayın uzmanamele, tekrar merhaba,

Evet haklısınız tecrübe bu olsa gerek, çok teşekkür ederim.

Saygılarımla.