Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Reinaldo5

vba - loop

Recommended Posts

BOM DIA,ESPERO QUE ALGUÉM POSSA ME AJUDAR.TENHO DUAS PLANILHAS (PLAN1) E (PLAN2)PLAN1B6 - - - - - - - - - - - - - - - AB6 B10 1 1 1 1 1 1 1 1 1 1 1 1 1 1 AB10B11 2 2 2 2 2 2 2 2 2 2 2 2 2 2 AB11" "" "B509 8 8 8 8 8 8 8 8 8 8 8 8 8 AB509PLAN2BL8 x x x x x x x x x x x x x BW8 BL10 _ _ _ _ _ _ _ _ _ _ _ _ _ BW10BL11 _ _ _ _ _ _ _ _ _ _ _ _ _ BW11" "" "BL509_ _ _ _ _ _ _ _ _ _ _ _ _ BW509Explicação:São 500linhas(B10:AB10) a (B509:AB509) com números em cada célula.Tenho que colá-los em (B6:AB6) sucessivamente.Quando colo, na plan2 em (BL8:BW8) aparece um resultado que tenho que colar em (BL10:BW10), (BL11:BW11),...,sucessivamente até (BL509:BW509).O QUE FIZ:GRAVEI A MACRO (EXCEL) E OBTIVE O SEGUINTE (obs: funciona perfeitamente):Range("B10:AB10").SelectSelection.CopyRange("B6).SelectActiveSheet.PasteSheets("plan1").SelectRange("BL8:BW8").SelectApplication.CutCopyMode=FalseSelection.CopyRange("BL10").SelectSelection.PasteSpecialPaste:=x!Paste Values,Operation=x!None,SkipBlanks_:=False,Transpose:=FalseSheets("plan2").SelectSabendo que as variáveis são ("B10:AB10") e ("BL10") fui substituindo por ("B11:AB11) e ("BL11)até onde coube no editor (coube 130 vezes).Então preciso fazer um loop (500 vezes)com a rotina acima. Só que eu não sei fazer !!!Seria muito grato se alguém me ajudasse. Reinaldo5

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.