VBA - Wildcard not working in string search

[RockandGrohl]

Hello, thought the below would work but it skips over applicable lines

Do Until Cells(ActiveCell.Row, "A").Value = "" Or Cells(ActiveCell.Row, "A").Value = tourno & "-H*"

Say the tourno variable is "ABC123", we have lines that are "ABC123-H01" and "ABC123-H02"

These lines are skipped over, but they should be applicable. If I change the criteria to "tourno & "-H01" for instance, it works perfectly.


What I'm trying to do is take a 6-digit variable, and then find all the strings where the 6-digit variable has a H-number string after it (whether it be -H01, -H02 etc)

Cheers.

 

[RockandGrohl]

Fixed it by doing the traditional filter then copy visible cells:

ActiveSheet.Range("$A$1:$AF$" & lastrow).AutoFilter field:=1, Criteria1:=tourno & "*"
ActiveSheet.Range("$A$1:$AF$" & lastrow).AutoFilter field:=2, Criteria1:="Hotel Option"

If Not Range("A2:A" & lastrow).SpecialCells(xlCellTypeVisible).Count > 1 Then
ActiveSheet.ShowAllData
Else
Range("A3:AF" & lastrow).SpecialCells(xlCellTypeVisible).Copy
tr.Activate
tr.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteAll
Range("A" & currow).Activate
End If