Excluir Dados de Listview VBA e Planilha Excel com Botão Excluir Todos

Excluir Dados de Listview VBA e Planilha Excel com Botão Excluir Todos Duplo clique sobre o botão de comando e o primeiro passo é colocar um sistema de tratamento de erro on error goto erro caso tudo ocorreu bem Exit sub Caso contrário vai para erro dois pontos e exibe uma msgBox abre aspas duplas erro ponto de exclamação e fecha as aspas duplas vírgula VBCritical vírgula abre aspas duplas título da mensagem excluir e fecha as aspas duplas por enquanto deixem desativado o sistema de tratamento de erro prosseguindo precisamos.

Excluir Dados de Listview VBA e Planilha Excel com Botão Excluir Todos

Definir as variáveis da nossa macro dim as Double do tipo número dim resp as integer do tipo inteiro dim ID as string do tipo texto dim C as variante defini as variáveis Agora eu preciso solicitar uma confirmação para o usuário podem copiar a variável resp e a variável resp vai ser igual a uma msgBox abre e fecha parênteses e dentro dos parênteses abre e fecha aspas duplas e dentro das aspas duplas eu vou perguntar confirmar exclusão ponto de interrogação fora das aspas duplas vírgula e o.

Tipo de mensagem precisa ser VByesno vírgula abre e fecha aspas duplas e dentro das aspas duplas o título da mensagem eu vou colocar excluir fizemos a pergunta próximo passo é analisar qual foi a resposta podem pegar a variável resp if se a variável resp igual a VBno then neste caso nós vamos sair da macro Exit sub e end if se o usuário disse que não quer excluir nós vamos sair do código no entanto se passou por este if nós podemos prosseguir com a exclusão então agora.

Nós vamos trabalhar com um laço for para percorrer todas as linhas da listview for i igual a 1 to e agora pessoal eu preciso referenciar o nome da minha listview no meu caso o name da listview é Listview1 copia o nome da listview volta no código depois do to listview1 ponto list items ponto count para fechar o laço next i e dentro deste laço a cada linha que o laço passar nós precisamos capturar o critério para excluir no meu caso o critério de pesquisa para excluir a linha.

Da planilha vai ser o ID variável ID igual a List1 p list items item abre e fecha parênteses e dentro dos parênteses eu vou colocar a I desta forma pessoal é se o critério para exclusão estiver na primeira coluna da listview coluna zero se for a partir da coluna 2 vai ser diferente por exemplo se eu tivesse o ID na segunda coluna da listview eu faria desta forma variável ID igual a list um ponto list items abre e fecha parênteses e dentro dos parênteses variável I que representa.

A linha em que o laço está fora dos parênteses ponto subitems abre e fecha parênteses e para referenciar a coluna dois vocês vão colocar o número um dentro dos parênteses destacando que a contagem das colunas na listview inicia por zero no meu caso eu vou utilizar a primeira opção capturei o critério Agora eu preciso pesquisar pelo critério na planilha Excel no meu caso o nome da guia é dados e eu vou pesquisar pelo ID que consta na coluna B no entanto eu preciso.

Referenciar a guia da planilha utilizando o nome interno do VBA da Guia que é este planilha um fora dos parênteses Então vamos lá ainda dentro do laço for nós vamos colocar no meu caso planilha um abre e fecha parênteses e dentro dos parênteses abre e fecha aspas duplas e dentro das aspas duplas B dois pontos b coluna B e para fechar With nós vamos colocar end with e dentro deste With nós precisamos setar a variável c podem copiar a variável c set C igual aponto find abre e fecha.

Parênteses e dentro dos parênteses vai a variável ID no caso o critério para pesquisa vírgula na sequência looken dois pontos igual XL values vírgula look at dois pontos igual xlwhole para fazer uma pesquisa exata fizemos a pesquisa agora precisamos analisar Qual foi o retorno if not C is not then então se a variável c não é vazia significa que foi encontrado a linha da planilha para excluir and if Se entrou neste if eu vou deletar a linha correspondente da planilha Excel.

No meu caso guia planilha 1 planilha 1 RS a e fecha parênteses e dentro dos parênteses variável c ponto row para capturar o número da linha para deletar fora dos parénteses ponto delete excluimos a linha da planilha agora depois que sair do laço for eu vou limpar a listview então Listview1 ponto list items Ponto Clear limpei a listview agora eu preciso fechar a variável c podem Copiar esta parte set c igual nothing e por fim preciso avisar o usuário que foi excluído com.

Sucesso então MSBox abre e fecha aspas duplas e dentro das aspas duplas eu vou colocar excluído com sucesso ponto de exclamação fora das aspas duplas vírgula vbinformation vírgula abre e fecha aspas duplas título da mensagem vai ser excluir beleza galera fizemos a macro salva as alterações e vamos testar executando o formulário clicando no botão excluir confirmar exclusão Não cliquei por engano excluir confirmar exclusão Sim vamos ver excluído com sucesso show de bola.

Veja Também:

Postar um comentário

Post a Comment (0)

Postagem Anterior Próxima Postagem