Find and replace register and trademark

[luckyscheu]

This might be super easy but here goes.

I need to see if a "Product Name register mark" lives in column C. If it does, then the register mark for that Product Name needs to be eliminated in column AB.

Also, I need to see if a "Product Name" has a register mark in the first instance, then it DOES not need to be included in the additional instance within that cell.

Is this possible!?

Thank you so much,
Hayley

 

[Coding4Fun]

So to clarify you are trying check a list of Product Names listed in Column C and if the Product Name contains the ® symbol then you want to delete the value on that row in Column AB?

This will loop through all the products in Column C and anywhere it finds the ® symbol it will delete the value in Column AB Accordingly.
This is assuming you only have one instance of the product in column AB and it is on the same row in both Column C and AB.

Sub Tester()
Dim celltxt As String
Dim OnRow As Integer
OnRow = 1
LR = Cells(Rows.Count, "C").End(xlUp).Row
For i = 1 To LR
celltxt = ActiveSheet.Range("C" & OnRow).Text
If InStr(1, celltxt, "®") Then
Range("AB" & OnRow) = ""
End If
OnRow = OnRow + 1
Next I
End Sub

If however you have each product listed once in Column C and you want to delete every instance of the product from Column AB when it has the ® symbol then you can use this

Sub Tester()
Dim celltxt As String
Dim OnRow As Integer
OnRow = 1
OnRow2 = 1
LR = Cells(Rows.Count, "C").End(xlUp).Row
For i = 1 To LR
celltxt = ActiveSheet.Range("C" & OnRow).Text
        If InStr(1, celltxt, "®") Then
            LR2 = Cells(Rows.Count, "AB").End(xlUp).Row
        For e = 1 To LR2

celltxt2 = ActiveSheet.Range("AB" & OnRow2).Text
    
        If celltxt = celltxt2 Then 'InStr(1, celltxt2, celltxt1) Then
            Range("AB" & OnRow2) = ""
            
        End If
        OnRow2 = OnRow2 + 1
        Next e
    
        End If
    OnRow = OnRow + 1
Next i
End Sub

I am not clear on the 2nd part of your request, not sure what you mean by this can you please elaborate.