Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Alterar linha
 
Notifications
Clear all

Alterar linha

 
2024 - VBA & Macros
7 Posts
3 Usuários
0 Reactions
1,520 Visualizações
RSS
 afbergman
(@afbergman)
Posts: 0
New Member
Topic starter
 

Olá Pessoal,

Estou tentando criar uma rotina que me permita apagar/alterar um dado ja salvo atraves de um textbox.

Tenho o seguinte codigo:

Private Sub editar_btn_Click()

ActiveCell.Offset(0, 1).Value = nf_do_tso_txt.Text


MsgBox "DADO ATUALIZADO COM SUCSSO", vbOKOnly, "TSO"

Call preencherlistview

End Sub

Eu tenho um listview, clico duas vezes na linha que quero alterar, os dados preenchem minhas textbox, gostaria de alterar/apagar qualquer dado e salvar novamente na mesma linha.

Como faço?

Abraços.

 
Postado : 03/10/2015 8:39 am
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Ve se isso ajuda

https://www.youtube.com/watch?v=hCpOEqu ... TS17d6sykT

...........

 
Postado : 03/10/2015 2:36 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!!

Os valores que o TextBox possuirá tem um valor único?

Att

 
Postado : 04/10/2015 6:23 am
 afbergman
(@afbergman)
Posts: 0
New Member
Topic starter
 

Bom dia!!!

Os valores que o TextBox possuirá tem um valor único?

Att

Serão numeros somente!!

 
Postado : 04/10/2015 10:44 am
 afbergman
(@afbergman)
Posts: 0
New Member
Topic starter
 

Pessoal, segue o arquivo para que possam visualizar melhor.

Abraços

Ótica v1.2.xlsm
 
Postado : 04/10/2015 10:45 am
 MPrudencio
(@mprudencio)
Posts: 0
New Member
 

Olhando rapidamente o video que postei pode ajudar.

 
Postado : 04/10/2015 11:14 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Poderia ser algo +/- assim:

Private Sub editar_btn_Click()
Dim lAlt As Long

lAlt = ListView1.SelectedItem.Index + 4

heets("BANCO TSO").Range("C" & lAlt).Value = loja_cmb.Value
Sheets("BANCO TSO").Range("D" & lAlt).Value = vendedor_cmb.Value
Sheets("BANCO TSO").Range("E" & lAlt).Value = dnp_od_txt.Value
Sheets("BANCO TSO").Range("F" & lAlt).Value = dnp_oe_txt.Value
Sheets("BANCO TSO").Range("G" & lAlt).Value = alt_od_txt.Value
Sheets("BANCO TSO").Range("H" & lAlt).Value = alt_oe_txt.Value
Sheets("BANCO TSO").Range("I" & lAlt).Value = tipo_e_cor_txt.Value
Sheets("BANCO TSO").Range("J" & lAlt).Value = mat_txt.Value
Sheets("BANCO TSO").Range("K" & lAlt).Value = aro_txt.Value
Sheets("BANCO TSO").Range("L" & lAlt).Value = ponte_txt.Value
Sheets("BANCO TSO").Range("M" & lAlt).Value = longe_esf_od_txt.Value
Sheets("BANCO TSO").Range("N" & lAlt).Value = longe_esf_oe_txt.Value
Sheets("BANCO TSO").Range("O" & lAlt).Value = long_cil_od_txt.Value
Sheets("BANCO TSO").Range("P" & lAlt).Value = long_cil_oe_txt.Value
Sheets("BANCO TSO").Range("Q" & lAlt).Value = long_eixo_od_txt.Value
Sheets("BANCO TSO").Range("R" & lAlt).Value = long_eixo_oe_txt.Value
Sheets("BANCO TSO").Range("S" & lAlt).Value = perto_esf_od_txt.Value
Sheets("BANCO TSO").Range("T" & lAlt).Value = perto_esf_od_txt.Value
Sheets("BANCO TSO").Range("U" & lAlt).Value = perto_cil_od_txt.Value
Sheets("BANCO TSO").Range("V" & lAlt).Value = perto_cil_oe_txt.Value
Sheets("BANCO TSO").Range("W" & lAlt).Value = perto_eixo_od_txt.Value
Sheets("BANCO TSO").Range("X" & lAlt).Value = perto_eixo_oe_txt.Value
Sheets("BANCO TSO").Range("Y" & lAlt).Value = armacao_mod_txt.Value
Sheets("BANCO TSO").Range("Z" & lAlt).Value = subtotal_txt.Value
Sheets("BANCO TSO").Range("AA" & lAlt).Value = desconto_txt.Value
Sheets("BANCO TSO").Range("AB" & lAlt).Value = entrada_txt.Value
Sheets("BANCO TSO").Range("AC" & lAlt).Value = total_txt.Value
Sheets("BANCO TSO").Range("AD" & lAlt).Value = tipo_venda_cmb.Value
Sheets("BANCO TSO").Range("AE" & lAlt).Value = cheque_txt.Value
Sheets("BANCO TSO").Range("AF" & lAlt).Value = cartao_txt.Value
Sheets("BANCO TSO").Range("AG" & lAlt).Value = dinheiro_txt.Value
Sheets("BANCO TSO").Range("AH" & lAlt).Value = carne_txt.Value
Sheets("BANCO TSO").Range("AI" & lAlt).Value = nf_do_tso_txt.Value
Sheets("BANCO TSO").Range("AK" & lAlt).Value = receita_txt.Value
Sheets("BANCO TSO").Range("AL" & lAlt).Value = medico_txt.Value
Sheets("BANCO TSO").Range("AM" & lAlt).Value = sinal_txt.Value


ActiveCell.Offset(0, 35).Value = nf_do_tso_txt.Text

MsgBox "DADO ATUALIZADO COM SUCSSO", vbOKOnly, "TSO"

Call preencherlistview

End Sub
 
Postado : 05/10/2015 12:52 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico