Deleting Entire Row if a Cell Located in Column A contains "1"

[eagerbeav3r]

Hey everyone,

I searched for a solution on this but I didnt find anything that works for me.
The Commandbutton for this is located in Sheet 1 and i want the VBA Code to delete every row that contains "1" in Sheet 3,

If ActiveSheet.CheckBox1 = False Then

'This is where I need the Code to work

 

[eagerbeav3r]

How about:

Sub Test1()
'
    Dim ArrayRow        As Long, LastRow    As Long
    Dim rng             As Range
    Dim SearchString    As String
    Dim InputArray      As Variant
    Dim ws              As Worksheet
'
    SearchString = "1"                                                                  ' <--- Set this to the string to search for
    Set ws = Sheets("Sheet3")                                                           ' <--- Set this to the sheet name to be checked
'
    LastRow = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
'
    Set rng = ws.Range("A" & LastRow + 1)
'
    InputArray = ws.Range("A1:A" & LastRow).Value
'
    For ArrayRow = 1 To UBound(InputArray)
        If InputArray(ArrayRow, 1) = SearchString Then Set rng = Union(rng, ws.Range("A" & ArrayRow))
    Next
'
    rng.EntireRow.Delete
End Sub

This works best for me. Thanks for the many suggestions

 

[Peter_SSs]

Glad you got something that suits. Thanks for the follow-up.