Hi Dave

My apologies for not being more specific in my post, regarding which
column to check - it has to be one in which you enter data, as opposed
to be a calculated column, for the Change event to trigger.
Luckily Debra was around after I had logged off last night, to sort
things out for you.

I hope you caught Debra's later post with here suggestion about using a
Sheet activate event on the PT report sheet instead. That is a far
better suggestion as it only gets triggered when you go to the PT sheet
to look at the result, and will not be triggered every time you enter a
new amount, (or change an amount), so it will be quicker.

--
Regards

Roger Govier


"Dave F" wrote in message
...
Well, I just figured it out. Turns out, Debra, you were right to ask
me what
the last column I entered a value in is, as opposed to the last column
that
calculates a value. Changing the 9 to an 8 fixed the problem.

Thanks to both of you. I'm not really sure what this code does, but
it
works, so now the task for me is to figure it out.

Thanks again.

Dave
--
Brevity is the soul of wit.


"Dave F" wrote:

Hi Debra,

I entered the code in a module. (Is a sheet module different than a
plain
old module? I know class modules are a different beast entirely, and
the
code is NOT in one of those.)

To answer your other question, here's how my data is laid out.
Column A is
column 1, column I is column 9, and, reading from column A to column
I i have
the following column headers: Trans#, Year, Month, Date, Category,
Description, Type, Amount, Balance.

So, column 9 is Balance. That is a formula. The only columns that
are NOT
formulas a Amount, Description, and Date. I suppose then that
means that
Amount is the last piece of data I enter in a given row. Does that
imply
that I should change

If Target.Column < 9 Then GoTo endsub

to

If Target.Column < 8 Then GoTo endsub

Thanks for any insight here.

Dave
--
Brevity is the soul of wit.


"Debra Dalgleish" wrote:

Did you add the code to the sheet module for the source data?

Roger's code refreshes the pivot table when you select a cell in
column
9. Do you enter values in that column, or does it contain formulas,
and
you skip past it?

Dave F wrote:
Thanks.

This is the code I have, modified with the sheet name, column
number, and
pivot table name. It doesn't seem to automatically refresh the
pivot table,
though. Am I missing something here?

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Target.Count 1 Then GoTo endsub
If Target.Column < 9 Then GoTo endsub
Sheets("Acct").PivotTables("PivotTable2").PivotCac he.Refresh
endsub:
Application.EnableEvents = True
End Sub


--
Debra Dalgleish
Contextures
http://www.contextures.com/tiptech.html