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.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Target.Offset(1, 0).Select End If If Target.Row < 3 Then Exit Sub If Not Application.Intersect(Target, Columns(1)) Is Nothing Then Target.Offset(, 1) = Environ("username") Target.Offset(, 2) = Now() With Worksheets("Status") Set r = .Columns(1).Find(Target.Offset(, 0), LookIn:=xlValues) If r Is Nothing Then rn = .UsedRange.Rows.Count + 1 .Cells(rn - 1, 1).Copy .Cells(rn, 1) .Cells(rn, 1).Value = Target.Offset(, 0) End If End With End If End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Excel hyperlinks - add custom and dynamic text to email body||2||33|
|compare column in an Excel spreadsheet.||1||45|
|Command button to lock and unlock sheet to protect formulas in Excel||6||27|