Este fórum está sendo desativado

[avgsantos]

Boa noite, Equipe de Fórum

Tenho um formulário com os dados em listbox e um botão para exibir um relatório de dados excluídos, minha duvida é o seguinte é possível selecionar mais de 2 linha no listbox para excluir os dados?
Segue a planilha em anexo

Obrigado
Avgsantos

[osvaldomp]

... minha duvida é o seguinte é possível selecionar mais de 2 linha no listbox para excluir os dados?

Para excluir na planilha os registros correspondentes a todas as linhas selecionadas na TextBox é preciso um Loop pelos itens da TextBox para verificar quais estão selecionados.
O exemplo abaixo irá limpar os registros na planilha "box1" que correspondam aos itens selecionados na TextBox1.
Se você quiser que o código execute mais ações relativas a cada item selecionado, inclua as ações no Loop.

Código: Selecionar todos

Private Sub btn_excluir_Click()
 Dim i As Long, k As Long
  For i = 0 To ListBox1.ListCount - 1
   If ListBox1.Selected(i) = True Then
    k = Sheets("box1").[A:A].Find(ListBox1.List(i), lookat:=xlWhole).Row
    Sheets("box1").Cells(k, 1).Resize(, 7).Value = ""
   End If
  Next i
End Sub

dica - não utilize Select ao elaborar os seus códigos

[avgsantos]

Bom dia, Osvaldomp

Excelente raciocínio me atendeu a expectativa, obrigado

avgsantos