Exception Reporting!!! Never b4 replied? 1

[sgteh]

Hello guys, glad to be back,

Anybody can help here? V URGENT, argh...

My workbook consists of 16 worksheets which in turn have questions to be answered either "Yes" or "No" and also a "Comments" column.

How VBA were to list all "No" answers into a new Exception worksheet together with the "Comments"?

I have tried to creat the Exception worksheet based on copying all other 16 worksheets into it and then autofiltering. It works, but the file hangs on and off due to it using too much processing memory.

Thanks,
SG

 

[SkipVought]

SG,

Add a new sheet.
Loop thru all other sheets, grabbing data and writing to the new sheet.

dim wsNew as Worksheet, ws as worksheet, r as long
set wsNew = workbooks.add
with wsnew
  .name = "Summary"
  cells(1,1).value = "Heading 1"
'...Summary column headings, etc.
end with
for each ws in worksheets
  if ws.name <> &quot;Summary&quot; then
    r = wsnew.cells(1,1).currentregion.rows.count + 1
    StuffForHeading1Data = ws.whatever...
...
    wsnew.cells(1, 1).value = StuffForHeading1Data
  end if
next
set wsnew = nothing

???

Skip,

http://www.TheOfficeExperts.com

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884