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:
- Planilha de Avaliação Roda da Vida em Excel 6.0
- Gráfico de Mapa no Power BI #powerbi
- Instalação Planilha Cadastro de Membros Completa
Postar um comentário