How select unlocked cells only
Hi,
I need to select the unlocked cells in an excel sheet that I have protected. The scope is to format those cells with a different colour to make easier for the enduser to spot them. I have found the following macro in the newsgroup: Sub FindUnlocked() Dim c As Range Dim sel As String Dim sel2 As String For Each c In ActiveSheet.UsedRange If c.Locked = False Then sel = sel & "," & c.Address End If Next sel2 = Right(sel, Len(sel) - 1) Range(sel2).Select End Sub This is supposed to do the job but when I run it, I get the following error: Run-time error '1004': Method 'range' of object'_Global' failed Do you know what it means and how to solve it? I use Excel 2000 Thank you Alex |
How select unlocked cells only
Hi
why not use something like Sub FindUnlocked() Dim c As Range For Each c In ActiveSheet.UsedRange If c.Locked = False Then c.interior.colorindex=3 End If Next End Sub -- Regards Frank Kabel Frankfurt, Germany Metallo wrote: Hi, I need to select the unlocked cells in an excel sheet that I have protected. The scope is to format those cells with a different colour to make easier for the enduser to spot them. I have found the following macro in the newsgroup: Sub FindUnlocked() Dim c As Range Dim sel As String Dim sel2 As String For Each c In ActiveSheet.UsedRange If c.Locked = False Then sel = sel & "," & c.Address End If Next sel2 = Right(sel, Len(sel) - 1) Range(sel2).Select End Sub This is supposed to do the job but when I run it, I get the following error: Run-time error '1004': Method 'range' of object'_Global' failed Do you know what it means and how to solve it? I use Excel 2000 Thank you Alex |
How select unlocked cells only
Hi Alex,
As an alternative approach, you could use conditional formatting and set the Formula Is condition to: =CELL("protect",A1) --- Regards, Norman "Metallo" wrote in message om... Hi, I need to select the unlocked cells in an excel sheet that I have protected. The scope is to format those cells with a different colour to make easier for the enduser to spot them. I have found the following macro in the newsgroup: Sub FindUnlocked() Dim c As Range Dim sel As String Dim sel2 As String For Each c In ActiveSheet.UsedRange If c.Locked = False Then sel = sel & "," & c.Address End If Next sel2 = Right(sel, Len(sel) - 1) Range(sel2).Select End Sub This is supposed to do the job but when I run it, I get the following error: Run-time error '1004': Method 'range' of object'_Global' failed Do you know what it means and how to solve it? I use Excel 2000 Thank you Alex |
How select unlocked cells only
Hi,
Thank you guys for your solutions, I'm going to try both and see which one will work best. Cheers Alex "Norman Jones" wrote in message ... Hi Alex, As an alternative approach, you could use conditional formatting and set the Formula Is condition to: =CELL("protect",A1) --- Regards, Norman "Metallo" wrote in message om... Hi, I need to select the unlocked cells in an excel sheet that I have protected. The scope is to format those cells with a different colour to make easier for the enduser to spot them. I have found the following macro in the newsgroup: Sub FindUnlocked() Dim c As Range Dim sel As String Dim sel2 As String For Each c In ActiveSheet.UsedRange If c.Locked = False Then sel = sel & "," & c.Address End If Next sel2 = Right(sel, Len(sel) - 1) Range(sel2).Select End Sub This is supposed to do the job but when I run it, I get the following error: Run-time error '1004': Method 'range' of object'_Global' failed Do you know what it means and how to solve it? I use Excel 2000 Thank you Alex |
All times are GMT +1. The time now is 02:40 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com