Find, offset

[Nerdalert314]

Hello,

The is a problem with part of my Macro and I can't seem to figure it out.

When a cell in column B is Security Total I need the cell in column A to be . .

This code will work on one cell. Even if I repeat it, it won't work. Any suggestions?

        Set Found = Cells.Find(What:="SECURITY TOTAL")
    If Not Found Is Nothing Then Found.Offset(0, -1).Value = "."

 

[Joe4]

Here is one way using Filters and Special Cells:

Sub MyMacro()

    Dim lr As Long
    Dim rng As Range
    
'   Find last row in column B with data
    lr = Cells(Rows.Count, "B").End(xlUp).Row
    
'   Set range to filter
    Set rng = Range("$A$1:$B$" & lr)

'   Filter column B to only show "SECURITY TOTAL" rows
    rng.AutoFilter Field:=2, Criteria1:= _
        "SECURITY TOTAL"

'   Update column A in those rows
    Range("A2:A" & lr).SpecialCells(xlCellTypeVisible).Value = "."
    
'   Remove filters
    rng.AutoFilter

End Sub