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,519 Visualizações
RSS
 afbergman
(@afbergman)
Posts: 108
Estimable 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: 2749
Famed Member
 

Ve se isso ajuda

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

...........

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

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

Bom dia!!!

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

Att

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

 
Postado : 04/10/2015 6:23 am
 afbergman
(@afbergman)
Posts: 108
Estimable 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: 108
Estimable 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: 2749
Famed Member
 

Olhando rapidamente o video que postei pode ajudar.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 04/10/2015 11:14 am
Fernando Fernandes
 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

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

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