Guru do Excel e Power BI

Bom dia, caros colegas.

Estou tentando deletar um item da minha planilha através da listbox, mas não está dando certo.

O que está errado nesse comando? Alguém pode me ajudar?

Dim indice As Integer

indice = ListBox2.ListIndex 'Verifica qual a linha está selecionada no listbox

If MsgBox("Deseja excluir este item ?", vbExclamation + vbYesNo) = vbYes Then
Rows(indice).Delete 'Deleta a linha na planilha de acordo com o indice selecionado
MsgBox "Item deletado com sucesso", vbInformation
End If

Aguardo e agradeço.

Segue exemplo.

Não deu certo, babdallas!

No anexo que você enviou funcionou, mas quando eu passei para o meu projeto e substituí onde precisava substituir, retornou o erro "Não é possível obter a propriedade Match da classe WorksheetFunction".

No caso, eu tenho várias planilhas onde eu escolho em qual delas vou deletar através de uma combobox. Talvez seja isso.

Como substituir a linha abaixo quando se tem mais de uma sheet?

************** Seu código ********************
Private Sub cmdExcluir_Click()
Dim lngLinha As Long
Dim rngUltcel As Range


Set rngUltcel = Planilha1.Cells(Rows.Count, 2).End(xlUp)

With frmListbox.lstItem
lngLinha = Application.WorksheetFunction.Match(CLng(.List(.ListIndex, 1)), Planilha1.Range(Planilha1.Cells(2, 2), Planilha1.Cells(rngUltcel.Row, 2)), 0) + 1
End With

Rows(lngLinha).Delete

MsgBox "Dado excluído com sucesso"
End Sub

************** Seu código alterado ********************
Private Sub ExcluirP_Click()
Dim lngLinha As Long
Dim rngUltcel As Range


Set rngUltcel = Plan2.Cells(Rows.Count, 2).End(xlUp)

With NF.ListBox2
lngLinha = Application.WorksheetFunction.Match(CLng(.List(.ListIndex, 1)), Plan2.Range(Plan2.Cells(2, 2), Plan2.Cells(rngUltcel.Row, 2)), 0) + 1
End With

Rows(lngLinha).Delete

MsgBox "Dado excluído com sucesso"
End Sub

Crie uma variável do tipo Worksheet (Dim wstPlan as worksheet) e depois seta ela conforme vc escolher na combobox (set wstPLan = worksheets("frm.cboPLan.text")

Então você usa wstPLan no lugar de plan2 do seu código. Tenta aí. Caso não consiga, coloca sua planilha em anexo que vejo para você.

Corrigindo: set wstPLan = worksheets(frm.cboPLan.text)

cboPlan é um nome fictício que dei à combobox. Substitua pelo nome da sua.

Amigo

Veja isto...

Wesley e babdallas, deu certo o comando, porém, ele deleta a linha inteira e como eu tenho outras tabelas dinâmicas na mesma planilha, ele deleta linhas das outras tabelas também.

Tem como deletar somente de uma tabela específica, ou de um range?

Uma pequena alteração para deletar somente os dados e não a linha. Veja o anexo.

Valeu colegas! Muito obrigado Wesley e babdallas!