Este fórum está sendo desativado

[Super385011]

Boa noite

Estou usando este código para fazer alteração na planilha via formulário, mas agora ele em vez de modificar a linha selecionada ele muda a linha anterior.


Private Sub CmdAlterar_Click()

Dim Lin As Long
Dim i As Long

Lin = Sheets("Plan1").Cells(Cells.Rows.Count, 1).End(xlUp).Row
If Lin < 2 Then ling = 2

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

For i = 2 To Lin
If Range("A" & i).Value = CDate(TxtData.Text) Then
Cells(i, 1).Value = CDate(TxtData.Text)
Cells(i, 2).Value = Format(TxtValor.Text, "R$ 0.00#,##")
Cells(i, 3).Value = TxtDescrição.Text
Exit For
End If
Next

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

End Sub

[osvaldomp]

...em vez de modificar a linha selecionada ...
No seu código não há referência a "linha selecionada"

Não sei se esta é a causa do seu problema:
If Lin < 2 Then ling = 2 ~~~> me parece que deveria ser If Lin < 2 Then Lin = 2

[Super385011]

Boa noite.

Coloquei conforme a sua sugestão, mas o erro continua.
Se tiver como sugerir uma outra forma de fazer as alterações.

[osvaldomp]

sugestão - disponibilize uma amostra do seu arquivo Excel e explique com exatidão na própria planilha o que você deseja fazer e explique o que você quer dizer com "em vez de modificar a linha selecionada ele muda a linha anterior"

[Super385011]

Estou anexando a planilha e o arquivo no formato rar está mostrando o erro