Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Modify to only work with nominated range instead of entire sheet
~~~~~~~~~~~~~~~~~~~~~~~
Dim c As Range For Each c In Sheets("REPORT").UsedRange If c.Locked = False Then c.Value = "" Next c End If ~~~~~~~~~~~~~~~~~~~~~~ The above code clears all cells in a sheet(REPORT) that are Not Locked. However it seem to take a while to process. How could i add a line to ONLY refer to a range of ( A1:AC960) instead of the entire sheet ? -- Corey .... The Silliest Question is generally the one i forgot to ask. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Modify to only work with nominated range instead of entire sheet
Note: the "UsedRange" is not the entire sheet. '-- Sub SetThemFree() On Error GoTo ViolatedParole Dim c As Range Application.ScreenUpdating = False Application.Calculation = xlManual For Each c In Sheets("REPORT").Range("A1:AC960").Cells If c.Locked = False Then c.Value = vbNullString Next 'c ViolatedParole: Application.ScreenUpdating = True Application.Calculation = xlAutomatic End Sub -- Jim Cone Portland, Oregon USA "Corey" wrote in message ~~~~~~~~~~~~~~~~~~~~~~~ Dim c As Range For Each c In Sheets("REPORT").UsedRange If c.Locked = False Then c.Value = "" Next c End If ~~~~~~~~~~~~~~~~~~~~~~ The above code clears all cells in a sheet(REPORT) that are Not Locked. However it seem to take a while to process. How could i add a line to ONLY refer to a range of ( A1:AC960) instead of the entire sheet ? -- Corey .... The Silliest Question is generally the one i forgot to ask. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I change the direction of an entire excel work sheet ? | Excel Discussion (Misc queries) | |||
Copy a Range of Data to another Work Sheet | Excel Programming | |||
Countif time is between two nominated times | Excel Worksheet Functions | |||
insert entire row for new data, external data range doesnt work | Excel Programming | |||
Nominated range not recognised in User Defined Funtion | Excel Programming |