How to Kill File With Different Location

[SunnyAlv]

Hi guys can u help with this problem

i just want to kill/Delete File with Loop but i get eror syntax

this my VBA Code :

Sub KILLEachFileWithDiffLocation()

Dim i As Integer

For i = 1 To Application.CountA(Range("I:I"))

ActiveSheet.UsedRange.AutoFilter 9, Range("I" & i).Value


Kill i


Next i


MsgBox "Done"

End Sub

Column I fill with File Location

Thanks

 

[Georgiboy]

Why do you have a filter line in the code?
Do all of the files 100% exist or could some be missing?
Which line do you get the error on?

 

[SunnyAlv]

Why do you have a filter line in the code?
Do all of the files 100% exist or could some be missing?
Which line do you get the error on?

thanks for the feed back, i found what i want (CASE CLOSED)

Why do I use filters in VBA?

because when the code runs it will filter the existing values, so I know that when it errors, the filter will stop at one location, and I know that that location has a problem

 

[Georgiboy]

That's good news, could you share here what you found as it may help others that stumble upon your post here in the future?

 

[SunnyAlv]

That's good news, could you share here what you found as it may help others that stumble upon your post here in the future?

yea no problem, it's actually a very simple code to display

I filtered column i and copied it to column "J2", and killed "J2", and repeated it until it finished / error

Sub KILLEachFileWithDiffLocation()
  Dim i As Integer

  For i = 1 To Application.CountA(Range("I:I"))
    ActiveSheet.UsedRange.AutoFilter 9, Range("I" & i).Value
    Range("I" & i).Copy Range("J2")
    Kill Range("J2").Value
  Next i
  MsgBox "Done"
End Sub

 

[Peter_SSs]

@SunnyAlv
When posting vba code in the forum, please use the available Code tags (not Quote tags). It makes your code much easier to read/debug & copy. My signature block below has more details. I have added the tags for you in post #5 this time.