Need help please read

T

TwEaKFrEaK

Whats up everyone, I am trying to automate a process. Any help would be
great.

I have a monthly survey that I distribute to 30 companies. Not all
participate every month.

At the end of each month I publish a report that lists who participated
on the cover sheet. I would like to be able to list the participants
automatically based on a participant sheet thats in the workboot. When
I receiver a survey the company gets a 1 next to there name on the
participant sheet. If they dont part. they are left blank.

Here is a sample list

Cells Company Name Participated in
survey
1 Company A Company A

2 Company B
3 Company C
4 Company D Company D

Is there a formula that I could use to list out the companies while
skipping blank cells? So that the above list looks like this

Company A
Company D

Sorry for the long post. Any help would be great. If you need more
information let me know.
 
D

Don Guillett

something like

for each c in selection
if c<>"" then
sheets("cover").range("a1").end(xlup).row+1=c
end if
next
 
M

mjpiedade

Without VBA:
Use the PivotTable, and select the field Participated in Survey to the row
and drag any other field to data.

Regards,
MP
 
T

TwEaKFrEaK

Im not to familar with pivot tables can you provide a little mor
assistance. Thank you so much for your help
 
Top