search word in thrid occurance 1

[limeg95]

Skip
I am searching a word 'Total"in report
there are three totals i want only third total with corresponding value this search first total
here is the code
For j = 5 To 41
dfst = Cells(j, 1).Text

if dfst = MyScreen.GetString(1,15,5) then
If dfst <> "" then
do
Set MyArea = MyScreen.Search("Total")
MyScreen.MoveTo MyArea.Bottom, MyArea.Right + 2
MyScreen.Moveto 2, 15
MyRw = MyScreen.Row
Sess0.Screen.Sendkeys("<PF8>")
loop
Next

 

[limeg95]

skip
this is my code
search find one page or multiple page
-------------------------------
For j = 7 To 48
DSFPT = Cells(j, 1).Text
DSFPT1 = Trim(MyScreen.GetString(6, 9, 6))

If DSFPT <> "" Then

If DSFPT = DSFPT1 Then

Set MYArea = MyScreen.Search("OUTPUT MASTER FILE")
MyScreen.Moveto MYArea.Bottom, MYArea.Left
MyRw = MyScreen.Row
If MyRw Then
Set MyArea1 = MyScreen.Search("TOTALS")

MyScreen.Moveto MyArea1.Bottom, MyArea1.Left
MyRw = MyScreen.Row


MyScreen.SendKeys ("<PF8>")
End If
If MyRw <> 1 Then

' MsgBox (MyRw)

Mytotal1 = Trim(MyScreen.GetString(MyRw, 45, 5))
Mytotal2 = Trim(MyScreen.GetString(MyRw, 64, 12))

MyScreen.SendKeys ("<PF8>")

End If
End If
End If
Cells(j, (Mycol + 1)).Value = Mytotal1

Cells(j, (Mycol + 2)).Value = Mytotal2
Next j

MyScreen.SendKeys ("<PF3>")

End Sub

 

[SkipVought]

Is there a question?

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[limeg95]

yes the title is not in first page it is in second page . my question is search command is searching first page only or all pages.

 

[SkipVought]

You search and page until it is found.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[limeg95]

skip
could you please provide example ("search and page until it is found")
thanks

 

[SkipVought]

    Set MYArea = MyScreen.Search("OUTPUT MASTER FILE")
    If MYArea Is Nothing then
       'next page
    Else
       'now search for 'TOTAL'
    End if

Skip,
[sub]
[glasses]Just traded in my old subtlety...
[b]for a NUANCE![/b][tongue][/sub]

 

[limeg95]

thanks a lot Skip
Great help
It works great but only one small issue
cells(j, i).text has space issue for exampe "xxx "
after x space showing so do i have to mention space
DSFPT1 = Trim(MyScreen.GetString(6, 9, 6))

If DSFPT <> "" Then

If Cells(j, 1).Text = DSFPT1 Then

 

[SkipVought]

...and the question is.....??????

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[limeg95]

Skip
thanks for your valuable time.
if cells(j,1).text = "xxx "
and screen DSFPT1 = "XXX"
both of them not equal technically. because the space issue
if it comes it goes out of the loop .

 

[SkipVought]

Well you have the SPACE issue and perhapse you have an issue with upper and lower case.

So what you do in addition to using TRIM is to chage both sides of the equation to either upper of lower case.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[SkipVought]

...excuse me...

upper OR lower case.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[limeg95]

Upper case

 

[SkipVought]

UCase function

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}

 

[limeg95]

it works great Thanks a lot