RevitVBNETReturnTotalRows

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