A&A: Feedback - Ajuda no VBA... tem como vc me ajudar?

Olá Gilberto,

Boa tarde.

Agradeço o contato  e interesse em VBA...

Bem, vou te passar um código que resolverá o seu problema.

Gostaria de dizer que presto assessoria quanto a desenvolvimento VBA e que pequenas questões e funcionalidades podem ser facilmente resolvidas através de um depósito pessoal e o envio através de e-mail da sua solução.

No seu caso poderá utilizar a função LastRow("B";10)

No formato acima ela retorna o número da última linha com ocorrência, numa determinada coluna a partir de uma linha inicial.

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

André Luiz Bernardes
A&A - WORK, DON´T PLAY!
http://al-bernardes.sites.uol.com.br/
bernardess@gmail.com

Twitter: @officespecialis
            @brzexceldevelop
            @brzaccessdevel 

Esta mensagem pode conter informação confidencial e/ou privilegiada. Se você não for o destinatário ou a pessoa autorizada a receber esta mensagem, não pode usar, copiar ou divulgar as informações nela contidas ou tomar qualquer ação baseada nessas informações. Se você recebeu esta mensagem por engano, por favor avise imediatamente o remetente, respondendo o e-mail e em seguida apague-o. Agradecemos sua cooperação.

2009/10/16 Gilberto Freitas <gilbertorf@yahoo.com.br>

Boa tarde,

Estive procurando na internet alguma informação sobre o VBA. E vi num forum que voce e um outro cara sicutiram sobre a identificação da quantidade de colunas usadas em uma determinada linha no excel (não sei voce ainda se lembra).

É este o codigo.
Function UltimaLinha(Célula As Range) As Single
Application.Volatile
Let UltimaLinha = Cells(Célula.Range("A1").Column, Rows.Count).End(xlUp).Rows
End Function

So que estou precisando contar as linhas usadas em uma determinada coluna, preciso fazer o contrário do que voce fez... So que nao sei trabalhar com o VBA direito... apenas fucei e apliquei essa função que voces inventaram.

Vi que voce conhece um bocado sobre o assunto. Tem como vc me ajudar nessa?

Atenciosamente,

Gilberto Freitas