Hücrede yazan isme göre klasörden dosya silme

[alooo]

Arkadaşlar,

a1 hücre değeri ne ise (örneğin deneme) (veri doğrulama ile belirleneceğinden mutlak suretle dosya mevcut olacaktır.) bu dosyayı C:\Muhasebe\Hesap\Arsiv\ klasörü içine kopyalayacak ve C:\Muhasebe\Hesap\deneme.xlsm dosyasını silecek bir makro arıyorum.

benzer makrolar var kill komutlu lakin, hücre tanımlamasını bir türlü yapamadım yardımcı olur musunuz?

 

[netcini]

Bu kod işinizi görür sanırım.
A1 hücresindeki veriyle uyuşan C:\Muhasebe\Hesap\ klasörünün altındaki dosyayı, C:\Muhasebe\Hesap\Arsiv\ klasörüne taşır.

Sub tasi()
Dim fso, kdosya, hdosya
Set fso = CreateObject("Scripting.FileSystemObject")
kdosya = "C:\Muhasebe\Hesap\" & Cells(1, 1) & ".xlsm"
hdosya = "C:\Muhasebe\Hesap\Arsiv\" & Cells(1, 1) & ".xlsm"
fso.MoveFile kdosya, hdosya
End Sub

 

[alooo]

eyvallah üstadım sağolasın. Bir de taşımadan sadece silecek kodu yazabilirsen çok sevinirim.

 

[alooo]

Dim fso, kdosya, hdosya
Set fso = CreateObject("Scripting.FileSystemObject")
kdosya = "C:\Muhasebe\Hesap\" & Cells(2, 2) & ".xlsm"
Kill kdosya

kodu ile çözdüm üstadım sağolasın.

konu kilitlenebilir...

 

[netcini]

Riza ederim.
İşinize yaradığına sevindim.

Taşıma işlemi yapılınca kaynak klasördeki dosya silindiği için. Böyle bir çözüm önermiştim.