Çözüldü Klasör İçinde xla dosyası varsa başka yere taşıma

Merhaba, aşağıdaki kod Belirtilen Klasör içerisindeki dosyalar içerisinde "xla" uzantılı dosyaları bulup, yine belirtilen klasör içerisine taşır.
HTML:

Sayın Çaylak Çok teşekkür ederim. Tam istediğim gibi olmuş, sadece taşınacak dosyaadı standart "ALLIANCEBK.xla" bu isimdeki dosyayı taşısın. ancak temizlerken uzantısı .xla olanları temizlesin istiyorum. çünkü kopya uzantılı dosyalarda oluşabiir ben hepsini taşımak istemiyorum. sadece ALLIANCEBK.xla dosyasını taşımak istiyorum

Merhaba;

Kodun son hali aşağıdaki gibidir.
bir sorun daha farkettim, eğer O:\ORTAK\DENEME klasörü içerisinde aynı dosya varsa hata veriyor. üzerine yazdırımak istiyorum

HTML:

Merhabalar, Kodunuzu şu şekilde değiştirip dener misiniz?
HTML:

Merhaba;

satırda hata veriyor
Kill Dosya.Name

Sayın çaylak;
Dosya adı büyük harf olduğu için hata vermiş düzeldi.
sadece tek sorun kaldı..
AllianceBK (1) dosyası veya (2) .... 3 şeklinde dosya varsa hata veriyor.

İlgili yerde AllianceBK.xla dosyası varsa işlem yapacak, yoksa işlem yapmayacak. AllianceBK (1) ve farklı xla dosyaları varsa işlem yapmayacak

Kodun son hali
Sub Taşı()
kullanıcı = Environ("USERNAME")
Dim ds, dc, f, Yol, TaşınacakKlasor
Yol = "C:\Users\" & kullanıcı & "\Downloads" 'Bunu kendi klasörünüze göre değiştirin
TaşınacakKlasor = "O:\ORTAK\DENEME" 'Bunu kendi klasörünze göre değiştirin
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder(Yol)
Set dc = f.Files
For Each Dosya In dc
If Dosya.Name = "AllianceBK.xla" Then
If Dir(TaşınacakKlasor & "\" & Dosya.Name) <> "" Then
Kill TaşınacakKlasor & "\" & Dosya.Name
End If
ds.moveFile Source:=Dosya, Destination:=TaşınacakKlasor & "\" & Dosya.Name
ElseIf Dosya.Name <> "AllianceBK.xla" And Right(Dosya.Name, 3) = "xla" Then
Kill Dosya.Name 'Farklı isimde örneğin AllianceBK kopya1 olduğunda hata veriyor
End If
Next
End Sub

Sayın çaylak;
Dosyanın En son hali aşağıdaki gibidir.
Sadece Taşıma işlemini yaptıktan sonra
"C:\Users\" & kullanıcı & "\Downloads" adresinde uzantısı ".xla" olan tüm dosyaların silinmesini sağlayabilirsek sevinirim.

Sub Taşı()
kullanıcı = Environ("USERNAME")
Dim ds, dc, f, Yol, TaşınacakKlasor
Yol = "C:\Users\" & kullanıcı & "\Downloads" 'Bunu kendi klasörünüze göre değiştirin
TaşınacakKlasor = "O:\ORTAK\DENEME" 'Bunu kendi klasörünze göre değiştirin
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder(Yol)
Set dc = f.Files
For Each Dosya In dc
If Dosya.Name = "AllianceBK.xla" Then
If Dir(TaşınacakKlasor & "\" & Dosya.Name) <> "" Then
Kill TaşınacakKlasor & "\" & Dosya.Name
End If
ds.moveFile Source:=Dosya, Destination:=TaşınacakKlasor & "\" & Dosya.Name
ElseIf Dosya.Name <> "AllianceBK.xla" And Right(Dosya.Name, 3) = "AllianceBK.xla" Then
Kill Dosya.Name
End If
Next
End Sub

Genişletmek için tıkla...

Merhaba,
Anladığımı yazıyorum;
Eğer Kaynak klasör içerisinde AllianceBK.xla dosyası varsa
Hedef Klasörün içerisine bakılacak, hedef klasörde AllianceBK.xla dosyası önceden var ise o dosya silinerek Kaynak klasördeki AllianceBK.xla dosyası Hedef klasöre taşınacak. Taşıma işlemi yapıldıysa Kaynak klasör içerisindeki tüm .xla uzantılı dosyalar silinecek. Yok eğer taşıma işlemi yapılmadıysa, yani Kaynak klasör içerisinde AllianceBK.xla dosyası yoksa o zaman hiçbir işlem yapmadan program sonlandırılacak.
Eğer bu yazdıklarım doğruysa aşağıdaki kodu bir dener misiniz?

HTML:

Aşağıdaki hatayı verdi..

HTML:

Malesef
"C:\Users\" & kullanıcı & "\Downloads" altındaki xla dosyalarını silmiyor.

Sayın Çaylak;

Şimdi istediğim gibi oldu. Allah sizden razı olsun. Elinize emeğinize sağlık