Continuing Question

[Cameron]

Many thanks Tom.
Just sitting here thinking about it some more ...
Regarding the printing:
Column "A" contains the dates of entries; is it possible to include into a
list, all of the dates (first occurance only) into the list box. Then users
can select `from` a particular date and the code would reflect -
Worksheets("Data").Range("[cell-of-selected-date]").CurrentRegion.Printout
..

Hope that makes some sense.

 

[Tom Ogilvy]

Current region picks up all contiguous cells out to the first blank row and
blank column in all directions (or the edge of the worksheet). So it would
not pay head to your dates. Also, it sounds like a single date could appear
multiple times, so it would be hard to determine

("[cell-of-selected-date]")

in that case.

--
Regards,
Tom Ogilvy

Many thanks Tom.
Just sitting here thinking about it some more ...
Regarding the printing:
Column "A" contains the dates of entries; is it possible to include into a
list, all of the dates (first occurance only) into the list box. Then users
can select `from` a particular date and the code would reflect -
Worksheets("Data").Range("[cell-of-selected-date]").CurrentRegion.Printout
.

Hope that makes some sense.

 

[Cameron]

Thanks Tom,
Was trying to incorporate some ability for users to print the report from a
certain date (referencing back to the cell of the first occurance of that
date) to the end of the region.
--
Cheers,
Cameron

Current region picks up all contiguous cells out to the first blank row
and
blank column in all directions (or the edge of the worksheet). So it
would
not pay head to your dates. Also, it sounds like a single date could
appear
multiple times, so it would be hard to determine

("[cell-of-selected-date]")

in that case.

--
Regards,
Tom Ogilvy

Many thanks Tom.
Just sitting here thinking about it some more ...
Regarding the printing:
Column "A" contains the dates of entries; is it possible to include into
a
list, all of the dates (first occurance only) into the list box. Then users
can select `from` a particular date and the code would reflect -
Worksheets("Data").Range("[cell-of-selected-date]").CurrentRegion.Printout
.

Hope that makes some sense.

ThisWorkbook.RefreshAll

Worksheets("Data").Range("A10").CurrentRegion.Printout

--
Regards,
Tom Ogilvy

I forgot to mention that for Question 1. - I'm intending to create a
Button
on the worksheet to perform the update.

Hi all,
My boss asked to create an XLS that tracks some reporting - done.
Then asked if I could create some graphs.
I use Excel2003 at home and stumbled across Pivot Tables, and
created
two
tables and charts in the process using the Pivot Table Wizard.

Questions:
1. What VBA do I need to refresh the pivot-tables and respective
charts
if I use this XLS on a PC with Excel-97 ??? **Each chart is on it's own
worksheet; the two pivot tables are on one worksheet(PivotTable1 &
PivotTable2).

2. How do I print the Data-Source Listing from the first record
($A$10:$G$10) through to the last non-empty record (currently
$A$50$G$50,
but this will increase).

Any help appreciated.

Cheers,
Cameron