Meu caro, verifica se este exemplo atende a sua expectativa.

Qualquer dúvida inspecione o código fonte, está bem explicativo.

Weslley,

Vc só esqueceu essa parte:

Ou seja se o valor de A1=5 o número de repetições deverá ser de 5, ou seja copiar e colar esse intervalo, um abaixo do outro, 5 vezes e assim por diante com um limite de 50 vezes.

Incluí mais uma linha no código para resolver essa:

Sub LoopCopyPaste()

Dim Limite, Plinha, c 'Declaração da variaveis

Set intervalo = Rows("17:42") 'Cria o intervalo de linhas a ser copiado

Limite = [A1].Value 'Atribui a variavel Limite o valor da célula A1

If Limite > 50 Then Limite = 50 ' incluida -> se o limite na célula A1 for maior que 50, vai fazer "apenas" 50 loops

c = 1 'Defica a variavel c = 1

'Percorre um loop de 1 até o Limite definido pelo usuário
Do While c <= Limite
    
    Plinha = Cells(Rows.Count, "A").End(xlUp).Row + 2 'Verifica a ultima linha em branco e incrementa +2 linhas
    intervalo.Copy Rows(Plinha) 'Copia o intervalo e cola
    c = c + 1 'Incrementa a variavel c
    
Loop

MsgBox "Loop finalizado"

End Sub

Gilmar / Weslley,

Obrigado!

Mas agora estou esbarrando no seguinte:

A macro vai começar a rodar na planilha "Início", porém a área selecionada está na planilha "Base MAC internacional", logo a linha "Limite = [A1].Value 'Atribui a variavel Limite o valor da célula A1" não seleciona o intervalo correto na planilha correta... não mencionei esse detalhe... Obrigado!!

Gilmar / Weslley,

Obrigado!

Mas agora estou esbarrando no seguinte:

A macro vai começar a rodar na planilha "Início", porém a área selecionada está na planilha "Base MAC internacional", logo a linha "Limite = [A1].Value 'Atribui a variavel Limite o valor da célula A1" não seleciona o intervalo correto na planilha correta... não mencionei esse detalhe... Obrigado!!

Pessoal,

Também não está colando no lugar correto...estou mando anexo a planilha. Obrigado!

Na planilha em anexo quero copiar da linha 9 até a 39 e colar 2 linhas abaixo e assim por diante. Tks!

Meu caro, verifica se este exemplo atende sua expectativa.

Meu caro, verifica se este exemplo atende sua expectativa.

Wesley,

Está ótimo! mas não teria como de ao inves de abrir uma msg box solicitando a quantidade de repetições a macro buscar esse valor (o número de repetições) da Célula C6 da planilha "Ínicio"?

Muito Obrigado!

Meu caro, verifica se funciona.

Kra que ideia ótima! Vlw!

Limite = Range("Limite").Value

Valeu!

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.