Free for PREMIUM members
Go Premium for a chance to win a PS4. Enter to Win
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Dim v As String
v = DoCompare(Range("Sheet2!C5").CurrentRegion, Range("Sheet5!D6").CurrentRegion)
If v <> "" Then MsgBox "Missing value(s): " & v
Function DoCompare(rng1 As Range, rng2 As Range) As String
Dim i1 As Long
Dim i2 As Long
DoCompare = ""
i2 = 1
For i1 = 1 To rng1.Rows.Count
If rng2.Cells(i1, 1).Text = "#N/A" Then
DoCompare = DoCompare & IIf(DoCompare = "", "", ",") & rng1.Cells(i1, 1).Value
Open in new window
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.