VBA Excel - Retorna a Última Linha de uma planilha

|Blog Office VBA | Blog Excel | Blog Access | Blog Infochart | 

DESENVOLVO APLICAÇÕES VBA

O que é o fenômeno chamado BIG DATA?

Acesse uma ENORME lista de Dashboards e Infográficos

Aprenda a detectar gráficos que precisam mudar

Dados ou Informações?

Dashboards - 8 Importantes características desejáveis

Dashboards e Infocharts - Diversas Visualizações de Dados

Diversos exemplos de Gráficos

Excel - DashMap - Mapa do Brasil

Key Performance Indicators - 7 Características desejáveis

MIS - Usufruindo a excelência na análise das suas Informações

O Melhor do Business Intelligence

Os 10 mandamentos do gerenciamento de projetos

Receba  3 Calendários Customizáveis de  2013 em Excel

Usando Gauges em Dashboards no MS Access

Como faço para descobrir a última LINHA com dados numa Planilha?

Function LastRow (nColumn As String, InitLine As Single) As Single

    ' Author:                     Date:               Contact:

    ' André Bernardes             11/08/2008 09:01    bernardess@gmail.com

    ' Retorna o número de ocorrências.

    Dim nLine As Single

    Dim nStart As Single

    Dim nFinito As Single

    Dim Cabessalho As Single

    Dim nCeo As String

    Application.Volatile

    Let nStart = InitLine + 1

    Let nFinito = 65000

    Let Cabessalho = InitLine

    Do While nStart < nFinito

        Let nCeo = nColumn & Trim(Str(nStart))

        If Application.ActiveSheet.Range(nCeo).Value = "" Then

            Exit Do

        End If

        'Let Application.StatusBar.Value = " Linha: " & nStart

        Let nStart = nStart + 1

    Loop

    Let LastRow = (nStart - 1) '- Cabeçalho

    'Let Application.StatusBar.Value = "  "

End Function

Tags: VBA, Excel, UDF, Row, linha, last, última