Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Projetar lançamento
 
Notifications
Clear all

Projetar lançamento

 
2024 - VBA & Macros
3 Posts
3 Usuários
0 Reactions
1,366 Visualizações
RSS
 pires
(@pires)
Posts: 17
Active Member
Topic starter
 

Bom dia Senhores,

Possuo um menu de lançamento onde insiro o nome do cliente, a quantidade de parcelas e o valor dela. Já possuo o código para ele identificar os campos e lançar na base. Minha duvida está em como eu consigo projetar as parcelas por vba, por exemplo, quando eu lançar um cliente que possui 3 parcelas, ele lance 3 linhas daquelas informações.

A planilha em anexo irá deixar mais claro a dúvida.

 
Postado : 25/07/2018 7:13 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
Option Explicit

Sub lancar()

Dim linha As Long
linha = 1

While Sheets("Dados").Range("A" & linha).Value <> ""


linha = linha + 1
Wend


Dim p As Long


For p = 1 To CInt(Sheets("Lançamento").Range("B2").Value)
Sheets("Dados").Range("A" & linha).Value = Sheets("Lançamento").Range("A2").Value
Sheets("Dados").Range("B" & linha).Value = Sheets("Lançamento").Range("B2").Value
Sheets("Dados").Range("C" & linha).Value = Sheets("Lançamento").Range("C2").Value
linha = linha + 1
Next p

Sheets("Lançamento").Range("A2:C2").ClearContents

End Sub
 
Postado : 25/07/2018 8:12 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

No forum há varios topicos sobre parcelamento; como por exemplo http://www.planilhando.com.br/forum/viewtopic.php?f=23&t=18122&hilit=+parcelas&start=10, de uma pesquisada e veja se não lhe atende/possa adaptar a sua necessidade

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/07/2018 8:15 am
Forum Jump:
  Tópico Anterior
Próximo Tópico