Is there a spreadsheet that tracks document in an office?

F

Frederick

I am trying to find a spreadsheet or database that can be used as a document
tracking system. Example: A document comes in on department but needs to be
signed by various persons in that department and at the end of the day you
need to be able to locate that document by just going into the system.
Does such a document excist?
 
P

PY & Associates

Turn on the data recorder

select your data and do

Data=>filter=>Autofilter

in the dropdown in the ID column, select an ID with multiple rows.

Now turn off the recorder

This should give you the data you want and you can see how to program the
autofilter.

You can then use code like
Dim rng as Range, rng1 as Range
dim rng2 as Range
set rng = Activesheet.autofilter.Range.columns(1)
' now exlude the header row
set rng1 = rng.offset(1,0).Resize(rng.rows.count-1)
On error resume next
set rng2 = rng1.specialcells(xlvisible)
On error goto 0
if rng2 is nothing then
' no rows meet the criteria
else
With userform1.Listbox1
.columncount = 3
for each cell in rng2
.AddItem cell.Value
.list(.listcount-1,1) = cell.offset(0,2)
.list(.Listcount-1,2) = cell.offset(0,5)
Next
end With
End if

the alternative is to loop through your list of ID's and pick up the cells
that match your ID. then use code similar to that inside the loop to
populate your listbox.

--
Regards,
Tom Ogilvy
 
Top