Visual Basic Excluir linha com base em valor do listbox (excel - vba)

[Jefferson TS]

 

Olá. Preciso procurar em duas tabelas distintas (dentro da planilha 8 (fisio_presenças)) o valor da guia da linha selecionada no listbox e exluir, assim que clicar no commandbuttonBaixar. E repetir até que não tenha mais nenhum valor dessa guia nas tabelas.

Alguem poderia me ajudar?

CONTROLE NOVO.rar

[RafaVillani]

 @Jefferson TS, você vem criando seus posts no lugar errado (Programação-Outros-Visual Basic), por mais que VBA seja baseado em Visual Basic, acredito que o correto seria criar em Pacotes de Escritorio-Microsoft Office.

 

Sobre sua dúvida, veja se o código lhe atende.

 

Dim Tabela1 As ListObject, Tabela2 As ListObject
Dim LinhaTabela1 As Long, LinhaTabela2 As Long
Dim L As Long, LinhaListbox As Long

Set Tabela1 = Planilha8.ListObjects("BASE_PRESENÇAS")
Set Tabela2 = Planilha8.ListObjects("TABELA_PRESENÇAS")
 
LinhaTabela1 = Tabela1.ListRows.Count
LinhaTabela2 = Tabela2.ListRows.Count
 
LinhaListbox = Me.ListBoxBAIXA.ListIndex

For L = 1 To LinhaTabela1
    If Tabela1.DataBodyRange.Cells(L, 2) = Me.ListBoxBAIXA.List(LinhaListbox, 1) Then
        Tabela1.DataBodyRange.Cells(L).Delete
        L = L - 1
    End If
Next L

For L = 1 To LinhaTabela2
    If Tabela2.DataBodyRange.Cells(L, 2) = Me.ListBoxBAIXA.List(LinhaListbox, 1) Then
        Tabela2.DataBodyRange.Cells(L).Delete
        Exit Sub
    End If
Next L

RafaVillani

[Jefferson TS]

@RafaVillani

14 minutos atrás, RafaVillani disse:

você vem criando seus posts no lugar errado

beleza. Vou proceder assim.

 

Tabela1.DataBodyRange.Cells(L).Delete

Está dando erro nesta parte

[RafaVillani]

@Jefferson TSSubstitua essas linhas:

 

Tabela1.DataBodyRange.Cells(L).Delete por

 

Tabela1.ListRows(L).Delete

 

e Tabela2.DataBodyRange.Cells(L).Delete por

 

Tabela2.ListRows(L).Delete

 

Veja se funciona assim, aqui funcionou com ambas as linhas.

 

RafaVillani

[Jefferson TS]

@RafaVillani Show. Funcionou certinho agora. Obrigado.

Aproveitando, caso não tenha nada selecionado na listbox dá erro. Sabe me dizer como eu poderia exibir msgbox pedindo pro usuario selecionar algum item quando não tiver nada selecionado?

[RafaVillani]

@Jefferson TSColoque este linha de comando antes do primeiro For.

 

If LinhaListbox < 0 Then
    MsgBox "Nenhum registro selecionado!", vbInformation, "ERRO"
    Exit Sub
End If

RafaVillani