Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.
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
|Excel 2010: VBA Macro that Automatically Zooms in and Out & highlights your cell selection upon clicking the cell.||5||50|
|Excel VBA - macro in one workbook with another open||4||20|
|Excel VBA - UserForm Label Caption to show recordset data dynamically||12||17|
|And OR formula||5||22|