VBA Excel - Retornando o Limite da Coluna de um Range

|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 coluna com dados numa Planilha?

Function LASTINCOLUMN (rngInput As Range)

    ' Author:                     Date:               Contact:

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

    '

    Dim WorkRange As Range

    Dim i As Integer, CellCount As Integer

    

    Application.Volatile

    Set WorkRange = rngInput.Columns(1).EntireColumn

    Set WorkRange = Intersect(WorkRange.Parent.UsedRange, WorkRange)

    

    Let CellCount = WorkRange.Count

    For i = CellCount To 1 Step -1

        If Not IsEmpty(WorkRange(i)) Then

            Let LASTINCOLUMN = WorkRange(i).Value

            Exit Function

        End If

    Next i

End Function

Tags: VBA, Excel, UDF, Column, coluna, last, última