Silmek istediğim dosyanın yoluna hücre de ki değer ile birleştirmme

[KAIZEN1]

Merhabalar,

Excel A1 hücresine klasör içinde ki excel dosyalarını listeledim
örneğin:
ADA İNŞAAT SUSURLUK 17-082.xls
Eğer c sutünun da var yazıyor ise es geçsin eğer boş ise klasörden silmesini istiyorum
örneğin
Sub deneme ()
satır = Range("c1"). end(xldown).row
for i = 1 to satır
if range("c"& i) = "" then
Kill "C:\Users\Murat\Desktop\Yeni klasör\Range("A" & i)"
end sub

Yola hücreyi bağladığım zaman hata alıyorum yani olmuyor yardımcı olmanızı dilerim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

"C:\Users\Murat\Desktop\Yeni klasör\" & Range("A" & i)

Ayrıca kodlara;

End Sub satırından önce End If satırını ilave etmeniz gerekir. Şartı açıp kapatmamışsınız.

.

 

[KAIZEN1]

Teşekkürler işime yaradı peki aynı zaman da satırdan da kaldırmak istiyorum.

Nasıl yapabilirim.

 

[KAIZEN1]

Ömer Bey,

Satır boş ise birde satırdan da silmek istediğimde file not found hatası alıyorum yardımınızı rica ederim

Sub deneme()
satır = Range("a1").End(xlDown).Row
For i = 1 To satır
If Range("c" & i) = "" Then
Kill "C:\Users\Murat\Desktop\Yeni klasör\" & Range("A" & i)
End If


If Range("c" & i) = "" Then
Range("a" & i).EntireRow.Delete
End If

Next i

End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sub deneme()
satır = Range("a1").End(xlDown).Row
For i = satır To 1 Step - 1
If Range("c" & i) = "" Then
Kill "C:\Users\Murat\Desktop\Yeni klasör\" & Range("A" & i)
Range("a" & i).EntireRow.Delete
End If
Next i
End Sub

 

[KAIZEN1]

Günaydın Korhan Bey,

İlginiz ve yardımınız için çok teşekkür ederim, denemedim mükemmel oldu ellerinize sağlık.