View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
Bernie Deitrick Bernie Deitrick is offline
external usenet poster
 
Posts: 5,441
Default Selecting answers from a list and displaying them

Darin,

Same assumption, with one additional: your questions and descriptions with
"No" values will go onto a worksheet named "No Answers" starting in cell A1.

Sub Macro1()
Sheets("No Answers").Range("A1:C51").ClearContents
With Sheets("Question Sheet").Range("A1:C51")
.AutoFilter Field:=3, Criteria1:="No"
.SpecialCells(xlCellTypeVisible).Copy _
Sheets("No Answers").Range("A1")
.AutoFilter
End With
End Sub

HTH,
Bernie
MS Excel MVP


"Darin Kramer" wrote in message
...
Hi Bernie,

Thanks for the formulae I got it to work. Only problem is that whenever
I enter information anywhere else in the workbook it calculates cells,
which takes some time, and i think may be distracting for the user. I
thought of turning calculation off, but I need it on for other parts of
the workbook. As such, Can I ask if you could send me the VB - think I
will build it in, then just ask user to click a button to run Macro to
get listing of no answers.

I appreciate your assistance!

(I didnt mail u privatgely, cause I dont have your email address :)

Thanks and regards

Darin