ThisWorkbook.Path & "\" altına makro ile a2 değeri ile klasör aç

[Orion1]

Orion2 teşekkürler, dosyalar = Dir(dosya) şeklindeki düzeltme çalıştı. Bu aşama güzel oldu. Şu şekilde ki bir düzeltme nasıl yapılabilir. İsmi aynı tanımla başlamayan birden fazla dosya var.

If Left(dosyalar, 4) = "KGID" Then

kısmını 4 ü 2, DATA'yı MT yaparak tekrar makroyu çalıştırdığımda makro kısır döngüye giriyor. Yani aynı katalog altında 1 den fazla ve başlangıç tanımları birbirinden farklı olan dosyalar olunca makronun revize ettiğimizde arzu ettiğimiz dosyanın aktarılması gerçekleşmiyor.

Aslında girmemesi gerekir.