Página 1 de 1

Complementar código

Enviado: 14 Nov 2017 às 20:49
por walber
uso este codigo para fazer alteração de uma informação do listview

Private Sub CmdPlan1_Click()

Application.ScreenUpdating = False
Sheets("Plan1").Activate

Cells(Lin, 1).Value = CDate(TxtData.Text)
Cells(Lin, 2).Value = Format(Me.TxtValor.Text, "R$ 0.00#,##")
Cells(Lin, 3).Value = TxtDescrição.Text

TxtData.Text = ""
TxtValor.Text = ""
TxtDescrição.Text = ""
Sheets("Menu").Activate
Application.ScreenUpdating = True

End Sub

gostaria que assim que eu altere alguma informação , o listview seja atualizado.

Re: Complementar código

Enviado: 15 Nov 2017 às 21:48
por babdallas
Não entendi. Tem certeza que colocou o código correto? Este código em nenhum momento está manipulando um listview.

Re: Complementar código

Enviado: 16 Nov 2017 às 16:12
por walber
o codigo e este

estou anexando a planilha

Re: Complementar código

Enviado: 22 Nov 2017 às 07:55
por wesleyribeiro123
Walber
Bom dia,

Use o código da seguinte forma:
Observe que fiz 2 pequenos ajustes para que funcione melhor teu código.
1º - Defina valor para variável "Lin";
2º - Use o comando "Call" para chamar a recuperação da ListView;

Com estes pequenos ajustes teu formulário irá funcionar.
Código: Selecionar todos
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheets("FARMACIA").Activate

Lin = Plan1.Cells(Rows.Count, 1).End(xlUp).Row + 1

Cells(Lin, 1).Value = CDate(TxtData.Text)
Cells(Lin, 2).Value = Format(Me.TxtValor.Text, "R$ 0.00#,##")
Cells(Lin, 3).Value = TxtDescrição.Text

TxtData.Text = ""
TxtValor.Text = ""
TxtDescrição.Text = ""
Sheets("Menu").Activate
Application.ScreenUpdating = True

Call BtnFarmacia_Click

End Sub