Sub to freeze cols up to extent of data in col Q
in [Programming]
|
Prev: Non-matching cells
Next: Limit due to selected cells
From: Max on 6 May 2010 02:13 Cols R and U contain formulas till row 200. I need a sub to freeze cols R and U from row 4 to the last row of data in col Q (taken from bottom up). Col Q contains only data, no formulas. Thanks
From: Jacob Skaria on 6 May 2010 05:14 Max, try the below in activesheet Sub Macro() Dim lngRow As Long lngRow = Cells(Rows.Count, "Q").End(xlUp).Row Cells.Locked = False Range("Q4:R" & lngRow).Locked = True ActiveSheet.Protect Password:="password" End Sub -- Jacob (MVP - Excel) "Max" wrote: > Cols R and U contain formulas till row 200. I need a sub to freeze cols R and > U from row 4 to the last row of data in col Q (taken from bottom up). Col Q > contains only data, no formulas. Thanks
From: Max on 6 May 2010 05:58 Sorry, what I meant by "freeze" was to convert the formulas in cols R and U to values (copy > paste special as values). What should be changed in the sub to do that? Thanks
From: Jacob Skaria on 6 May 2010 06:16 Try Columns("R") = columns("R").value Columns("U") = columns("U").value -- Jacob (MVP - Excel) "Max" wrote: > Sorry, what I meant by "freeze" was to convert the formulas in cols R and U > to values (copy > paste special as values). What should be changed in the sub > to do that? Thanks
From: Max on 6 May 2010 09:09
Thanks, but I'm not sure how to adapt those lines to suit the desired "freeze" extent, ie only from row 4 down to the last row of data in col Q, not the entire col. Grateful if you could take a moment to piece it together |