Este fórum está sendo desativado

[walber]

Boa Noite

Peguei este código da internet para o meu projeto, porém ele não funcionou como esperado.
É para funcionar para alterar os dados selecionados, mas ele salva um novo e não apaga o outro.

este foi o código que achei.

Private Sub CommandButton1_Click()

Dim Linha As Object

Set Linha = Plan1.Range("a10000").End(xlUp)

Linha.Offset(1,0).value = TextBox1.Text
Linha.Offset(1,1).value = TextBox2.Text
Linha.Offset(1,2).value = TextBox3.Text

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""

End Sub

[babdallas]

O que você quer que faça? Detalhe um pouco mais por favor.

Vi que vc insere dados de data, valor e descrição e atribui os dados destas textbox na linha abaixo da última linha preenchida.
Você gostaria que o código procurasse pela descrição e data na lista existente e, caso exista, altere o valor? Caos não exista, insira um novo? É isso?

[walber]

Quero que altere os valores.
Porque as vezes preciso mudar um valor ou a data, gostaria de fazer pelo formulário.

[babdallas]

Veja se ajuda. Não ficou do jeito que queria, mas parece estar funcionando.

[babdallas]

Melhorei o código