Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
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
|Multiple (nested?) IF statements with AND / please help - Too many arguments||8||42|
|VBA: loop recent folder and copy txt file.||8||33|
|Records from Access to Excel to specific cells||5||24|
|remove extra space at end of cell||12||31|