Dividir parcelas ao clicar no botao
Enviado: 30 Mar 2022 às 10:16
Ola eu criei uma planilha para controle de vadas que eu faço e nelas ocorrem parcelamento, eu lanço tudo na aba "lançamentos" e clico no botao lançar na aba "Vendas1" e tras tudo essa parte esta correta eu gostaria de uma formula vba para que no lançamento na aba "vendas1" ja venha com lançamentos dividos pela quantidade de x que informo no lançamento... tipo se o cliente comprou em 10x venha 10 linhas hora que clicar no botao
Código: Selecionar todos
o codigo que estou usando é esse acima e a planilha vou anexar a baixo a senha dela é 852Sub 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) = "Emprestimo" 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, 8) 'Descrição
Plan6.Cells(lin, 8) = Planilha1.Cells(i, 6) 'Parcela
Plan6.Cells(lin, 9) = Planilha1.Cells(i, 9) 'Saida
Plan6.Cells(lin, 12) = Planilha1.Cells(i, 14) 'Resolvido
lin = lin + 1
End If
End If
If Planilha1.Cells(i, 1) = "Recebimento" Then
If Planilha1.Cells(i, 2) = "Emprestimo" 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, 8) 'Descrição
Plan6.Cells(lin, 7) = Planilha1.Cells(i, 9) 'Entrada
Plan6.Cells(lin, 12) = Planilha1.Cells(i, 14) '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) = "Emprestimo" 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, 9) 'Valor
Plan6.Cells(lin, 18) = Planilha1.Cells(i, 8) 'Descrição
Plan6.Cells(lin, 19) = Planilha1.Cells(i, 14) 'Resolvido
lin = lin + 1
End If
End If
Next
End Sub