Dosya Boşluklarına Değer Verme

[ozgurpeh]

Arkadaşlar Merhaba,

Forumda birkaç örneği var fakat ben istediğim gibi çalışanı bulamadım. Benim C:\Dosya klasörünün içinde birde fazla dosya var ve hepsinin isimlerinde boşluklar var Örnek
238044065 ahmet karal.pdf ben dosya üzerinde bu isimleri boşluksuz hale getirmek istiyorum.

A Sütununa bu dosya adlarını yazacağım
B Sütununa olmasını istediğim adları yazacağım ve yaklaşık 5000 dosyayı tek tick ile güncellemek istiyorum.

Forumdaki örnekler boşlukları malesef dikkate almıyor. Desteğinizi rica ederim.

 

[ozgurpeh]

Arkadaşlar konu gerçekten çok acil rica etsem destek olurmusunuz

 

[ÖmerBey]

Merhaba,
Sadece boşlukları mı yok edeceksiniz, yoksa dosyaların isimlerini tümüyle mi değiştireceksiniz.

 

[ozgurpeh]

Merhaba,
Sadece boşlukları mı yok edeceksiniz, yoksa dosyaların isimlerini tümüyle mi değiştireceksiniz.

Ve Ömer bey sahnede tümüyle değişeceğim aslında

 

[ÖmerBey]

Aşağıdaki kodu deneyiniz.

Sub Kod()
yol = "C:\Dosya\"
For a = 1 To Cells(Rows.Count, 1).End(3).Row
    eski = Cells(a, 1)
    yeni = Cells(a, 2)
    kntrl = Dir(yol & eski)
    If kntrl = "" Then
        Cells(a, 3) = "Dosya bulunamadı"
    Else
        Name yol & eski As yol & yeni
    End If
Next
End Sub

Eğer A ve B sütunlarındaki isimlerde dosya uzantısı yoksa ilgili alanı aşağıdaki gibi düzenleyiniz.

eski = Cells(a, 1) & ".pdf"
yeni = Cells(a, 2) & ".pdf"

 

[bjkliislam]

Formülle ekteki şekilde deneyebilirsiniz.

=SOLDAN(A1;BUL(" ";A1)-1) (Dosya Numaralarını Almak için) (ilk boşluktan öncesini alır)
=SAĞDAN(A1;UZUNLUK(A1)-MBUL(" ";A1)) (isim soy isim birlikte almak için) (ilk boşluktan sonrasını tamamen alır)

isim ve soyismi de ayırmak isterseniz 2. kodu tekrar kullanarak yapabilirsiniz. Formüldeki hücreleri isim soyisim bulunan hücreye hedef alarak sadece soy isimler gelecektir.

selamlar.

 

[bjkliislam]

Formülle ekteki şekilde deneyebilirsiniz.

=SOLDAN(A1;BUL(" ";A1)-1) (Dosya Numaralarını Almak için) (ilk boşluktan öncesini alır)
=SAĞDAN(A1;UZUNLUK(A1)-MBUL(" ";A1)) (isim soy isim birlikte almak için) (ilk boşluktan sonrasını tamamen alır)

isim ve soyismi de ayırmak isterseniz 2. kodu tekrar kullanarak yapabilirsiniz. Formüldeki hücreleri isim soyisim bulunan hücreye hedef alarak sadece soy isimler gelecektir.

selamlar.

Ben konuyu yanlış algılamışım. Tekrar dikkatli okuyunca farklı şeylerden bahsedildiğini anladım. Kusura bakmayın.

 

[ozgurpeh]

Aşağıdaki kodu deneyiniz.

Sub Kod()
yol = "C:\Dosya\"
For a = 1 To Cells(Rows.Count, 1).End(3).Row
    eski = Cells(a, 1)
    yeni = Cells(a, 2)
    kntrl = Dir(yol & eski)
    If kntrl = "" Then
        Cells(a, 3) = "Dosya bulunamadı"
    Else
        Name yol & eski As yol & yeni
    End If
Next
End Sub

Eğer A ve B sütunlarındaki isimlerde dosya uzantısı yoksa ilgili alanı aşağıdaki gibi düzenleyiniz.

eski = Cells(a, 1) & ".pdf"
yeni = Cells(a, 2) & ".pdf"

büyük bölümünü buldu fakat var olan birçok dosyayı bulamıyor

 

[ÖmerBey]

Bu gibi durumlarda örnek verirseniz daha net konuşulabilir. Mesela hücrede tam olarak ne yazıyor ve dosyanın tam adı nedir?
Bu gibi bilgileri siz biliyorsunuz ama karşınızdaki bilmiyor...
Tahminler üzerinden yardımcı olmak çok kolay olmuyor.

 

[ozgurpeh]

Bu gibi durumlarda örnek verirseniz daha net konuşulabilir. Mesela hücrede tam olarak ne yazıyor ve dosyanın tam adı nedir?
Bu gibi bilgileri siz biliyorsunuz ama karşınızdaki bilmiyor...
Tahminler üzerinden yardımcı olmak çok kolay olmuyor.

ben dosya uzantısının farklı olacağını düşünüyorum pdf görünüyor ama anlamadığım bir durum var

 

[ÖmerBey]

ben dosya uzantısının farklı olacağını düşünüyorum pdf görünüyor ama anlamadığım bir durum var

Bir de benim açımdan düşünün, dosyayı görmüyorum bile...