Is there such a thing as a wild card in vba ?

[ipbr21054]

Hi,
Im using the code below.
I have highlighted two pieces of code.
Red is what the code is to ignor OR I will then see an error message & when i debug i see the code highlighted in Blue selected.

So in the code of what to ignore is next years date of which is 2022

So next year i will start to enter the year 2023 BUT will i remember where etc in the code i need to edit.
So as per title Is there such a thing as a wild card of which i can use so the code justs ignores it ?
Example **2022** or **2023** meaning whatever is between the ** ** is ignored

Thanks

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim myStartCol As String
    Dim myEndCol As String
    Dim myStartRow As Long
    Dim myLastRow As Long
    Dim myRange As Range

    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Value = "NEVER" Or Target.Value = "TBA" Or Target.Value = "2022" Then Exit Sub
    Application.ScreenUpdating = False
    
    myStartCol = "A"
    myEndCol = "K"

    myStartRow = 7
    
    myLastRow = Cells(Rows.Count, myStartCol).End(xlUp).Row
    
    Set myRange = Range(Cells(myStartRow, myStartCol), Cells(myLastRow, myEndCol))
    
    If Intersect(Target, myRange) Is Nothing Then Exit Sub
    
    With Target
        .Worksheet.Cells.FormatConditions.Delete
        .FormatConditions.Add xlExpression, , True
        .FormatConditions(1).Interior.Color = vbWhite
    End With
    
    With Sheet7.DTPicker1
    .Height = 40
    .Width = 40
    If Not Intersect(Target, Range("G7:H40")) Is Nothing Then
      .Visible = True
      .Top = Target.Top
      .Left = Target.Offset(0, 1).Left
      .LinkedCell = Target.ADDRESS
    Else
      .Visible = False
    End If
  End With
      
End Sub

 

[GWteB]

Perhaps something like this ...

    If Target.Value = "NEVER" Or Target.Value = "TBA" Or Target.Value Like "*2022*" Then Exit Sub

 

[JoeMo]

If you will always want to ignore a future date year in the current millennium, maybe:

    If Target.Value = "NEVER" Or Target.Value = "TBA" Or Target.Value Like "*2###*" Then Exit Sub

 

[ipbr21054]

Hi,
Maybe I didn’t explain correctly.
I’m not sure that next year when I see the error message I will remember what part caused the error to be shown.

So I was thinking ahead by using a wild card that then I wouldn’t need to remember

So example.
The code would ignore anything between * *
Meaning if when I change *2022* to *1023* the code would still ignore it as it should treat * * as please ignore.

 

[JoeMo]

Hi,
Maybe I didn’t explain correctly.
I’m not sure that next year when I see the error message I will remember what part caused the error to be shown.

So I was thinking ahead by using a wild card that then I wouldn’t need to remember

So example.
The code would ignore anything between * *
Meaning if when I change *2022* to *1023* the code would still ignore it as it should treat * * as please ignore.

If it's always a 4-digit number maybe:

    If Target.Value = "NEVER" Or Target.Value = "TBA" Or Target.Value Like "####" Then Exit Sub

 

[GWteB]

.. and in the other case you create your own wildcard combination, eg $@ @$

$@2022$@ Like $@*@$ equals TRUE     ' or
$@something$@ Like $@*@$ equals TRUE

 

[ipbr21054]

@JoeMo your second code was used many thanks.

 

[JoeMo]

@JoeMo your second code was used many thanks.

You are welcome - thanks for the reply.