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 SubCada 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.
3 Comentários
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.
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