Este fórum está sendo desativado

[gilbertjuniors]

Pessoal, boa noite.
Preciso de ajuda em relação ao seguinte problema:

Criei um formulário para buscar os departamentos disponíveis na empresa carregando num ListBox.

Existem 2 ListBox e 2 botões entre eles, incluir e excluir itens do 2 ListBox.

A falha ocorre quando um item selecionado no ListBox2 e removido, devendo retornar ao ListBox1, pois está ficando um espaço entre os itens anteriores e o movido para o ListBox1.

Segue uma planilha que criei para exemplificar o problema apresentado também na outra (lá da empresa).


Grato a quem der uma luz.

[babdallas]

Mude este código. Você estava adicionando uma linha em branco na listbox1. O que eu fiz foi subtrair 2 de ultLinha ao invés de 1.

Sub AddSetores()

With ThisWorkbook.Sheets("Departamentos")
ultLinha = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 0 To ultLinha - 2
If .Cells(i + 2, 1).Value <> "Total" Then
UserForm1.ListBox1.AddItem (.Cells(i + 2, 1).Value)
End If
Next
End With

End Sub

[gilbertjuniors]

Resolvido.


Obrigado