Olá Pessoal, espero que todos estejam bem, enrosquei para excluir itens da planilha pelo listbox, nesse metodo que estou usando ele apenas usa uma coluna para critério de comparação, no meu caso tá pegando a coluna 0 da list e a G da planilha, mas vou ter nomes repetidos as vezes, precisaria ter pelo menos 3 colunas de critério, segue o comando.
Dim Resp As Integer
Resp = MsgBox("Confirma Exclusão?", vbYesNo, "Excluir")
If Resp = vbYes Then
Planilha5.Select
Planilha5.Range("G1").Select
For i = 0 To (ListBox1.ListCount - 1)
If ListBox1.Selected(i) = True Then
Cod = ListBox1.List(i, 0)
With Worksheets("BASE1").Range("G:M")
Set C = .Find(Cod, LookIn:=xlValues, Lookat:=xlWhole)
If Not C Is Nothing Then
C.Select
Selection.EntireRow.Delete
ListBox1.Selected(i) = False
End If
End With
End If
Next
End If
Tentei mudar na linha "Cod=ListBox1.List(i, 0) " tentei acrescentar ([i, 0],[i,1])
não deu certo, alguma ideia ai pessoal?
Obrigado!
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Excluir da planilha pelo Listbox, usando duas colunas como critério
Re: Excluir da planilha pelo Listbox, usando duas colunas como critério
Boa tarde, alxnc2008
A explicação acima ficou um pouco confuso (sem um modelo).. desta forma para ajudá-lo com maior rapidez e eficácia, é
muito importante você anexar uma planilha de exemplo com dados (fictícios) e que não seja o projeto
inteiro (com o trecho que está com dificuldades); explicando com as informações necessárias para
alcançar o seu objetivo (se necessário incluir imagens elucidativas)..
Aguardamos a sua resposta e a Planilha exemplo ...
LaerteB
A explicação acima ficou um pouco confuso (sem um modelo).. desta forma para ajudá-lo com maior rapidez e eficácia, é
muito importante você anexar uma planilha de exemplo com dados (fictícios) e que não seja o projeto
inteiro (com o trecho que está com dificuldades); explicando com as informações necessárias para
alcançar o seu objetivo (se necessário incluir imagens elucidativas)..
Aguardamos a sua resposta e a Planilha exemplo ...
LaerteB