| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Add one more criteria
Hello from Steved
The below Formula finds Duplicates and deletes. Question please How do I also ask the formula to check Column E Thefore the find Criteria would be Columns "A", "D", "E" then the duplicates found Delete. Sub DeleteTheOldies() Dim RowNdx As Long For RowNdx = Range("A1").End(xlDown).Row To 2 Step -1 If Cells(RowNdx, "A").Value = Cells(RowNdx - 1, "A").Value Then If Cells(RowNdx, "D").Value <= Cells(RowNdx - 1, "D").Value Then Rows(RowNdx).Delete Else Rows(RowNdx - 1).Delete End If End If Next RowNdx End Sub Thankyou |
|
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Add one more criteria
Hi SteveD
Sub DeleteTheOldies() Dim RowNdx As Long For RowNdx = Range("A1").End(xlDown).Row To 2 Step -1 If Cells(RowNdx, "A").Value = Cells(RowNdx - 1, "A").Value Then If Cells(RowNdx, "D").Value <= Cells(RowNdx - 1, "D").Value Then If Cells(RowNdx, "E").Value <= Cells(RowNdx - 1, "E").Value Then Rows(RowNdx).Delete Else Rows(RowNdx - 1).Delete End If End If End If Next RowNdx End Sub -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Steved" wrote in message ... Hello from Steved The below Formula finds Duplicates and deletes. Question please How do I also ask the formula to check Column E Thefore the find Criteria would be Columns "A", "D", "E" then the duplicates found Delete. Sub DeleteTheOldies() Dim RowNdx As Long For RowNdx = Range("A1").End(xlDown).Row To 2 Step -1 If Cells(RowNdx, "A").Value = Cells(RowNdx - 1, "A").Value Then If Cells(RowNdx, "D").Value <= Cells(RowNdx - 1, "D").Value Then Rows(RowNdx).Delete Else Rows(RowNdx - 1).Delete End If End If Next RowNdx End Sub Thankyou |
|
#3
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
|
Add one more criteria
Thankyou Bob
"Bob Phillips" wrote: Hi SteveD Sub DeleteTheOldies() Dim RowNdx As Long For RowNdx = Range("A1").End(xlDown).Row To 2 Step -1 If Cells(RowNdx, "A").Value = Cells(RowNdx - 1, "A").Value Then If Cells(RowNdx, "D").Value <= Cells(RowNdx - 1, "D").Value Then If Cells(RowNdx, "E").Value <= Cells(RowNdx - 1, "E").Value Then Rows(RowNdx).Delete Else Rows(RowNdx - 1).Delete End If End If End If Next RowNdx End Sub -- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "Steved" wrote in message ... Hello from Steved The below Formula finds Duplicates and deletes. Question please How do I also ask the formula to check Column E Thefore the find Criteria would be Columns "A", "D", "E" then the duplicates found Delete. Sub DeleteTheOldies() Dim RowNdx As Long For RowNdx = Range("A1").End(xlDown).Row To 2 Step -1 If Cells(RowNdx, "A").Value = Cells(RowNdx - 1, "A").Value Then If Cells(RowNdx, "D").Value <= Cells(RowNdx - 1, "D").Value Then Rows(RowNdx).Delete Else Rows(RowNdx - 1).Delete End If End If Next RowNdx End Sub Thankyou |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| =DMIN(database,field,criteria) question about criteria | Excel Discussion (Misc queries) | |||
| criteria 1(a,b,c), criteria 2 (T,F) - Results (3 answers) achievab | Excel Discussion (Misc queries) | |||
| Countif using format criteria....not number criteria? | Excel Worksheet Functions | |||
| Counting Cells with multiple criteria.One criteria supporting wild | Excel Worksheet Functions | |||
| Counting Cells with multiple criteria.One criteria supporting wild | Excel Worksheet Functions | |||
Linear Mode
