hatanın sebebi yanılmıyorsam 

If UBound(txtDosyaAdi) <> 3 Then 'bu kısım eğer 4ten farklı sayıda isim varsa hatalı olduğunu varsayar

    HataSay = HataSay + 1

    StrHatalar = StrHatalar & vbCrLf & "Hatalı dosya ismi : " & xMyFile & " dosyası taşınamadı." 'taşınamayan dosya adı ve sayısı kayedilir

    GoTo 10 'dosya ismi hatalı olduğu için ara basamakları atlayıp sonraki dosyaya geçmeyi sağlar

End If

dosya isminde 3 tane "_" olacağını varsayarak eksik yada fazla olma durumunda hata vermesin diye dün eklediğim yerden kaynaklanıyor.

belgeler ne aralıkta geliyor,
yani aynı anda aynı kişiye ait aynı türden kaç belge _tarananlar klasöründe yer alıyor

kodun 25. mesajdaki kısmını aşağıdaki ile değiştirip dener misiniz

If UBound(txtDosyaAdi) < 3 Then 'bu kısım eğer 4ten az sayıda alan varsa hatalı olduğunu varsayar

    HataSay = HataSay + 1

    StrHatalar = StrHatalar & vbCrLf & "Hatalı dosya ismi : " & xMyFile & " dosyası taşınamadı." 'taşınamayan dosya adı ve sayısı kayedilir

    GoTo 10 'dosya ismi hatalı olduğu için ara basamakları atlayıp sonraki dosyaya geçmeyi sağlar

End If

(22/03/2019, 17:02)haliliyas yazdı: belgeler ne aralıkta geliyor,
yani aynı anda aynı kişiye ait aynı türden kaç belge _tarananlar klasöründe yer alıyor

Şöyle anlatıyım;

_Tarananlar klasörüne yaklaşık her ay 300 dosya gelecek. Bunlar, fatura, imza sirküleri, kdv, beyanname, ba bs vb. belgeler olacak.
Formatı da başından beri konuştuğumuz gibi; Müşteri Adı_Yıl_Ay_Belge Türü_Belgenin Sayısı şeklinde olacak.

ALI_2019_01_KDV     gibi...

Ama, bu müşteriye ait o klasöre o an; ALI_2019_01_KDV_001 002 003 004 005 006 ... 058 tane olabilir. Şu anda hepsini taşıyacağını biliyorum.

Taşırken o esnada siz de her bir dosyanın isminin sonuna _001 _002 _003 ekliyorsunuz. Daha sonra da, bu dosyaları tabloadaki alana link olarak ekliyoruz.

Peki, bir hafta sonra aynı müşteri için KDV türündeki belge için kaçıncı ismi vererek _Tarananlar klasörüne eklemem lazım. Bana göre son dosya; ALI_2019_01_KDV_058       Size göre  ise, ALI_2019_01_KDV_001_001  ALI_2019_01_KDV_002_001 olmayacak mı?

Bu durumda, yaptığım testlere göre;
ALI_2019_01_KDV.pdf yapmalıyım, her seferinde. Siz zaten + _001 arttırarak zaten rename edip taşıyorsunuz. Peki, siz taşınacak dosyadaki klasördeki son dosyanın ismindeki _001 mi, _059 da mı kaldığını nasıl biliyorsunuz. Çnkü ben yine _tarananlar klasörüne, ALI_2019_01_KDV.pdf diye bir dosya koyduğumda, taşımadan önce ALI_2019_01_KDV_060 olarak mı taşıma işlemini yapacaksınız?

(22/03/2019, 17:27)haliliyas yazdı: kodun 25. mesajdaki kısmını aşağıdaki ile değiştirip dener misiniz

If UBound(txtDosyaAdi) < 3 Then 'bu kısım eğer 4ten az sayıda alan varsa hatalı olduğunu varsayar

    HataSay = HataSay + 1

    StrHatalar = StrHatalar & vbCrLf & "Hatalı dosya ismi : " & xMyFile & " dosyası taşınamadı." 'taşınamayan dosya adı ve sayısı kayedilir

    GoTo 10 'dosya ismi hatalı olduğu için ara basamakları atlayıp sonraki dosyaya geçmeyi sağlar

End If

Denedim, tekrar düzeldi. Teşekkürler.

isimlendirme işini aşağıdaki kısım yapıyor

'_______________dosya var mı

n = 1

Do '

   DosyaAdi = Xhedef & xMyFile & "_" & Replace(Space$(3 - Len(n)), " ", "0") & n & ".pdf" 

    n = n + 1

Loop Until Dir(DosyaAdi) = ""

'_______________dosya var mı bitti

önce "dosya ismi" var mı diye kontrol ediyor, eğer isim var ise 1er 1er artırarak döngüyü sürdürüyor dolayısıyla aynı ismi asla vermiyor.
burada asıl sorun dosyaya sizin yapacağınız isimlendirme;
eğer _tarananlar klasöründe isim çakışması olmayacaksa aynıkişi_aynıyıl_aynıay_aynıTür sıralamasında tek dosya olacaksa sizin ayrıca isimlendirme yapmanıza gerek yok, ama dosyalar birikip de çakışma yaşanacaksa siz sadece "(1)" gibi rasgele bir isim verirsiniz, taşıma koduna yeni bir satır eklenip "(" ile başlayan kısım isimden çıkarılıp otomatik isimlendirmeyle devam edilebilir