Check cell contents then format as locked

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?

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)


"Katherine" <[email protected]> wrote in message
news:[email protected]...
> 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?

Thanks Bob

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

"Bob Phillips" wrote:

> 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)
>
>
> "Katherine" <[email protected]> wrote in message
> news:[email protected]...
> > 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?
>
>
>

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)


"Katherine" <[email protected]> wrote in message
news:[email protected]...
> Thanks Bob
>
> Just so I understand, what is the xlUp part doing?
>
> "Bob Phillips" wrote:
>
> > 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)
> >
> >
> > "Katherine" <[email protected]> wrote in message
> > news:[email protected]...
> > > 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?
> >
> >
> >