Macro to open file if not already in list

[shelbinb1532]

I have a macro that is designed to open files from a folder (Support Requests) and copy all the relevant data from each to a database file (zzMasterSupportDatabase).
It copies all the information needed onto the next empty row in the database.
Right now it is set to run for all files in Support Requests, and to list the file name in column A. I need to add in an If statement that stops the code from copying a file whose file name is already listed in column A.

 

[Fluff]

Filename needs to be a string.
Are the file names in column A of ThisWorkbook.Sheets("Database")

 

[shelbinb1532]

yes

 

[Fluff]

Apologies, made the wrong correction, that line should be

If WorksheetFunction.CountIf(SummarySheet.Columns(1), Left(FileName, InStr(FileName, ".") - 1)) = 0 Then

I'm off down the pub now, so I'll check back in tomorrow

 

[shelbinb1532]

Sorry, it's still not skipping existing files. I'm looking for other ways as well but have yet to find one. I'm also open to other solutions if any ideas come to mind.
Thanks for the help.

 

[Fluff]

Ok, having properly looked at the your code try

If WorksheetFunction.CountIf(SummarySheet.Columns(1), FileName) = 0 Then

 

[Fluff]

Ignore the above & use this

If WorksheetFunction.CountIf(SummarySheet.Columns(1), FileName) <> 0 Then Exit Do

 

[Fluff]

I'll get it right in the end (honest)
use

        If WorksheetFunction.CountIf(SummarySheet.Columns(1), FileName) = 0 Then

& then later in the code add the bit in red

WorkBk.Close savechanges:=False
        [COLOR=#ff0000]End If[/COLOR]
        ' Use Dir to get the next file name.
        FileName = Dir()
    Loop

 

[shelbinb1532]

I had to move the location of the If statement but that did it
Thanks so much. It seems to be working perfectly

 

[Fluff]

Glad to help & thanks for the feedback.