asivaprakash
New Member
- Joined
- May 26, 2013
- Messages
- 5
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
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