Dicas: Macros para Excel - Movimente-se pela Planilha | Excelmax Soluções e Controles

sexta-feira, maio 31, 2013

Dicas: Macros para Excel - Movimente-se pela Planilha

Dicas: Macros para Excel - Movimente-se pela planilha



vba. macro, macros, excel, deslocar, movimentar, loop, repetir, relatorio
Tenho recebido muitos e-mails, atendido muitos clientes e conversado com muitas pessoas a respeito do Excel e VBA.

Algo que me chamou a atenção é a dificuldade que muitos usuários tem para conseguir criar pequenas macros que podem auxiliar muito em suas tarefas diárias.

Uma das coisas mais importantes é o deslocamento no Excel entre linhas e colunas para então, executar determinadas tarefas ou procedimentos. O código a seguir demonstra como isso pode ser feito.

Movimente-se pelas linhas do Excel

A macro a seguir fara um loop (repetição) pelas linhas da coluna 'a' até encontrar a última Linha utilizada.

Sub Deslocar_pelas_linhas()
    Dim i As Integer, uLinha As Integer 

    uLinha = Cells(Cells.Rows.Count, "a").End(xlUp).Row
    For i = 1 to uLinha

        ... Seu código aqui ...

    Next
End Sub

Movimente-se pelas colunas do Excel

A macro a seguir fara um loop (repetição) pelas colunas da linha '1' até encontrar a última Coluna utilizada.

Sub Deslocar_pelas_colunas()
    Dim i As Integer, uColuna As Integer 

    uColuna = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
    For i = 1 to uColuna

        ... Seu código aqui ...

    Next
End Sub

Com estes dois códigos podemos encontrar facilmente qual é a:
  • última Linha preenchida ou;
  • última Coluna preenchida.

Encontrar a última célula preenchida no Excel

A macro a seguir encontra a última célula preenchida, como se combinasse os dois códigos (duas macros) acima, ou seja, encontrará a célula = ( ultima_Linha ; ultima_Coluna ) utilizada.

Sub Ultima_Celula_Preenchida()
    Dim i As Integer, uCelula As Integer
    uCelula = Cells(ActiveSheet.UsedRange.Rows.Count, 1).Row      'Linha 
   'uCelula = Cells(ActiveSheet.UsedRange.Columns.Count, 1).Row    'Coluna
                 For i = 1 to uCelula 

                     ... Seu código aqui ...

                 Next 

End Sub


Deixo aqui uma dica:
O entendimento e a utilização destas pequenas macros são essenciais não apenas para a utilização para aquilo que foi mencionado em seus  títulos. O mais importante é entendê-las e adaptá-las às inúmeras necessidades que surgirem. Na realidade isto é a base ou a estrutura do que vai fazer: Saber fazer a movimentação correta entre as células de uma ou mais planilhas.

Compartilhe com seus amigos.
Deixe também seu comentário e/ou sugestão pois ajudará a enriquecer o que estiver ou vier a ser publicado.

excel, excelmax, agradece, visita, dicas
Obrigado pela visita e um grande abraço a todos !

Consultor e Professor: Ivair Claudio Ferrari.


Nenhum comentário:

Postar um comentário

Seja um participante desta comunidade !
Deixe aqui seu comentário e/ou sugestão.
Obrigado !

Ivair Claudio Ferrari