Este fórum está sendo desativado

[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.

[babdallas]

Não entendi. Tem certeza que colocou o código correto? Este código em nenhum momento está manipulando um listview.

[walber]

o codigo e este

estou anexando a planilha

[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