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.
Sub MakeExceptions() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Dim cel As Range For Each cel In Range("AC6:AC756") If cel = 1 Then cel.EntireRow.Cut Windows("Exceptions.xls").Activate Dim pastePt As Range Set pastePt = [TopA].End(xlDown).Offset(1, 0) pastePt.Select ActiveSheet.Paste Else End If ThisWorkbook.Activate Next Application.CutCopyMode = False 'Call DeleteExceptions Application.ScreenUpdating = True End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.