| Descricao: |
 SaberExcel - o site das Macros
Esta macro do Aplicativo Microsoft Excel VBA, localiza a linha da última célula usada, e retrona uma msgbox,
na coluna A a partir da celula A1.
Excel VBA Estudos® >> www.saberexcel.com >> Escola de Informática
Sub Ultima_linha_celula()
Dim vlCelBusca As Long
On Error Resume Next
'Essas linhas comentadas abaixo você poderá usar como um ["Verfica Inconsistência"] se tal célula estiver vazia msgbox e sai da macro.
'If Sheets("Plan2").Cells(1, 1) = "" Then
' MsgBox ("É so digitar algo na Coluna A, Blz!"), vbInformation, "Saberexcel.com"
' Encontrar a última linha, que forneceu um texto ou valor.
' faz a busca aqui...
' Exit Sub
'Else
vlCelBusca = Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
MsgBox "A Linha ULTIMA CELULA usada esta na linha é : " & vlCelBusca, vbInformation, "Saberexcel.com"
Sheets("Plan2").Cells(2, 3) = "A Linha ULTIMA CELULA usada esta na linha : - " & vlCelBusca
'End If
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA - SaberExcel
|