All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.
Sub DeleteZeros() Dim ws As Worksheet Dim I As Long, FinalRow As Long For Each ws In ActiveWorkbook.Worksheets ws.Activate FinalRow = Cells(Rows.Count, 1).End(xlUp).Row For I = FinalRow To 12 Step -1 If (Cells(I, 19).Value = "") Then GoTo lastline If (Cells(I, 19).Value = 0#) And (Cells(I, 23).Value = 0#) And (Cells(I, 27).Value = 0#) Then 'Rows(I).Interior.ColorIndex = 2 Rows(I).Delete Shift:=xlUp End If lastline: Next I Next ws End Sub
|Powershell merging excel spreadsheets into one||2||16|
|why using INDIRECT function prompt for " do you want to save changes?" while there is no changes made?||2||15|
|onOpen. check dates in column, colour background||6||20|
|How do I carry conditional formatting through an entire section in EXCEL based on comparing values every two lines||4||15|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!