Como copiar um intervalo repetidas vezes, baseado em um célula

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Como copiar um intervalo repetidas vezes, baseado em um célula

Mensagem por alexandrevba em Ter Out 29, 2013 8:39 am

Bom dia!!

Código:
Sub CopiarIntervaloVariasVezes()
'Como copiar um intervalo repetidas vezes, baseado em um célula
Dim LR As Long, i As Long
    If IsNumeric(Range("J2")) Then 'Verifica se é número
        If Range("J2").Value >= 1 Then 'Verifica se é maior ou igual a 1
            Range("B2:G6").Copy 'Copia os dados
            For i = 1 To Range("J2").Value 'Loop para repetir quantas vezes deverá ser copiado
                LR = Range("B" & Rows.Count).End(xlUp).Row + 2 'Conta a tabela (Àrea de copia), dá um salto
                Range("B" & LR).PasteSpecial Paste:=xlPasteAll 'Cola os dados
            Next i
            Application.CutCopyMode = False
        End If
    End If
End Sub
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum