Este fórum está sendo desativado

[AdrianoVdP]

Boa noite meus amigos,
Preciso de uma ou mais sugestão de melhoria para meu formulário,
Na planilha anexo tem um exemplo de um formulário de cadastro tudo funcionando, e tenho nele um botão de atualizar os dados, e no botão atualizar, ele atualiza os dados no cadastro que é um único registro, e também atualiza o nome em uma base de dados de lançamento que pode ocorrer varias vezes o mesmo nome, fiz de uma maneira com Do While, mais estou achando que ficou um pouco lento, gostaria de melhorar se possível.

Antecipo grandemente a atenção

[JCabral]

AdrianoVdP

Veja se assim fica mais rápido

Abraço
Jorge Cabral

[AdrianoVdP]

Boa tarde,
Jorge, ficou fantástico a velocidade.
Muito obrigado pela atenção
Agora estudar seu código para aprender.

Um abraço

[JCabral]

A explicação é simples, defini uma variável global - TextoInicial - que guarda o valor inicial do nome - TextoInicial = TextBox2 - quando btnEditar_Click é ativado, depois de todos os dados serem atualizados através da ativação do botão btnAtualizar_Click faço uma simples substituição na aba "BASE" coluna "H" do nome antigo pelo novo através da instrução Selection.Replace What:=TextoInicial, Replacement:=TextBox2, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False

Espero ter ficado claro, qualquer duvida pergunte. Contudo se fosse eu deixava o post aberto porque tem aqui gurus que percebem muito disto e podem te ajudar melhor.
Abraço
Jorge Cabral