Macros e VBA - Aula 8

Link da oferta: https://mestresdoexcel.com.br/oferta/

E-mail: [email protected]

Faça parte da Lista VIP →https://www.sieitreinamentos.com/listavip/

Curso Completo
http://mestresdoexcel.com.br/loja/combo-excel-3/
Siga-me nas redes sociais

Linkedin → https://www.linkedin.com/in/claudio-damasceno/
Instagram → https://www.instagram.com/mestresdoexcel/
Facebook → https://www.facebook.com/professorclaudiodamasceno/
Twitter → https://twitter.com/profcdamasceno
Site → http://claudiodamasceno.com.br

Código da Aula:
Sub parcelas()
Dim parcelas As Integer, contador As Integer, nroLinha As Integer
Dim nome As String
Dim valor As Double, valorParcela As Double
Dim vecto As Date

nome = InputBox("Qual o nome do cliente?")
valor = InputBox("Qual o valor total?")
parcelas = InputBox("Quantidade de parcelas?")

valorParcela = valor / parcelas
vecto = Date

For contador = 1 To parcelas
nroLinha = WorksheetFunction.CountA([A:A]) + 1
Cells(nroLinha, 1) = nome
Cells(nroLinha, 2) = contador
Cells(nroLinha, 3) = CCur(valorParcela)
Cells(nroLinha, 4) = CDate(WorksheetFunction.EDate(vecto, contador))
Next contador
MsgBox "Parcelas cadastradas com sucesso"

End Sub

#excel #vba #cursoexcel