Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
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.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
Sub mac_copyunique() ' ' mac_copyunique Macro ' This macro copies all the formatted data, pastes it to the UniqueID page and removes any row with a duplicate address. This will therebycreate a Unique ID Dim uniquerow As Long Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Unique ID") uniquerow = ws.Range("B" & Rows.Count).End(xlUp).Row ' This is the first part - copying all the data and pasting it to the Unique ID page Sheets("Closed Address reformatting").Select Columns("F:O").Select Selection.Copy Sheets("Unique ID").Select Range("B1").Select ActiveSheet.Paste Rows("1:5").Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp Cells.Select ActiveSheet.Range("$A:$J").RemoveDuplicates Columns:=6, Header:= _ xlYes ActiveWorkbook.Worksheets("Unique ID").Sort.SortFields.Clear ActiveWorkbook.Worksheets("Unique ID").Sort.SortFields.Add Key:=Range( _ "I:I"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("Unique ID").Sort .SetRange Range("A:J") .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply ' This is the second part, creating adding new content to column A - and filling down with sequential numbers. Range("A1").Select ActiveCell.FormulaR1C1 = "ID" Range("A2").Select ActiveCell.FormulaR1C1 = "1" Range("A3").Select ActiveCell.FormulaR1C1 = "2" Range("A2:A3").AutoFill Destination:=Range("A2:A3" & uniquerow) End With Sheets("Closed Address reformatting").Select Range("E6").Select End Sub