SOLVED

select and delete value of only unlocked cell

%3CLINGO-SUB%20id%3D%22lingo-sub-3182300%22%20slang%3D%22en-US%22%3Eselect%20and%20delete%20value%20of%20only%20unlocked%20cell%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3182300%22%20slang%3D%22en-US%22%3E%3CP%3EI%20need%20to%20delete%20all%20entries%20of%20unprotected%20cell%20only%20in%20a%20specific%20area%20of%20the%20table%20(the%20one%20in%20gray)%3C%2FP%3E%3CP%3Ei%20tried%20by%20record%20a%20macro%20using%20the%20find%20functionality%20via%20unlock%20format.%20if%20i%20manually%20perform%20Find%20unlocked%20cells%20then%20select%20all%20and%20press%20delete%20it%20works%20fine%20but%20if%20i%20record%20the%20macro%20with%20exactly%20the%20same%20steps%20it%20will%20delete%20the%20all%20area%20if%20the%20worksheet%20is%20unprotected%20or%20if%20i%20protect%20the%20worksheet%20i%20got%20a%20debug%20error%20saying%20i%20m%20trying%26nbsp%3B%20to%20delete%20protected%20cells.%3C%2FP%3E%3CP%3Eany%20help%2C%20solutions%20or%20strategy%20will%20be%20highly%20appreciated%26nbsp%3B%3C%2FP%3E%3CP%3Ethank%20you%20for%20time%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22lia-inline-image-display-wrapper%20lia-image-align-inline%22%20image-alt%3D%22olopa67_0-1645155045841.png%22%20style%3D%22width%3A%20400px%3B%22%3E%3CIMG%20src%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fimage%2Fserverpage%2Fimage-id%2F349378iA76E3BFD91853956%2Fimage-size%2Fmedium%3Fv%3Dv2%26amp%3Bpx%3D400%22%20role%3D%22button%22%20title%3D%22olopa67_0-1645155045841.png%22%20alt%3D%22olopa67_0-1645155045841.png%22%20%2F%3E%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-3182300%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EFormulas%20and%20Functions%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-3182529%22%20slang%3D%22en-US%22%3ERe%3A%20select%20and%20delete%20value%20of%20only%20unlocked%20cell%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3182529%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1201113%22%20target%3D%22_blank%22%3E%40olopa67%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EPerhaps%20try%20this.%20But%2C%20it's%20not%20clear%20if%20your%20table%20headers%20are%20word%20wrapped%20with%20just%20a%20space%20in%20between%20the%20words%20or%20if%20there%20is%20a%20carriage%20return%20(Alt%2BEnter).%20If%20you%20used%20Alt%2BEnter%2C%20then%20you'll%20need%20to%20reference%20the%20range%20like%3A%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ERange%20(%22Table1%5B%5BWED%22%20%26amp%3B%20Chr(10)%20%26amp%3B%20%22START%5D%3A%5BTUE%22%20%26amp%3B%20Chr(10)%20%26amp%3B%20%22SECTION%5D%5D%22)%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EChange%20table%20name%20from%20Table1%20to%20whatever%20yours%20is%20called.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-applescript%22%3E%3CCODE%3ESub%20ClearUnlocked()%0A%20%20%20%20%20Dim%20searchRange%20As%20Range%0A%20%20%20%20%20Dim%20unlockedCells%20As%20Range%0A%20%20%20%20%20Dim%20foundCell%20As%20Range%0A%20%20%20%20%20Dim%20firstAddress%20As%20String%0A%20%20%20%20%20%0A%20%20%20%20%20%0A%20%20%20%20%20On%20Error%20GoTo%20ErrHandler%0A%20%20%20%20%20%0A%20%20%20%20%20Set%20searchRange%20%3D%20Worksheets(%22DETAILED%20ROSTER%22).Range(%22Table1%5B%5BWED%20START%5D%3A%5BTUE%20SECTION%5D%5D%22)%0A%20%20%20%20%20%0A%20%20%20%20%20Application.FindFormat.Locked%20%3D%20False%0A%20%20%20%20%20%0A%20%20%20%20%20With%20searchRange%0A%20%20%20%20%20%20%20%20%20%20Set%20foundCell%20%3D%20.Find(What%3A%3D%22%22%2C%20after%3A%3D.Cells(1)%2C%20SearchFormat%3A%3DTrue)%0A%20%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%20%20If%20foundCell%20Is%20Nothing%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Err.Raise%20Number%3A%3DvbObjectError%20%2B%20513%2C%20Description%3A%3D%22No%20unlocked%20cells%20found.%22%0A%20%20%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%20%20Set%20unlockedCells%20%3D%20foundCell%0A%20%20%20%20%20%20%20%20%20%20firstAddress%20%3D%20foundCell.Address%0A%20%20%20%20%20%20%20%20%20%20%0A%20%20%20%20%20%20%20%20%20%20Do%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20DoEvents%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Set%20foundCell%20%3D%20.Find(What%3A%3D%22%22%2C%20after%3A%3DfoundCell%2C%20SearchFormat%3A%3DTrue)%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Set%20unlockedCells%20%3D%20Union(unlockedCells%2C%20foundCell)%0A%20%20%20%20%20%20%20%20%20%20Loop%20Until%20foundCell.Address%20%3D%20firstAddress%0A%20%20%20%20%20End%20With%0A%20%20%20%20%20%0A%20%20%20%20%20If%20Not%20unlockedCells%20Is%20Nothing%20Then%0A%20%20%20%20%20%20%20%20%20%20unlockedCells.ClearContents%0A%20%20%20%20%20End%20If%0A%20%20%20%20%20%0A%20%20%20%20%20%0AExitProc%3A%0A%20%20%20%20%20Exit%20Sub%0A%20%20%20%20%20%0AErrHandler%3A%0A%20%20%20%20%20MsgBox%20%22Error%20%22%20%26amp%3B%20Err.Number%20%26amp%3B%20%22%3A%20%22%20%26amp%3B%20Err.Description%0A%20%20%20%20%20Resume%20ExitProc%0A%20%20%20%20%20%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E
Contributor

I need to delete all entries of unprotected cell only in a specific area of the table (the one in gray)

i tried by record a macro using the find functionality via unlock format. if i manually perform Find unlocked cells then select all and press delete it works fine but if i record the macro with exactly the same steps it will delete the all area if the worksheet is unprotected or if i protect the worksheet i got a debug error saying i m trying  to delete protected cells.

any help, solutions or strategy will be highly appreciated 

thank you for time

 

 

olopa67_0-1645155045841.png

 

 

 

 

 

2 Replies
best response confirmed by olopa67 (Contributor)
Solution

@olopa67 

 

Perhaps try this. But, it's not clear if your table headers are word wrapped with just a space in between the words or if there is a carriage return (Alt+Enter). If you used Alt+Enter, then you'll need to reference the range like: 

 

Range ("Table1[[WED" & Chr(10) & "START]:[TUE" & Chr(10) & "SECTION]]")

 

Change table name from Table1 to whatever yours is called.

 

 

Sub ClearUnlocked()
     Dim searchRange As Range
     Dim unlockedCells As Range
     Dim foundCell As Range
     Dim firstAddress As String
     
     
     On Error GoTo ErrHandler
     
     Set searchRange = Worksheets("DETAILED ROSTER").Range("Table1[[WED START]:[TUE SECTION]]")
     
     Application.FindFormat.Locked = False
     
     With searchRange
          Set foundCell = .Find(What:="", after:=.Cells(1), SearchFormat:=True)
          
          If foundCell Is Nothing Then
               Err.Raise Number:=vbObjectError + 513, Description:="No unlocked cells found."
          End If
          
          Set unlockedCells = foundCell
          firstAddress = foundCell.Address
          
          Do
               DoEvents
               Set foundCell = .Find(What:="", after:=foundCell, SearchFormat:=True)
               Set unlockedCells = Union(unlockedCells, foundCell)
          Loop Until foundCell.Address = firstAddress
     End With
     
     If Not unlockedCells Is Nothing Then
          unlockedCells.ClearContents
     End If
     
     
ExitProc:
     Exit Sub
     
ErrHandler:
     MsgBox "Error " & Err.Number & ": " & Err.Description
     Resume ExitProc
     
End Sub

 

 

thank you JMB17 it is working perfectly
really appreciated your help