Notifications
Clear all

voltar para ultima célula ativa

3 Posts
2 Usuários
2 Reactions
1,165 Visualizações
(@rcmrtn)
Posts: 2
New Member
Topic starter
 

Pode parecer besta (e deve ser), mas busquei em metade do google e não encontrei: estou montando uma planilha onde uso o comando " Cells.Select", ou seja selecionar todas as células. Eu gostaria de, no final da macro, o excel ativasse a ultima célula ativa, ou seja, no início da macro ele lesse o endereço (ActiveCell.Address), e depois voltasse para lá. Alguém pode ajudar?? Obrigado

 
Postado : 15/04/2023 9:30 pm
kev027
(@kev027)
Posts: 64
Trusted Member
 

Boa noite.

Option Explicit

Sub CellAtiva()

Dim celula As String

    ' Guardando endereço da célula ativa
    celula = ActiveCell.Address
    
        ' Seu código
        Dim x As Byte
        For x = 1 To 30
            Planilha1.Cells(x, 1).Select
        Next
    
    ' Selecionando novamente a célula ativa do inicio da macro
    Planilha1.Range(celula).Select

End Sub
 
Postado : 15/04/2023 11:25 pm
rcmrtn reacted
(@rcmrtn)
Posts: 2
New Member
Topic starter
 

@kev027 Maravilha! Como eu previa, ridiculamente simples, rs
Funcionou assim:

Sub Macro2()
Dim celula As String
celula = ActiveCell.Address

MEU CÓDIGO

Planilha1.Range(celula).Select

End Sub

Mutíssimo obrigado!!!!

 
Postado : 16/04/2023 4:15 pm
kev027 reacted