If you get it working, let me know if it works for you, and I can add in the other bits to finish it.Īctually, it is E79 (I didn't have the exact files yet).
And I didn't parse out if it equaled "NO", but it will show you which books have "NO" in that cell. For the most part it's copy and paste, or I can get you a sample workbook already done.Īdding a line for a shortcut shouldn't be too difficult either. Rusty, your original post had E12 as the cell, not A12, but that can be changed in the Range section. I will try this out tomorrow to see if I can figure it out. The value of NO will always be in the same cell.
PM me if you'd like further help on setting this up. Let me know if you need that added in, or if you like the summary results. This can be further be narrowed down to not return any results if the value is not "NO". This way, you can see what the value is in each book and exactly which book contains the value you're looking for. This is set to look in each file it comes across in your sPath location and place the workbook name in column A, and the value in Column B. Make sure you include the "\" at the end of the file path. Also the file extension depending on what version your using. Ok, the sPath line you change that path to the folder location of your files. Rw = 2 ' which row to write to in the activesheet Set sh = ActiveSheet ' I will record the value and workbook name
(SW really needs a code block insert) Spice up the feature request here Make a button to the right of Column D, and link it to this macro.īelow this code, I'll tell you which parts you need to change to work in your situation. It will be your "Report" sheet, the name of it isn't important. Ok, the code below needs to be placed in a Macro-enabled workbook. Surprisingly faster than I thought for a flippin' Monday lol. I don't see where in your script it specifies the search terms
But I basically would want to check every single file within a single directory. They don't have any particular order in the naming convention unfortunately. Set FindText=(SearchString, LookIn:=xlValues, LookAt:=xlWhole) WBLoop=WorkBooks.Open FilePath & CurrFile Maybe something along these lines - you will have to modify to look in the exact E12 cell:Ĭonst FilePath="C:\Temp\" 'Your folder name goes here - you must include the final slashĬonst FileMask="*.xl*" 'Adjust as appropriateĬonst SearchString = "TextToFind" 'Again, adjust this to suit You could use a VB Script to open the files and then do a lookup in Cell E12 and report the results: Are they named in any convention that can be sequenced? Or do they all have different naming structures.