BOa noite!!

Por favor leia as regras, os arquivos devem ser compactados!!
viewtopic.php?f=7&t=203
Vá na prorpiedade Row Source e limpe-a
Att

Muito obrigada pela rápida resposta Alexandre! E desculpe pelo arquivo.

Só mais uma pergunta, se eu tenho que limpar a row source como que eu posso definir os items da caixa de listagem?

Obrigada mais uma vez!

Boa noite!!

Considerando que você tem um intervalo nomeado ( '=INSTRUÇÕES!D7:D14) =AleVBA

Private Sub UserForm_Initialize()
Worksheets("INVENTÁRIO").Activate
'=INSTRUÇÕES!D7:D14

With frame_dados
lbox_item.RowSource = "AleVBA"
End With

'Call LimpaControles

End Sub

Veja em:
http://www.sendspace.com/file/da9y99
Att

Oi Alexandre,

Desculpe, sei q estou sendo muito burra, mas não consigo!

Private Sub UserForm_Initialize()
Dim AleVBA As Range
Set AleVBA = Worksheets("INVENTÁRIO").Range("D7:D14")

Worksheets("INVENTÁRIO").Activate

With frame_dados
lbox_item.RowSource = "AleVBA"
End With

Call LimpaControles

End Sub

Fica aparecendo que não foi possível definir o valor da propriedade row.source.

Muito obrigada pela paciência!

Boa noite!!

Veja se é isso
http://www.sendspace.com/file/tqj0sh

Att

Oi Alexandre,

No arquivo que você mandou também não tem itens para serem selecionados no listbox do userform.
Será q é esse arquivo mesmo?

Obrigada de novo!

Boa noite!!

se tem que tentar entender o que você e o que você está fazendo!!

Isso é o motivo

Private Sub LimpaControles()
        
       ' lbox_item.Clear '<-----Olha aqui
        tb_qtde.Text = ""
        tb_centro.Text = ""
   
End Sub

Por algum motivo você usou um comando para limpar os controles!

Att