[Resolvido]Ajuda com VBA - Divisão de Parcelas

Boa tarde pessoal, tenho um formulario onde terei que controlar ate 15 parcelas. atualmente ha uma procedimento apos atualizar um determinado campo ele rola o vba:

'Calcula de divide as parcelas conforme plano

If Me.PlanoPgto.Value = 1 Then

Me.Rótulo382.visible = True
Me.Rótulo397.visible = True
Me.Rótulo413.visible = True
Me.Rótulo431.visible = True
Me.Rótulo447.visible = True
Me.Rótulo463.visible = True
Me.Rótulo464.visible = True
Me.Comando506.visible = True


##PARCELA 01

Me.R_Parcela_1.visible = True
Me.Parcela_Mens_1.visible = True
Me.Parcela_MD_1.visible = True
Me.Venc_Parcela_1.visible = True
Me.Venc_Sit_1.visible = True
Me.Pagto_1.visible = True
Me.Total_1.visible = True
Recebido_1.visible = True

Me.R_Parcela_2.visible = False
Me.Parcela_Mens_2.visible = False
Me.Parcela_MD_2.visible = False
Me.Venc_Parcela_2.visible = False
Me.Venc_Sit_2.visible = False
Me.Pagto_2.visible = False
Me.Total_2.visible = False
Recebido_2.visible = False

Me.R_Parcela_3.visible = False
Me.Parcela_Mens_3.visible = False
Me.Parcela_MD_3.visible = False
Me.Venc_Parcela_3.visible = False
Me.Venc_Sit_3.visible = False
Me.Pagto_3.visible = False
Me.Total_3.visible = False
Recebido_3.visible = False

Me.Parcela_Mens_1 = (Me.Vl_Curso) / Me.PlanoPgto
Me.Parcela_MD_1 = (Me.VL_MD) / Me.PlanoPgto

'####PARCELA 2
ElseIf Me.PlanoPgto.Value = 2 Then

Me.R_Parcela_1.visible = True
Me.Parcela_Mens_1.visible = True
Me.Parcela_MD_1.visible = True
Me.Venc_Parcela_1.visible = True
Me.Venc_Sit_1.visible = True
Me.Pagto_1.visible = True
Me.Total_1.visible = True
Recebido_1.visible = True

Me.R_Parcela_2.visible = True
Me.Parcela_Mens_2.visible = True
Me.Parcela_MD_2.visible = True
Me.Venc_Parcela_2.visible = True
Me.Venc_Sit_2.visible = True
Me.Pagto_2.visible = True
Me.Total_2.visible = True
Recebido_2.visible = True

Me.Parcela_Mens_1 = (Me.Vl_Curso) / Me.PlanoPgto
Me.Parcela_MD_1 = (Me.VL_MD) / Me.PlanoPgto
Me.Parcela_Mens_2 = (Me.Vl_Curso) / Me.PlanoPgto
Me.Parcela_MD_2 = (Me.VL_MD) / Me.PlanoPgto

Me.R_Parcela_3.visible = False
Me.Parcela_Mens_3.visible = False
Me.Parcela_MD_3.visible = False
Me.Venc_Parcela_3.visible = False
Me.Venc_Sit_3.visible = False
Me.Pagto_3.visible = False
Me.Total_3.visible = False
Recebido_3.visible = False

'####PARCELA 3
ElseIf Me.PlanoPgto.Value = 3 Then

Me.R_Parcela_1.visible = True
Me.Parcela_Mens_1.visible = True
Me.Parcela_MD_1.visible = True
Me.Venc_Parcela_1.visible = True
Me.Venc_Sit_1.visible = True
Me.Pagto_1.visible = True
Me.Total_1.visible = True
Recebido_1.visible = True

Me.R_Parcela_2.visible = True
Me.Parcela_Mens_2.visible = True
Me.Parcela_MD_2.visible = True
Me.Venc_Parcela_2.visible = True
Me.Venc_Sit_2.visible = True
Me.Pagto_2.visible = True
Me.Total_2.visible = True
Recebido_2.visible = True

Me.R_Parcela_3.visible = True
Me.Parcela_Mens_3.visible = True
Me.Parcela_MD_3.visible = True
Me.Venc_Parcela_3.visible = True
Me.Venc_Sit_3.visible = True
Me.Pagto_3.visible = True
Me.Total_3.visible = True
Recebido_3.visible = True

Me.Parcela_Mens_1 = (Me.Vl_Curso) / Me.PlanoPgto
Me.Parcela_MD_1 = (Me.VL_MD) / Me.PlanoPgto
Me.Parcela_Mens_2 = (Me.Vl_Curso) / Me.PlanoPgto
Me.Parcela_MD_2 = (Me.VL_MD) / Me.PlanoPgto
Me.Parcela_Mens_3 = (Me.Vl_Curso) / Me.PlanoPgto
Me.Parcela_MD_3 = (Me.VL_MD) / Me.PlanoPgto

so que terei que fazer isso ate o limite de 15 parcelas, ha algum modo de simplificar tudo isso?

Boa tarde wmantovani

Existem vários tópicos com este assunto aqui no fórum. veja se o link abaixo lhe atende.

https://www.maximoaccess.com/t10060-gerar-parcelas-com-valores-diferentes-obedecendo-a-criterios-de-porcentagem-estabelecidos?highlight=Parcela

Arquivo inexistente...:-(


Voce teria para postar ai por favor

wmantovani, este arquivo eu não tenho, mais tenho um exemplo que faz a mesma função divide de acordo um o numero na caixa de texto.

Segue link

https://www.maximoaccess.com/t32142p4-mapeamento-de-estoque#222922

Valeu, esse exemplo é bem legal pois joga as parcelas para dias uteis, vou estudar ele e ver como aplicar, obrigado

Valeu a todos resolvido