How to apply loop and condition statement in visible cells?

[dmadhup]

hello,

So far I have this code. but not working for visible cells. Any idea, please!

For Each j In Range("A2:FL" & lastRow).SpecialCells(xlCellTypeVisible)
    ii = j.Row
    If Rows(ii).EntireRow.Visible = True Then
        If Range("V") <> "" Or Range("V") <> vbNullString Then _
            If UCase(Range("V" & ii)) Like "*360-*" _
                Or UCase(Range("V" & ii)) Like "*AMG-*" _
                Or UCase(Range("V" & ii)) Like "*BNK-*" _
                Or UCase(Range("V" & ii)) Like "*BRU-*" _
                Or UCase(Range("V" & ii)) Like "*EUG-*" _
                Or UCase(Range("V" & ii)) Like "*FIN-*" _
                Or UCase(Range("V" & ii)) Like "*KLA-*" _
                Or UCase(Range("V" & ii)) Like "*MIA-*" _
                Or UCase(Range("V" & ii)) Like "*VIA-*" _
                Range("FK" & ii) = "EM"


            If UCase(Range("V" & ii)) Like "*G-*" Then _
                Range("FK" & ii) = "FRE"
    End If
Next j

 

[dmadhup]

I see.
I know what you saying. Then, maybe this solution will not work.

Do you have any other idea to solve this problem?

Thank you

 

[Fluff]

depends on what the answer is to post#10