Help Needed for this Macro

[asivaprakash]

I have worked this below macro and was succesful in one out come but the others are not working

1 Delete 2861 from store
2 Delete DXJ8934\MXA8484\RCF959 from Processor
3 Delete + values(amt) in PLUS (cardtype)

The below code works for Delete 2861 from store.The other two need to be in the same shee and start working once option 1 finishes then option 2 should kick in then option 3.Can any one help

Sub Loop_Delete_Macro()

Dim Counter As Integer
Dim Todelete As String
Dim NoIterations As Integer

'DEFINE VALUE TO DELETE
Todelete = 2861

'DEFINE NUMBER OF ITERATIONS (IE HOW MANY ROWS YOU HAVE IN TOTAL)
NoIterations = 15000

Counter = 0

Do While Counter < NoIterations

If ActiveCell.Value = Todelete Then

Selection.EntireRow.Delete

Else: ActiveCell.Offset(1, 0).Activate

End If
Counter = Counter + 1

Loop

End Sub

https://hotfile.com/dl/224531363/f32ec0c/123.xlsm.html

This is the sample data I have added the comments on it as well.Can any one help

[JasperD]

I took the liberty to write you a smaller and somewhat easier to understand code.
Tried on your sample sheet and worked fine, so try this :

Sub Loop_Delete_Macro()
lr = ActiveSheet.UsedRange.Rows.Count
For i = lr To 1 Step -1

'Detect any cells with value 2861 in column E (5) and delete row if found
If Cells(i, "E").Value = 2861 Then Cells(i, "E").EntireRow.Delete

'Detect any cells with the value DXJ8934 or MXA8484 or RCF959 from column AC (29) and delete row if found
If Cells(i, "AC").Value = "DXJ8934" Or Cells(i, "AC").Value = "MXA8484" Or Cells(i, "AC").Value = "RCF959" Then Cells(i, "AC").EntireRow.Delete

'Detect any cells with value PLUS in column Y (25) and delete row if found
If Cells(i, "Y").Value = "PLUS" Then Cells(i, "Y").EntireRow.Delete

Next i
End Sub

Please click the * below if this helps

[asivaprakash]

Worked like a charm

[asivaprakash]

Dear JasperD

With regards to PLUS

It should delete only Positive values meaning 3000 , 4000 and the remaining negative values -3000 etc should remain . Any thoughts

[xladept]

Hi Asiva,

See if this is what you want - If it is then uncomment the penultimate line and delete the last line.

What will happen is that it will turn all of the entries that would be deleted red

Sub Asiva(): Dim s As Integer, p As Integer, c As Integer, q As Long, r As Long
s = Rows("2:2").Find("Store").Column: p = Rows("1:1").Find("Processor").Column
            c = Rows("1:1").Find("Card Type").Column
r = 1: Do Until WorksheetFunction.CountA(Rows(r)) = 0: r = r + 1: Loop
For q = 2 To r
If Cells(q, s) = 2861 Or Cells(q, c) = "PLUS" Or Cells(q, p) = "DXJ8934" Or _
Cells(q, p) = "MXA8484" Or Cells(q, p) = "RCF959" Then
'Cells(q, 1).EntireRow.Delete Shift:=xlUp: End If: Next q: End Sub
Cells(q, 1).EntireRow.Font.ColorIndex = 3: End If: Next q: End Sub

[JasperD]

Hi asivaprakash

sure, change :

If Cells(i, "Y").Value = "PLUS" Then Cells(i, "Y").EntireRow.Delete

to this :

If Cells(i, "Y").Value > 0 Then Cells(i, "Y").EntireRow.Delete

Please click the * below if this helps

[asivaprakash]

Sure thing that was fast but

It should delete positive values only when the Code is PLUS

Meaning If Plus and Greater than 0 delete hope this clarifies sorry for not being specific

[JasperD]

Sorry, misunderstood.
Change as follows :

If Cells(i, "Y").Value = "PLUS" And Cells(i, "D").Value > 0 Then Cells(i, "Y").EntireRow.Delete

Is that what you mean?

[asivaprakash]

Yes sir that's what i wanted

[arlu1201]

Asivaprakash,

Please take a moment to read the forum rules and then amend your thread title to something descriptive of your problem. Once you have done this please send me a PM and I will remove this request.

To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

Also,

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. In order to put code tags, either type [CODE] before your code and [/CODE] at the end of it, OR you can highlight your code and click the # icon at the top of your post window.

[arlu1201]

asivaprakash,

Please check the 1st point in post 9.