Notifications
Clear all

ajuda com gravaçao

4 Posts
2 Usuários
0 Reactions
880 Visualizações
(@pedro_m)
Posts: 0
New Member
Topic starter
 

Boa noite.

amigos, precisava de um codigo para um formulario em que faço o registo dos kms de viaturas.

o formulario é simples. sao varias textboxs em que coloco os quilometros finais das varias viaturas.

o erro que me está a dar é caso eu coloque só o registo de uma viatura e nos outros nao coloque nada, ele vai eliminar os dados da celula onde grava e fico com erro nos dados.

a minha folha excel apresenta km da proxima revisao, os klm ao fim do mes e tenho outra celula que diz os klms em falta para a revisao(este esta formatada no excel com a subtraçao das duas celulas)

eu tenho este codigo que faz a gravaçao no sitio certo da panilha excel

Dim linha As Object
Set linha = Folha3.Range("O2").End(xlUp)
linha.Offset(2, 0).Value = cmb_meses.Text

linha.Offset(3, 0).Value = TextBox1.Text
linha.Offset(4, 0).Value = TextBox2.Text
linha.Offset(5, 0).Value = TextBox3.Text
linha.Offset(6, 0).Value = TextBox4.Text
linha.Offset(8, 0).Value = TextBox5.Text
linha.Offset(9, 0).Value = TextBox6.Text

end sub.

o problema é que se eu nao colocar dados numa textbox, ele faz com que os valores que tenho na panilha, fiquem em branco e elimina as contas existentes.

 
Postado : 13/03/2016 2:53 pm
(@mprudencio)
Posts: 0
New Member
 

como vc nao disponibilizou o arquivo imagino que vc tenha uma textbox para cada sugestao faça uso de uma unica textbox para o lançamento do KM de cada viatura.

 
Postado : 13/03/2016 3:43 pm
(@pedro_m)
Posts: 0
New Member
Topic starter
 

Amigo Mprudencio,
sim tenho uma textbox para cada viatura.
nao percebi o exemplo que voce quis dizer

 
Postado : 14/03/2016 3:06 pm
(@mprudencio)
Posts: 0
New Member
 

Olha um exemplo

Nao me preocupei com formatações do form nem das txtbox, isso vc pode ajustar a seu gosto

 
Postado : 14/03/2016 3:52 pm