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

Question

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!!

Answer 1

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