Este fórum está sendo desativado

[DennerSantos]

Amigos eu tenho uma planilha para controlar gastos do cartao e ja tenho um codigo que quando eu clico no botao ele lança na planilha mais queria que agora por exemplo quando o valor fosse parcelado em por exemplo 3 vezes ele repetisse a linha 3 vezes e logo a baixo viria outro lançamento , tenho o codigo a baixa e nao entendo muito to montando aos pouquinhos

Código: Selecionar todos

Sub relatorio()
    Plan6.Range("A7:i1500").ClearContents
    ultimalinha = Planilha1.Cells(Rows.Count, "a").End(xlUp).Row
    lin = 7
    For i = 2 To ultimalinha
        If Planilha1.Cells(i, 1) = "Saida" Then
        If Planilha1.Cells(i, 2) = "cartao" Then
            Plan6.Cells(lin, 1) = Planilha1.Cells(i, 1) 'Movimento
            Plan6.Cells(lin, 2) = Planilha1.Cells(i, 3) 'Status
            Plan6.Cells(lin, 3) = DateValue(Format(Planilha1.Cells(i, 4), "dd/mm/yyyy")) 'data
            Plan6.Cells(lin, 4) = DateValue(Format(Planilha1.Cells(i, 5), "dd/mm/yyyy")) 'Vencimento
            Plan6.Cells(lin, 5) = Planilha1.Cells(i, 7) 'Pessoa
            Plan6.Cells(lin, 6) = Planilha1.Cells(i, 9) 'Descrição
            Plan6.Cells(lin, 8) = Planilha1.Cells(i, 6) 'Parcela
            Plan6.Cells(lin, 9) = Planilha1.Cells(i, 10) 'Saida
            Plan6.Cells(lin, 12) = Planilha1.Cells(i, 16) 'Resolvido
            lin = lin + 1
           End If
        End If
        
          If Planilha1.Cells(i, 1) = "Recebimento" Then
        If Planilha1.Cells(i, 2) = "caertao" Then
            Plan6.Cells(lin, 1) = Planilha1.Cells(i, 1) 'Movimento
            Plan6.Cells(lin, 2) = Planilha1.Cells(i, 3) 'Status
            Plan6.Cells(lin, 3) = DateValue(Format(Planilha1.Cells(i, 4), "dd/mm/yyyy")) 'data
            Plan6.Cells(lin, 5) = Planilha1.Cells(i, 7) 'Pessoa
            Plan6.Cells(lin, 6) = Planilha1.Cells(i, 9) 'Descrição
            Plan6.Cells(lin, 7) = Planilha1.Cells(i, 10) 'Entrada
            Plan6.Cells(lin, 12) = Planilha1.Cells(i, 16) 'Resolvido
            lin = lin + 1
            End If
        End If
        
    Next
End Sub

Sub buscar()
    Plan6.Range("o3:s28").ClearContents
    ultimalinha = Planilha1.Cells(Rows.Count, "n").End(xlUp).Row
    lin = 3
    For i = 2 To ultimalinha
        If Planilha1.Cells(i, 7) = Range("I2") Then
        If Planilha1.Cells(i, 2) = "cartao" Then
            Plan6.Cells(lin, 15) = Planilha1.Cells(i, 1) 'Movimento
            If Planilha1.Cells(i, 5) <> "" Then Plan6.Cells(lin, 16) = DateValue(Format(Planilha1.Cells(i, 5), "dd/mm/yyyy")) 'Vencimento
            Plan6.Cells(lin, 17) = Planilha1.Cells(i, 10) 'Valor
            Plan6.Cells(lin, 18) = Planilha1.Cells(i, 9) 'Descrição
            Plan6.Cells(lin, 19) = Planilha1.Cells(i, 16) 'Resolvido
            lin = lin + 1
        End If
        End If
        
    Next
End Sub