Set rng1 = Intersect(Sheets("SheetName").UsedRange, Sheets("SheetName").Columns("G")) For lngRow = rng1.Rows.Count - 1 To 12 Step -1 If rng1.Cells(lngRow).Value = "0" Then rng1.Cells(lngRow).EntireRow.Delete Next lngRow
|Windows 7 Share with concurrent edits(Excel)||3||33|
|Copy value from a certain cell||5||24|
|Subtotal clarification and between two sheets comparison||9||16|
|Excel 2010 - Comparison of texts in a cell||14||37|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!