How to Delete Matching (1 Viewer)

[AlaminK]

I wish to highlight cells in the search box. I want to delete partial matching. But I do not want to highlight if the search text is not a full match.

 

[CarlettoFed]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim bookName As String, authorName As String
Dim strStartColumn As String, strEndColumn As String
Dim intStartRow As Integer, intEndRow As Integer
Dim intRow As Integer
    bookName = Range("G2")
    authorName = Range("G3")
    strStartColumn = "B"
    strEndColumn = "D"
    intStartRow = 2
    intEndRow = 13
    Range(strStartColumn & intStartRow & ":" & strEndColumn & intEndRow).Interior.Color = RGB(255, 255, 255)
    For intRow = 2 To 13
        If bookName <> "" And authorName <> "" Then
            If InStr(Range("B" & intRow), bookName) > 0 And InStr(Range("C" & intRow), authorName) > 0 Then HighlightData strStartColumn, strEndColumn, intRow
        ElseIf bookName <> "" Then
            If InStr(Range("B" & intRow), bookName) > 0 Then HighlightData strStartColumn, strEndColumn, intRow
        ElseIf authorName <> "" Then
            If InStr(Range("C" & intRow), authorName) > 0 Then HighlightData strStartColumn, strEndColumn, intRow
        End If
    Next
End Sub

Private Sub HighlightData(strStartColumn As String, strEndColumn As String, intRow As Integer)
    Range(strStartColumn & intRow & ":" & strEndColumn & intRow).Interior.Color = RGB(180, 0, 50)
End Sub

 

[arnelgp]

maybe, change it to this:

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim bookName As String
    Dim authorName As String
    Dim rowCount As Integer
    
    Range("B2: D13").Interior.Color = RGB(255, 255, 255)
    
    If Range("G2").Value <> "" Then
        
        bookName = UCase(" " & Trim$(Range("G2")) & " ")
        For rowCount = 2 To 13
            If InStr(" " & UCase(Range("B" & rowCount).Value) & " ", bookName) Then
                Range("B" & rowCount & ": D" & rowCount).Interior.Color = RGB(180, 0, 50)
            End If
        Next rowCount
    End If
    
    If Range("G3").Value <> "" Then
    
        authorName = UCase(" " & Trim$(Range("32")) & " ")
        For rowCount = 2 To 13
        
            If InStr(" " & UCase(Range("C" & rowCount).Value) & " ", authorName) Then
                Range("B" & rowCount & ": D" & rowCount).Interior.Color = RGB(180, 0, 50)
            End If
        Next rowCount
    End If

End Sub

 

[AlaminK]

I tried both of your codes @CarlettoFed @arnelgp and they worked for me. You guys are the best. Thanks a lot.

 

[arnelgp]

unfortunately i tried CarlettoFed, and still it is doing "partial" search.