VBA - Macro de Repetição - Excel

[emiliovilas 0]

Pessoal, Bom dia.

Tenho dados em uma planilha que serão colocados em outra planilha para isso Criei o código abaixo:

 

Mas essa condição deve acontever por "n" vezes. Como eu poderia criar um código mais simples para que fosse acontencendo a repetição por "n" vezes.

 

Sub ColarCopiar()

 

Sheets("Plan2").Select
Range("B7:B8").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Plan3").Select
Range("B21").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True

 

Sheets("Plan2").Select
Range("B9:B10").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Plan3").Select
Range("B21").End(xlDown).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=True
Range("B21").Select

 

End Sub

[Stephenloky 0]

Cara depende do que for n, pode ser um valor variável ou fixo

 

você pode fazer assim

 

For n = 1 To x

 

------- SEU CÓDIGO AQUI USANDO A VARIAVEL N ------

 

 

Next

 

o x é o último número que você quer executar ... e podes usar o 'n' para seu código ser dinâmico !

[KhaosDoctor 242]

Na verdade é o contrário:

 

 

For i = X to N Step 1


//código


Next

Onde N é o numero que você quer chegar e X é o número inicial.

 

i é só a variável de contagem, pode chamar do que quiser

[emiliovilas 0]

Vou fazer o teste, obrigado.