Multiplicar Lançamentos
Enviado: 05 Mai 2022 às 21:48
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