Deleting a Range instead of a Row if Cell = X

[NextWorldAngel]

I'm using the below code, but I need to edit it where I can delete The cells of the row with XXXX in a specific column from column A:AW. I have some data in other columns that I need to not delete.

So basically if I2 = "XXXX" then delete A2:AW2 and shift up.



Sub Update3()

Dim Firstrow As Long
Dim Lastrow As Long
Dim Lrow As Long
Dim CalcMode As Long
Dim ViewMode As Long

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With

With ActiveSheet

.Select

ViewMode = ActiveWindow.View
ActiveWindow.View = xlNormalView

.DisplayPageBreaks = False

Firstrow = .UsedRange.Cells(1).Row
Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row

For Lrow = Lastrow To Firstrow Step -1

With .Cells(Lrow, "I")

If Not IsError(.Value) Then

If Not IsError(Application.Match(.Value, _
Array("XXXX"), 0)) Then .Row.Delete

End If

End With

Next Lrow

End With

ActiveWindow.View = ViewMode
With Application
.ScreenUpdating = True
.Calculation = CalcMode
End With

End Sub

End Sub

 

[wigi]

Perhaps:

If Not IsError(Application.Match(.Value, Array("XXXX"), 0)) Then Range("A" & .Row, "AW" & .Row).Delete xlShiftUp

Can you tell me the use of code like this:

With ActiveSheet

.Select

PS: Please post code on the forum here within

 tags - it makes the code readable at least. Thanks.

 

[NextWorldAngel]

Nope I get a compile error with that.

And no clue on the structure of the code. I know enough about VBA to do very basic macro editing and googling for what I am trying to do. This is an edited copy/paste that I found

 

[NextWorldAngel]

Ooops typed something wrong. Let me try this again.

 

[NextWorldAngel]

I think that did it. Thank you very much!!!