Notifications
Clear all

Deletar itens da Listbox

3 Posts
2 Usuários
0 Reactions
947 Visualizações
(@laeoli)
Posts: 85
Estimable Member
Topic starter
 

Boa tarde!

Tenho uma ListBox na qual seleciono varios itens, porém não consigo excluí-los de uma única vez.

If Me.ListBoxFil2.SelectedIndex > -1 Then
 Me.ListBoxFil2.Items.RemoveAt (Me.ListBoxFil2.SelectedIndex)
End If[color=#0000BF][/color]

Grato

at

Laerte

 
Postado : 31/05/2014 1:09 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Laerte, voce só postou parte das instruções, e não especificou como são carregados os itens no ListBox, se utiliza o RowSource ou AddIten, isto faz diferença, se utiliza Rowsource devemos deletar primeiro na planilha e depois recarregar o userform, se utiliza o AddIten da para utilizar RemoveItem.

Em 2013, você abriu um tópico parecido e deu como resolvido, não seria a mesma coisa?

Como excluir linha selecionada listbox
Mensagempor Laeoli » 15 Dez 2013, 13:17

viewtopic.php?t=9930&p=52139

Tambem pode dar uma olhada no tópico:
Excluir valor de listbox conforme condição
viewtopic.php?f=10&t=2583

[]s

 
Postado : 31/05/2014 2:09 pm
(@laeoli)
Posts: 85
Estimable Member
Topic starter
 

Olá Mauro,

Entendi, tenho um botão carregar (gera a ListBox) e um botão excluir (para deletar varias linhas de uma vez), veja o código:

Private Sub btnCarregar2_Click()
Dim TOTAL As Double
With Sheets("ACESSO").UsedRange
       ListBoxFil2.ColumnCount = .Columns.Count
        ListBoxFil2.RowSource = .Address
    End With
    TextBox12 = ListBoxFil2.ListCount
For lItem = 0 To ListBoxFil2.ListCount - 1
     'soma o peso total das linhas
If IsNumeric(ListBoxFil2.List(lItem, 8)) = True Then
        TOTAL = TOTAL + CDbl(ListBoxFil2.List(lItem, 8))
txtEnt12 = TOTAL
End If
    Next
    If Plan7.Range("A2") = "" Then
   
        MsgBoxTimer (1), "Pasta vazia clique no menu Abrir", (Aviso)
       Unload Me
    End If
End Sub

Private Sub btnExcluir2_Click()
'If Me.ListBoxFil2.SelectedIndex > -1 Then
 Me.ListBoxFil2.Items.RemoveAt (Me.ListBoxFil2.Selected)
End If
  TextBox12 = ListBoxFil2.ListCount
        End Sub[color=#0000BF][/color]

grato!

 
Postado : 31/05/2014 2:26 pm