VBA Excel - Ciclo While

XSELC56 · 31 de dezembro de 2011

Bom dia,

Este é o meu primeiro post como tal peço desculpa por alguma incorreção.

Sou novo no mundo do VBA e estou querendo fazer uma macro que copie determinada informação de uma tabela (por exemplo com 20 linhas) para uma área em especifico (por exemplo o range A1 : D1), chame uma 2ª macro para fazer ações sobre essa primeira linha e assim que acabar, volta à tabela e passa para a segunda linha. Tem que fazer isto até ter feito todas as 2 linhas da tabela.

Vou colar aqui o código que esbocei, por favor não me atirem pedras porque sei que deve ser um crime para que percebe de excel.

Gostaria de obter a vossa ajuda para compreender melhor a sintaxe do excel para este código e melhorar o meu conhecimento.

Abraço e obrigado

Sub teste()

Dim celula As Long
Dim linha As Long
Dim destino As Long

celula = Range("B9")
linha = Range("C10:F10")
destino = Range("C5:F5")

' Enquanto célula de controlo "celula" estiver vazia 
' 1º - Copia info da "linha"
' 2º - Cola info na "destino"
' 3º - Chamama macro "CriaTemplates"
' 4º - Incrementa a celula de controlo (passaria para B10)
' 5º - Incrementa o range da "linha" (passaria para C11:F11)

While celula <> " "

    linha.Select
    Application.CutCopyMode = False
    Selection.Copy
    destino.Select
    ActiveSheet.Paste

     Call CriaTemplates

linha = linha + 1
celula = celula + 1

Wend

End Sub