Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #57 da revista programar. Faz já o download aqui!

XSELC56

EXCEL - Ciclo While e VBA ?!

Mensagens Recomendadas

XSELC56    0
XSELC56

Bom dia,

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

Sou novo no mundo do VBA e quero 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 20 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/VBA para este código e melhorar o meu conhecimento.  :cheers:

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 

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita a nossa Política de Privacidade