Entrada de dados ap...
 
Notifications
Clear all

Entrada de dados apartir de um fmr  

  RSS

Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
08/08/2009 3:31 pm  

Entrar com dados através de um formulário
Senhores desculpe minha leiguise, mas sou iniciante no VBA.
Estou criando um sistema ´para controle de avarias.

Então, Criei um formulário, e a partir do preenchimento dele, queria inputar dados na planilha, acontece que eu só consigo inserir dados no meu primeiro intervalo de células vazias que são do "A12:M12", depois tudo que eu inserir no formulário sobescreve o que eu tinha entrada antes.

de uma olhada no meu código e ve se consegue me ajudar

Private Sub CommandButton1_Click()
Application.Goto reference:=("ini")
'Ini = celula A12 renomeada.
ActiveCell.Value = Me.TextBox_data
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Me.TextBox_produto
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Me.TextBox_código
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Me.TextBox_lote
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Me.TextBox_quantidade
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Me.TextBox_pallete
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Me.TextBox_tipodeavaria
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Me.TexBox_causadaavaria
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Me.TextBox_resppelaavaria
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Me.TexBox_causadaavaria
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Me.TextBox_dataemissão
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Me.TextBox_emissor
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Me.TextBox_status
ActiveCell.Offset(0, 1).Activate
ActiveCell.Value = Me.TextBox_observação
ActiveCell.Offset(1, -13).Activate
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Fernando Fernandes
(@fernandofernandes)
Illustrious Member
Entrou: 12 anos atrás
Posts: 44273
09/08/2009 8:33 am  


'determina a primeira linha vazia

FinalRow = Range("A65536").End(xlUp).Row + 1

Cells(FinalRow, 1) = Me.TextBox_data
Cells(FinalRow, 2) = Me.TextBox_produto
...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel


ResponderCitar (Quote)
Compartilhar: