problem with FIND

cjsmith22

New Member
Joined
Nov 2, 2005
Messages
22
this updates a league table based on results.
Code:
For Each myLeague In myLeague

Set C = myResults.Find(myLeague, lookat:=xlWhole)
If Not C Is Nothing Then
With C
        myfor = C.Offset(0, 1)
        myagainst = C.Offset(0, 5)
        mygd = myfor - myagainst
        If myfor > myagainst Then
        mywon = 1
        mypoints = 3
        myplayed = 1
        End If
        If myfor < myagainst Then
        mylost = 1
        myplayed = 1
        End If
        If myfor = myagainst Then
        mydrawn = 1
        mypoints = 1
        myplayed = 1
        End If
  End With
End If

  Set C = myLeague.Find(myLeague, lookat:=xlWhole)
If Not C Is Nothing Then
With C
        C.Offset(0, 1) = C.Offset(0, 1) + myplayed
        C.Offset(0, 2) = C.Offset(0, 2) + mywon
        C.Offset(0, 3) = C.Offset(0, 3) + mydrawn
        C.Offset(0, 4) = C.Offset(0, 4) + mylost
        C.Offset(0, 5) = C.Offset(0, 5) + myfor
        C.Offset(0, 6) = C.Offset(0, 6) + myagainst
        C.Offset(0, 12) = C.Offset(0, 5) + C.Offset(0, 10) - C.Offset(0, 6) - C.Offset(0, 11)
        C.Offset(0, 13) = C.Offset(0, 13) + mypoints
        myplayed = 0
        mywon = 0
        mydrawn = 0
        mylost = 0
        myfor = 0
        myagainst = 0
        mypoints = 0
        
End With
End If
the problem is that it stops when it finds the first correct match of myLeague in myResults. how can i get it to find more than one correct match?
eg. myLeague = "chelsea" , it finds only the first instance of myLeague in myResults, i need it to look to see if chelsea occurs more than once in myResults
 

Excel Facts

Can Excel fill bagel flavors?
You can teach Excel a new custom list. Type the list in cells, File, Options, Advanced, Edit Custom Lists, Import, OK

Tazguy37

MrExcel MVP
Joined
May 28, 2004
Messages
4,237
Have you looked at the .FindNext Method? That will continue a search that was begun with the Find method.
 

cjsmith22

New Member
Joined
Nov 2, 2005
Messages
22
thanks tazguy - trying to use
Code:
Set c = mynewResultsH.Find(myteams, lookat:=xlWhole)
If Not c Is Nothing Then
With c
        myfor = c.Offset(0, 1)
        myagainst = c.Offset(0, 5)
        mygd = myfor - myagainst
        If myfor > myagainst Then
        mywon = 1
        mypoints = 3
        myplayed = 1
        End If
        If myfor < myagainst Then
        mylost = 1
        myplayed = 1
        End If
        If myfor = myagainst Then
        mydrawn = 1
        mypoints = 1
        myplayed = 1
        End If
        firstaddress = c.Address
        Do
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstaddress

  End With
End If
but says object variable or with variable not set - any ideas?
 
Master Excel Bundle

Excel contains over 450 functions, with more added every year. That’s a huge number, so where should you start? Right here with this bundle.

Forum statistics

Threads
1,163,633
Messages
5,832,780
Members
430,167
Latest member
Gogogoben

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top