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

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

Voltar ao Topo

- Tópicos similares

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