We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub Clean_Up() Dim rng, rng2 As Range Dim cl As Object Set rng = Range("A1:A" & Cells.SpecialCells(xlLastCell).Row) For Each cl In rng If cl.Value <> "" And (cl.Offset(0, 18).Value = 0) Then If rng2 Is Nothing Then Set rng2 = cl Else Set rng2 = Union(rng2, cl) End If End If Next cl rng2.EntireRow.Delete Columns("T:Z").EntireColumn.Delete Columns("B:R").EntireColumn.Delete End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Calculate dates based on if statements in excel||5||35|
|Email Excel WB by selecting name from a dropdown list to Outlook.||5||37|
|Aggregate data in an EXCEL file.||12||30|
Join the community of 500,000 technology professionals and ask your questions.