Excel query/macro , delete records where the aggregate value is not over 100

Question

I have a spreadsheet with about 5000 records. I need to delete out the records where the Amount column is less than $10.00 unless the aggregate of the amount column is greater than or equal to $100. I have an ID column that matches to the name on the record.
So is it possible to create something that for each ID number in the ID column if the Amount column is less than $10 delete it unless the same ID appears again and is greater than $100? TIA

Answer 1

HI mkozz28,
>> I need to delete out the records where the Amount column is less than $10.00 unless the aggregate of the amount column is greater than or equal to $100.
In my option, you could sort the data by column ID, then loop through the column Amount, if the value of the Amount is less than 10, then find the cell according the same ID, if the Amout is less than 100, delete the enterRow.
For more information about Find method, you could turn to the link below
# Range.Find Method (Excel)
https://msdn.microsoft.com/en-us/library/office/ff839746.aspx
For the row delete, the link below might be useful to you
# Delete Method [Excel 2003 VBA Language Reference]
https://msdn.microsoft.com/en-us/library/office/aa223863(v=office.11).aspx
A simple demo as below, you need to modify it to your own requirement.
Sub test1()
For i = 2 To 8 'row number
Debug.Print ActiveSheet.Cells(i, 2).Value
'ActiveSheet.Cells(i, 2).Select
If (ActiveSheet.Cells(i, 2).Value <= 10) Then
Set cell = ActiveSheet.Range("A1:A8").Find(ActiveSheet.Cells(i, 1).Value, After:=ActiveSheet.Cells(i, 1), LookIn:=xlValues)
If cell Is Nothing Then
ActiveSheet.Cells(i, 2).EntireRow.Delete
Else
Debug.Print ActiveSheet.Cells(cell.Row, 2).Value
If ActiveSheet.Cells(cell.Row, 2).Value < 100 Then
ActiveSheet.Cells(i, 2).EntireRow.Delete
End If
End If
End If
Next i
End Sub
Best Regards,
Edward
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click HERE to participate the survey.