I'm trying to code a simple function to delete an entire and do a shift up to replace the deleted row.
when the value of a cell in column A contains "A" or "OQ" or "la" or "lq"
I've coded this, but isn't working properly.
Is there a solution to this?
Thank you
Sub DeleteRow()Dim SrchRng As Range, cel As RangeApplication.ScreenUpdating = FalseSet SrchRng = Range("A:A")For Each cel In SrchRng If Not InStr(1, cel.Value, "A") > 0 Then Worksheets("Feuille1").Rows(cel.Row).Delete Shift:=xlShiftUp End IfNext celEnd Sub
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
I started with Experts Exchange in 2004 and it's been a mainstay of my professional computing life since. It helped me launch a career as a programmer / Oracle data analyst