Can't get the like to compare

[SeniorTom]

I have 2 excel sheets one is a copy of the spreadsheet that google forms gives me. The other is one I want to update “Tracking 12 Mo MovAvg”. I would think the wild cards would qualify the “like”, but that is not the case. Any thoughts on what I’m doing wrong. Indents are not showing up in the post ... ???

Note: if I use match I get mostly better results, but that has its own problems.
Column “D” has a listing of courses separated by commas (see below).
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
From Debug.Print

2:16:26 PM
AGLER
0

CURRENT CP GOLF Tracking 12 Mo MovAvg updated 18 July 17.xlsm
*Sanford*
Sanford 8/3 Thursday @ 8:30, Falls Village Thursday 8/10 @ 8:00, The Preserve Monday 8/14 @ 8:00, Keith Hills Thursday 8/17 @ 8:30, Bryan Park Monday 8/21 @ 8:30, Lochmere Thursday 8/25 @ 8:00, Devils Ridge Monday 8/28 @ 9:00, Grandover East Thursday 8/31 @ 8:30

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
For Course = 0 To 10
' Activate the Tracking sheet, get the course name and column if blank ... bail
TrackingWB.Activate ' make sure you have the tracking sheet active
CourseName = ActiveCell.Offset(0, Course).Value
' Get the column letter, this is the column/course to updating status if needed
Debug.Print Time
Debug.Print Player
Debug.Print Err.Number
Debug.Print Err.Description
Debug.Print ActiveWorkbook.Name
Debug.Print "*" & CourseName & "*"
Debug.Print w1.Range("D" & MatchRowPlus)

ColTemp = Split(ActiveCell.Offset(0, Course).Columns.Address, "$") ' this is an array
CurrentColumn = ColTemp(1) ' gets column off the array
If CourseName = "" Then ' your at the end of the month
GoTo NextMember
Else
End If ' check the course against his response.
' this checks to see if the member requested this course, If not go to the next course
If Not UCase("*" & CourseName & "*") Like w1.Range("D" & MatchRowPlus) Then
Debug.Print Err.Number
Debug.Print Err.Description

GoTo NotThisCourse
Else
End If

 

[MARK858]

Indents are not showing up in the post ... ???

If you mean in the code try using Code Tags.

Guidelines for Forum Use

and is that your full code?

 

[JLGWhiz]

You could try something like this

If InStr(w1.Range("D" & MatchRowPlus).Value, CourseName) = 0 Then

which would equate to the Not Like comparison.

 

[SeniorTom]

Thanks the "instr" did the trick. Also, found the

 info and will use it in the future.

 

[JLGWhiz]

Thanks the "instr" did the trick. Also, found the

 info and will use it in the future.[/QUOTE]

You're welcome,
regards, JLG

 

[Rick Rothstein]

' this checks to see if the member requested this course, If not go to the next course
If Not UCase("*" & CourseName & "*") Like w1.Range("D" & MatchRowPlus) Then

Just so you know what is wrong with the above code line... all wildcards must appear in the text on the right side of the "Like" keyword. Without knowing what is in the cells, I would be guessing, but the way you have constructed your code line, I would guess it should be written this way instead...

If Not w1.Range("D" & MatchRowPlus) Like "*" & UCase(CourseName) & "*" Then

 

[SeniorTom]

Thanks, Rick

I'll make the change and keep your suggestions in mind in the future.

Tom