Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Lançar parcelas
 
Notifications
Clear all

Lançar parcelas

 
2024 - VBA & Macros
Post Recente por GabrSoares 8 anos atrás
7 Posts
4 Usuários
0 Reactions
2,348 Visualizações
RSS
 pcmaniero
(@pcmaniero)
Posts: 0
New Member
Topic starter
 

Boa noite galera!
Sou novo aqui no forum e pretendo tirar algumas duvidas e ajudar no que for preciso.
Vamos a duvida:

Estou fazendo um sistema de controle de cartão de crédito e travei no seguinte codigo no evento click de um botão:

'Janeiro 1 parcela.
If DatePart("m", txtData) = 1 And txtparcelas.Text = 1 Then
data = DateAdd("m", 1, txtData)
ActiveCell.Offset(0, 2).Value = data
ActiveCell.Offset(0, 3).Value = valor_parcela
End If

São lançados na coluna de fevereiro o valor e a data da parcela. Até ai tudo bem!
Agora imagine fazer esse mesmo codigo para a situação mes 1 parcela 2, mes 1 parcela 3, mes 1 parcela 4.... e por ai vai
teria como criar algumas variaveis para amenizar esse trabalho?

vlwwww

 
Postado : 08/06/2014 5:51 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Seja bem vindo Pc,
Você chegou a ver o modelo abaixo :
Planilha de Controle Recebimentos Venda Cartões de Crédito
viewtopic.php?f=21&t=3263

[]s

 
Postado : 08/06/2014 7:30 pm
 pcmaniero
(@pcmaniero)
Posts: 0
New Member
Topic starter
 

Legal a planilha!
Mas estou fazendo o sistema inteiro no vba, usando a planilha como um BD...

vlwww

Espero que alguem possa me ajudar ^^

 
Postado : 09/06/2014 5:58 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Pode-se utilizar algo assim:

For x = 0 To nprest - 1
linha = linha + x
Cells(linha, 1) = WorksheetFunction.EDate(CDate(TextBox1), x)
Cells(linha, 3) = TextBox2
Cells(linha, 4) = TextBox3
Cells(linha, 2) = ComboBox1
Cells(linha, 5) = ComboBox2
Cells(linha, 6) = "PENDENTE"
Cells(linha, 3) = CDbl(TextBox2.Value)
Next
 
Postado : 09/06/2014 6:01 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Como não temos o modelo que está usando, segue um modelo básico, veja se consegue adaptar.

Anexo atualizado em 14/10/15
Gerar Parcelas Vencimentos x Valor

[]s

 
Postado : 09/06/2014 7:21 am
 bmentodio
(@bmentodio)
Posts: 0
New Member
 

Mauro poderia mandar essa planilha no formato de exel?

 
Postado : 07/02/2017 10:09 am
 GabrSoares
(@gabrsoares)
Posts: 0
New Member
 

Boa noite, tudo bom?

Usei um "For" para flexibilizar seu código. As parcelas de cada mês serão preenchidas uma embaixo da outra na planilha. Dê uma olhada:

Sub Parcelas()
Dim intQtdParcelas As Integer
Dim intMes As Integer
Dim j As Integer
Dim intCont As Integer

intQtdParcelas = Conversion.CInt(InputBox("Digite a quantidade de parcelas (apenas números)"))

intCont = 0
For intMes = 1 To 12
    For j = 1 To intQtdParcelas
        If DatePart("m", txtData) = intMes And txtparcelas.Text = intQtdParcelas Then
            intCont = intCont + 1
            
            Data = DateAdd("m", 1, txtData)
            ActiveCell.Offset(intCont, 2).Value = Data
            ActiveCell.Offset(intCont, 3).Value = valor_parcela
        End If
    Next
Next

End Sub

Me avise de ajudou.

Abs
https://br.linkedin.com/in/consultorgabrielsoares

 
Postado : 08/02/2017 6:57 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico