Difference between revisions of "RevitVBNETReturnTotalRows"
From scripting
(Created page with " Function ReturnTotalRows(ByVal CurCells As Range) As Integer Dim RowCounter As Integer = 1 Dim FileCheck As Boolean = False While RowCounter <...") |
(No difference)
|
Latest revision as of 19:57, 24 April 2017
Function ReturnTotalRows(ByVal CurCells As Range) As Integer Dim RowCounter As Integer = 1 Dim FileCheck As Boolean = False While RowCounter < 1000 And FileCheck = False FileCheck = True For colcounter = 1 To 15 If CStr(CurCells(RowCounter, colcounter).value) <> "" Then FileCheck = False End If Next colcounter RowCounter = RowCounter + 1 End While ReturnTotalRows = RowCounter End Function