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
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
