none
Duplicar Registros em Tabela RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Olá a todos, Preciso criar um banco de dados (tabela) no Excel.

    Pois bem, meu problema é o seguinte: quero criar um formulário no Excel VBA e criar um BD da seguinte forma:

    Nome Valor Parcelas Data

    onde eu digito o nome da pessoa e o valor pego em uma comobox (R$100,00, R$200,00, 300,00), parcelas em uma combobox (5,6,7 parcelas) e digito a data do primeiro pagamento por exemplo: 01/08/2014 e de acordo com o número de parcela ele tem que gerar os próximo vencimento e ficaria assim:


    Nome Parcela Valor Vencimento 
    Pedro Paulo dos Santos 1/5 R$ 100,00 01/08/2014
    Pedro Paulo dos Santos 2/5 R$ 100,00 01/09/2014
    Pedro Paulo dos Santos 3/5 R$ 100,00 01/10/2014
    Pedro Paulo dos Santos 4/5 R$ 100,00 01/11/2014
    Pedro Paulo dos Santos 5/5 R$ 100,00 01/12/2014

    e assim para cada novo usuário que eu queira colocar no banco de Dados


    Obrigado e quem puder me dar uma dica ficarei GRATO!!

    Carlos

    Carlos Rodrigues de Souza - Analista de Suporte

    quinta-feira, 14 de agosto de 2014 02:44
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar 
    Private Sub CommandButton1_Click()


Dim lin As Long
Dim myDate As Date
Dim parc As String


myDate = txtData.Text

dia = Day(txtData.Text)



Sheets("Plan1").Cells(1, 1) = "Nome"
Sheets("Plan1").Cells(1, 2) = "Parcela"
Sheets("Plan1").Cells(1, 3) = "Valor"
Sheets("Plan1").Cells(1, 4) = "Vencimento"

lin = 2

While Sheets("Plan1").Cells(lin, 1) <> ""

lin = lin + 1

Wend

For i = 0 To cboParcelas.List(cboParcelas.ListIndex) - 1

    Sheets("Plan1").Cells(lin, 1) = txtNome.Text
     
        
    Sheets("Plan1").Cells(lin, 2) = "'" & i + 1 & "/" & cboParcelas.List(cboParcelas.ListIndex)
    
  
    
    Sheets("Plan1").Cells(lin, 3) = cboValor.List(cboValor.ListIndex)

If i <> 0 Then
    myDate = myDate + 30
    End If
    
    
    While Day(myDate) <> Day(txtData.Text)
    
        myDate = myDate + 1
    
    Wend
    
        Sheets("Plan1").Cells(lin, 4) = myDate

    lin = lin + 1

Next i


End Sub



Private Sub UserForm_Initialize()


cboValor.AddItem ("R$ 100,00")
cboValor.AddItem ("R$ 200,00")
cboValor.AddItem ("R$ 300,00")

cboParcelas.AddItem (5)
cboParcelas.AddItem (6)
cboParcelas.AddItem (7)


End Sub

    • Sugerido como Resposta Anderson F. Diniz quinta-feira, 14 de agosto de 2014 02:48
    • Marcado como Resposta Carosouza quinta-feira, 14 de agosto de 2014 02:49
    quinta-feira, 14 de agosto de 2014 02:48
    |