Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
ProgressStatus.ProgressBar1.Value = 60 DoEvents Sheets("ExportData").Activate '~~> Perform final clean up 'Check for any instances of " - " in columns 26 or 27 'if found, delete the entire row. Set xCell = Columns(26).Find(What:=" - ", LookIn:=xlValues, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) If Not xCell Is Nothing Then delRange.EntireRow.Delete 'Next Step lastRow = Range("A" & Rows.Count).End(xlUp).Row For i = lastRow To 1 Step -1 If UCase(Trim(Range("N" & i))) = ("FREE INTO STORE") _ Or UCase(Trim(Range("O" & i))) = ("F.I.") _ Or DateDiff("D", Range("AA" & i), Date) >= 365 _ Or Len(Trim(Range("AF" & i))) = 0 _ Or Len(Trim(Range("AI" & i))) = 0 Then 'column AI = order quantity If delRange Is Nothing Then Set delRange = Range("N" & i) Else Set delRange = Union(delRange, Range("N" & i)) End If End If Next delRange.EntireRow.Delete ProgressStatus.ProgressBar1.Value = 70 DoEvents
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Excel shared spreadsheet||12||38|
|Excel Date Question||8||46|
|Combining match and vlookup???||4||33|
|Creating a script to paste in data from series of spreadsheets into one||11||19|
Join the community of 500,000 technology professionals and ask your questions.