Difference between revisions of "RevitVBNETReturnTotalRows"

From scripting
Jump to: navigation, search
(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