none
Duplicar Registros em Tabela RRS feed

  • Pergunta

  • 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

  • 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