I can successfully find Data in a Pivot table Worksheet called "Pivot" using
this code:

wsPivot.Activate
wsPivot.Columns("C:C").Select

Dim FirstFound As Object
Set FirstFound = Selection.Find(What:=SearchIND_ID, After:=ActiveCell,
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If Not FirstFound Is Nothing Then
'MsgBox ("The first location found on Pivot Sheet is:" &
FirstFound.Address)
wsPivot.Range(FirstFound.Address).Select
'Application.Goto Reference:=wsPivot.Range(FirstFound.Address)

Else
'MsgBox ("Nothing was found")
wsGE.Activate
End If

The problem is that if the found/select range is in row 3,267, I must
scroll down 3,267 row to view the .Active (found cell).

How can I get the found record into the current window view so that I don't
have to scroll to it?

Many Thanks

Ross

The Application.Goto command that you commented out didn't do it for you?

--
Rick (MVP - Excel)


"Ross" wrote in message
...
I can successfully find Data in a Pivot table Worksheet called "Pivot"
using
this code:

wsPivot.Activate
wsPivot.Columns("C:C").Select

Dim FirstFound As Object
Set FirstFound = Selection.Find(What:=SearchIND_ID, After:=ActiveCell,
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If Not FirstFound Is Nothing Then
'MsgBox ("The first location found on Pivot Sheet is:" &
FirstFound.Address)
wsPivot.Range(FirstFound.Address).Select
'Application.Goto Reference:=wsPivot.Range(FirstFound.Address)

Else
'MsgBox ("Nothing was found")
wsGE.Activate
End If

The problem is that if the found/select range is in row 3,267, I must
scroll down 3,267 row to view the .Active (found cell).

How can I get the found record into the current window view so that I
don't
have to scroll to it?

Many Thanks

Ross

The GOTO code worked identically to the find code.

I removed some other code that was part of code used to populate the A1
lookup cell in the Pivot worksheet.

It was (that I removed):

'Application.ScreenUpdating = False
'Application.ScreenUpdating = True

When I removed this which was not necessary, the .find code began working
properly.

It fixed my problem and now things are working as they should.

Thanks Rick





"Rick Rothstein" wrote:

The Application.Goto command that you commented out didn't do it for you?

--
Rick (MVP - Excel)


"Ross" wrote in message
...
I can successfully find Data in a Pivot table Worksheet called "Pivot"
using
this code:

wsPivot.Activate
wsPivot.Columns("C:C").Select

Dim FirstFound As Object
Set FirstFound = Selection.Find(What:=SearchIND_ID, After:=ActiveCell,
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

If Not FirstFound Is Nothing Then
'MsgBox ("The first location found on Pivot Sheet is:" &
FirstFound.Address)
wsPivot.Range(FirstFound.Address).Select
'Application.Goto Reference:=wsPivot.Range(FirstFound.Address)

Else
'MsgBox ("Nothing was found")
wsGE.Activate
End If

The problem is that if the found/select range is in row 3,267, I must
scroll down 3,267 row to view the .Active (found cell).

How can I get the found record into the current window view so that I
don't
have to scroll to it?

Many Thanks

Ross