Delete row based on call value & move rows up

[yobee]

Hello & Thanks in advance for any help. I trying to write a macro to delete rows based on column "A" cell value of "2" then shift the undeleted rows up. Here's what I have so far but maybe I am over cmplicating things...

Sub DeleteRows()
Dim Matrix()
Dim ActiveSheet As Object
Dim c As Integer
Dim Address As CellRangeAddress

ActiveSheet = ThisComponent.getCurrentController.getActiveSheet
Matrix = ActiveSheet.getCellRangeByName("A3:A79").getDataArray
Address = ActiveSheet.getCellRangeByName("A3").getRangeAddress

For c = UBound(Matrix) To 0 Step -1
If Matrix (c)(0) > 1 Then
Address.StartRow = Address.StartRow + c
Address.EndRow = Address.EndRow + c
ActiveSheet.RemoveRange ( Address , 3)
MsgBox "delete row " & Address.StartRow
Address.StartRow = Address.StartRow - c
Address.EndRow = Address.EndRow - c
End If
Next

End Sub

 

[Siegfried Wauwermans]

There may be fancier of better ways to do this, but here is what I would do.

Sub DeleteRows()
Dim i As Integer
Dim CheckRow As String

i = 1
CheckRow = Range("A" & i)
Do Until CheckRow = ""
    If CheckRow = 2 Then
        Rows(i).Delete Shift:=xlUp
    Else
        i = i + 1
    End If
    CheckRow = Range("A" & i)
Loop
End Sub

 

[Joe4]

Welcome to the Board!

One other tip. Never use reserved words (words of existing objects, methods, properties, functions, etc) like "Address" as the names of your variables, functions, and procedures.
Doing so can cause errors and unexpected results.

 

[Fluff]

Not even sure this is an Excel/VBA question, as that code does not look like VBA.