Repetição de Ações Com um Loop no Excel VBA

SalvarSalvoRemovido 0
Dê um Like ❱❱0
Dê um Like ❱❱0

Looping é extremamente importante ao codificar porque pode encurtar o comprimento do seu código tremendamente. É como ter uma macro dentro da sua macro, uma vez que permite que você repita a mesma tarefa (ou aplique a mesma ação) repetidamente.

Veja um exemplo:

     Sub FormatAllCellsInColumn()
         Do Until ActiveCell.Value = ""
           ActiveCell.Rows.EntireRow.Select
           Selection.Interior.ColorIndex = 35
           Selection.Interior.Pattern = xlSolid
         ActiveCell.Offset(2, 0).Select
       Loop
     End Sub

Cada declaração de loop tem uma linha de abertura e uma linha de fechamento, um começo e um fim se você quiser. Você vai querer inserir sua ação repetitiva entre as linhas de abertura e encerramento da declaração para que seu código continue sendo repetido. O exemplo acima é um básico de como isso funciona.


Edivaldo. Louco por funções e fórmulas de Excel, adoro fazer planilhas e compartilhar meus conhecimentos com as pessoas. Seja bem-vindo. Eu amo fazer isso e quero compartilhar com você!

3 Comentários
  1. boa noite, criei uma planilha para contagem de estoque onde colocando o codigo do produto em uma coluna, o excel me traz em outra coluna com a " descrição - estoque físico", porém agora preciso fazer com que o excel pesquise na coluna onde tem a descrição do produto e a referência do produto e me diga qual é o código dele,
    alguém pode me ajudar?

    • Olá. Seria melhor ler a postagem, que explica, como fazer planilha de controle de estoque, neste site.
      Usando fórmulas e funções, você terá menos dor de cabeça do que usar VBA. Aliás, eu coloquei alguns exemplos de VBA, mas particularmente não gosto de trabalhar com planilhas com macros, vba, etc, porque se precisar compartilhar, gera muita incompatibilidade.

  2. Criei este código o qual ao clicar no botão ele busca o registro em uma celula na planilha 2 e cola em uma outra celula na planilha 1.

    Ocorre que gostaria de criar uma repetição para caso clique novamente no botão ele buscasse registros da celula da linha seguinte e colasse na mesma celula da planilha 1.

    Segue meu cogido criado

    Sheets("DADOS").Select
    Range("A2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("AÇÃO").Select
    Range("C5").Select
    ActiveSheet.Paste

Deixe uma Comentário

Logo
Registrar Nova Conta
Redefinir Senha