Ir ao conteúdo
  • Cadastre-se

Excel Macro - Copiar e Repetir


Posts recomendados

Galera, boa tarde.

Estou com uma planilha que preciso copiar a informação de várias linhas e duplicá-las baseado em um valor constante em uma célula.

No print é possível perceber na coluna "K" o número de vezes padrão que a linha se repetiria, até que finalizasse de transcorrer toda a planilha, são mais de 9000 linhas. 

image.thumb.png.b301bd97612630e1f79829158af61935.png

 

Alguém poderia me ajudar, não tenho muito conhecimento de macro.

 

image.thumb.png.3912c938e630491fcbc07d9a7152ba0d.png

 

Ficaria mais ou menos assim.. as alterações em relação aos vencimentos e números de parcelas eu faria depois, porém, essa parte considero a primordial.. 

 

 

Obrigado.

Link para o comentário
Compartilhar em outros sites

Consegui galera.

Citação

Sub Macro2()
'
' Macro2 Macro
'

'
    For j = 1 To 50
    For i = 1 To Sheets("Base_Fluxo").[k2].Value
    Sheets("Base_Fluxo").Select
    Range("A2").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.Copy
    Sheets("Planilha1").Select
    Range("A1048576").End(xlUp).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("Planilha1").Select
    Range("a1").Select

    Next i
    
    Sheets("Base_Fluxo").Select
    Range("A2").Activate
    Selection.Delete Shift:=xlUp
    
    Sheets("Base_Fluxo").Select
    Range("A2").Select
    If Range("A2") = "" Then
    While ActiveCell.Value = ""
    ActiveCell.Offset(1, 0).Select
    Wend
    Range(Selection, Selection.End(xlToRight)).Select
    Else
    End If
    Next j
End Sub

 

Deu trabalho, mas deu certo.. rsrs;

Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...