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.
Public Function CountDataRows() As Long 'Counts the number of non-blank cells from a START cell range. Loops through the range until empty cell is found. Returns the total number of rows that contain data within the 'specified range/column. Note: Is dependant on each row having a value. Dim wks As worksheet Dim wkb As Workbook Dim rng As Range Dim Counter As Long Set wkb = ActiveWorkbook Set wks = wkb.Sheets("Test") Set rng = wks.Range("testrow") With wks Counter = 0 Do Until wks.Range("testrow").Offset(Counter, 0) Is Not Empty Counter = Counter + 1 Loop End With CountDataRows = Counter End Function
|Determine best-fit curve and its function [y=f(x)] from multiple (x, y) data points in Excel||6||55|
|Extracting a text date string into another column and having it convert to a 'real' date format in Excel||5||24|
|I need a User Form to Input Data appear when a cell is clicked on||34||34|
|VBA: copy range dynamically based on config sheet v3||6||23|