Inserir dados em um tabela

2024 - VBA & Macros

Post Recente por selmo 9 anos atrás

3 Posts

3 Usuários

0 Reactions

1,067 Visualizações

RSS

Leandro_fl

(@leandro_fl)

Posts: 1

New Member

Topic starter

Bom dia pessoal,

Sou novo para programação VBA, estou aprendendo por conta durante minhas horas livres.
Acredito que o jeito mais fácil de sanar minhas dúvidas é perguntando para pessoas mais experientes.

Estou tentando fazer uma planilha de controle de projetos onde eu insiro os dados e posso alterá-los futuramente.
Primeiro passo foi criar o "UserForm" e agora necessito fazer a programação para inserir os dados em uma tabela.
Por onde devo começar? Segue um print da minha interface.

Desde já agradeço por toda ajuda.

Postado : 17/02/2016 6:45 am

fcarlosc

(@fcarlosc)

Posts: 453

Honorable Member

Olá amigo,
Começa com esse código dentro do botão inserir.

Private Sub btnInserir_Click()

Dim UltimaLinha As Object

Set UltimaLinha = Plan1.Range("A65536").End(xlUp)

UltimaLinha.Offset(1, 0).Value = TextBox1.Text
UltimaLinha.Offset(1, 1).Value = TextBox2.Text
UltimaLinha.Offset(1, 2).Value = TextBox3.Text
UltimaLinha.Offset(1, 3).Value = TextBox4.Text
UltimaLinha.Offset(1, 4).Value = TextBox5.Text
UltimaLinha.Offset(1, 5).Value = TextBox6.Text
UltimaLinha.Offset(1, 6).Value = TextBox7.Text
UltimaLinha.Offset(1, 7).Value = TextBox8.Text

ActiveWorkbook.Save

TextBox1.Text = UltimaLinha.Offset(2, 0).Select

TextBox1.SetFocus

'Limpa Textbox

TextBox1.Text=""
TextBox2.Text=""
TextBox3.Text=""
TextBox4.Text=""
TextBox5.Text=""
TextBox6.Text=""
TextBox7.Text=""
TextBox8.Text=""

End Sub

Postado : 17/02/2016 8:20 am