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.
Option Explicit Private Sub Worksheet_Activate() UpdateValues 'UpdateStatisticsValues End Sub Sub UpdateValues() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Statistics") Dim shpTotalOrders As ShapeRange Dim shpTotalCustomers As ShapeRange Set shpTotalOrders = ws.Shapes.Range(Array("TotalOrders")) Set shpTotalCustomers = ws.Shapes.Range(Array("TotalCustomers")) Dim lngOrders As Long Dim intCustomers As Integer 'Doesn't work? On Error GoTo Hell lngOrders = Application.WorksheetFunction.Count(Range("Orders[ID]")) intCustomers = Application.WorksheetFunction.CountIf(Range("Customers[Orders]"), ">0") shpTotalOrders.TextFrame2.TextRange.Characters.Text = lngOrders shpTotalCustomers.TextFrame2.TextRange.Characters.Text = intCustomers Set ws = Nothing Set shpTotalOrders = Nothing Set shpTotalCustomers = Nothing Hell: MsgBox "There was a problem." End Sub
|Formatting code for Excel Forms||17||48|
|Change all hyperlink addresses (Network paths) on the active worksheet using VBA||1||30|
|Excel - INDEX MATCH error||13||23|
|Efficient way to copy unique records from one sheet to another||5||17|