Skip asterics (*) in module

[flunzy]

Hi guys,

I'm bumping with my code at a cell which contains an asterisk. The code clears content of criteria FIND "pp" in column J and the first characters in column E.

Sub Code()

    Dim l As Long
    Dim lRow As Long
    Dim strTest As String
    
    Application.ScreenUpdating = False
    
       
        Range("E7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.NumberFormat = "0"
    
    lRow = Range("A65536").End(xlUp).Row
    
    For l = 2 To lRow
        If Range("J" & l).Value = "PP" Then
            strTest = Range("E" & l).Value & "*"
            Range("E" & l).Offset(1, 0).Select
            Do Until Not ActiveCell.Value Like strTest
                ActiveCell.Offset(0, 6).ClearContents
                ActiveCell.Offset(1, 0).Select
            Loop
        End If
    Next l
    
End Sub

Does someone has a workaround?

[romperstomper]

Try using:

strTest = Replace(Range("E" & l).Value, "*", "[*]") & "*"

[flunzy]

Try using:

strTest = Replace(Range("E" & l).Value, "*", "[*]") & "*"

Worked perfectly : ) thanks (bedankt) a lot mister Romperstomper

[romperstomper]

graag gedaan.

Please remember to mark the thread solved using the Thread Tools link at the top of the page.