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 CreateGroupEmailCF() Dim x As Integer Dim counter As Integer Workbooks.Add ActiveWorkbook.SaveAs Filename:= _ "I:\Macro\Coffee\Recap_Email.xlsx", FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False originalSheet.Activate For x = 1 To UBound(AcctListCF) With ActiveSheet .AutoFilterMode = False With .Range("A1:S1") .AutoFilter .AutoFilter Field:=5, Criteria1:=AcctListCF(x) End With End With Range("A1").Select Selection.CurrentRegion.Select counter = Selection.Columns(1).SpecialCells(xlCellTypeVisible).Rows.Count If counter > 1 Then Selection.Copy Destination:=Workbooks("Recap_Email.xlsx").Sheets(1).Range("A65536").End(xlUp).Offset(1, 0) End If Next x Workbooks("Recap_Email.xlsx").Activate Range("a1").EntireRow.Delete Call FormatSheet End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Need VBA code to create all combinations of a routing.||30||68|
|Problems moving Excel files from local drive to server||4||26|
|Excel conditional formating based on a date, in a cell with a formula||22||27|
|Excel printing an invoice header over two sheets||3||27|