Check cell contents then format as locked

[Guest]

I need a snippet of code that will check each cell in column K for the value
"Y" - if there's a Y in the cell, I want to format that entire row as locked
and then move down to check the next cell etc

Can anyone help me with the syntax please?

 

[Bob Phillips]

Sub LockRow()
Dim cLastRow As Long
Dim i As Long

cLastRow = Cells(Rows.Count, "K").End(xlUp).Row
For i = 1 To cLastRow
If Cells(i, "K").Value = "Y" Then
Cells(i, "K").EntireRow.Locked = True
End If
Next i
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Guest]

Thanks Bob

Just so I understand, what is the xlUp part doing?

 

[Bob Phillips]

Hi Katherine,

To have someone asking what it means, music .

The Cells(Rows.Count,"K") gets the last cell in column K. By then adding
End(xlUp) it is telling the code to find the first non-empty cell in the up
direction. This has the net effect of finding the last non-empty cell in the
column, including if there are some blanks in-between the start cell and the
true last cell.

--

HTH

RP
(remove nothere from the email address if mailing direct)