vba

[Reinaldo5 0]

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

[Tiago Cardoso 1]

Dois tópicos semelhantes, deletei o primeiro e adicionei ele aqui, ok?

Boa noite.SOU LEIGO EM VBA. COPIEI O ABAIXO DO EDITOR DO VISUAL BASIC, APÓS GRAVAR MACRO NO EXCEL.PRECISO FAZER UM LOOP (500) VEZES COM A ROTINA ABAIXO.OBS: as células ("B10:AB10") e ("BL10")são as variáveis. tem que assumir:("B11:AB11") e ("BL11") na primeira passagem e ("B509:AB509") e ("BL509") na última.Range("B10:AB10").SelectSelection.CopyRange("B6").SelectActiveSheet.PasteSheets("PERG").SelectRange("BL8:BW8").SelectApplication.CutCopyMode=FalseSelection.CopyRange("BL10").SelectSelection.PasteSpecialPaste:= x!PasteValues,Operation:=x!None,SkipBlanks_:=False,Transpose: =FalseSheets("RESP").Selectend subAGRADEÇO A QUEM POSSA ME AJUDARREINALDO