none
Botão que copia dados dentro do próprio formulário RRS feed

  • Pergunta

  • Tenho um botão INSERIR no meu formulário que deverá copiar e preencher dados dentro do próprio formulário, de acordo com o botão de opção que foi selecionado. Os dados de partida são os seguintes:

    Nº da conta (TextBox)

    Nome da Conta (TextBox)

    Valor (TextBox)

    CRÉDITO (OptionButton)

    DÉBITO (OptionButton)

    Agora imagine uma matriz 4x4 em que cada célula é uma TextBox. Quero que quando o botão INSERIR for acionado, os dados acima preencham a primeira linha vazia desta matriz. A dificuldade que estou tendo são com as condicionais: 1) Todos os campos de partida tem que estar preenchido; 2)Se o botão CRÉDITO estiver acionado, a primeira célula da linha será preenchida com “C:”, senão, se o botão DÉBITO estiver acionado, a primeira célula da linha será preenchida com “D:”. 3)Limpar todos os dados de partida.

    Se tiver um jeito melhor de criar esta matriz, que não seja através de TextBox, estou aberta a sugestões. Obrigada!!



    quarta-feira, 3 de maio de 2017 13:27

Todas as Respostas

  • Segue um código bem básico para confirmar se é isso que você precisa.

    Qualquer duvida estou a disposição.

    Private Sub CommandButton1_Click()
    
    If Me.nr_conta.Text = "" Then Exit Sub
    If Me.valor.Text = "" Then Exit Sub
    If Me.nome_conta.Text = "" Then Exit Sub
    
    Planilha2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Activate
    
    ActiveCell.Value = IIf(Me.credito.Value = True, "C", "D")
    ActiveCell.Offset(0, 1).Value = Me.nr_conta.Text
    ActiveCell.Offset(0, 2).Value = Me.nome_conta.Text
    ActiveCell.Offset(0, 3).Value = Me.valor.Text
    
    End Sub
    
    


    Renato MDSP


    • Editado Renato MDSP terça-feira, 13 de março de 2018 11:52
    segunda-feira, 12 de março de 2018 15:09