silvajmp0

Pessoal, minha duvida e necessidade foi resolvido conforme código abaixo: Private Sub ListBox1_Click() Dim linha As Integer Dim itenslistbox As Integer ' SetCampoCad ' Set LinhaProcBDAtiv = ShtBDAtiv.Columns("A:A").Find(ShtCad.ListBox1, LOOKAT:=xlWhole) ' For a = 0 To 4 CampoCad(a) = LinhaProcBDAtiv.Offset(0, a).Value Next 'Limpa listbox2 ShtCad.ListBox2.Clear linha = 1 itenslistbox = 0 While ShtBDMat.Cells(linha, 1) <> "" ' 'A função TRIM retira espaços em branco antes depois do texto If Trim(ShtBDMat.Cells(linha, 1).Value) = Trim(ShtCad.ListBox1.Value) Then ShtCad.ListBox2.AddItem ' ShtCad.ListBox2.List(itenslistbox, 0) = ShtBDMat.Cells(linha, 2) 'número do item ShtCad.ListBox2.List(itenslistbox, 1) = ShtBDMat.Cells(linha, 3) 'codigo ShtCad.ListBox2.List(itenslistbox, 2) = ShtBDMat.Cells(linha, 4) 'descrição ShtCad.ListBox2.List(itenslistbox, 3) = ShtBDMat.Cells(linha, 5) 'qte ShtCad.ListBox2.List(itenslistbox, 4) = ShtBDMat.Cells(linha, 7) 'vr unit ShtCad.ListBox2.List(itenslistbox, 5) = ShtBDMat.Cells(linha, 8) 'vr total ' itenslistbox = itenslistbox + 1 End If ' linha = linha + 1 Wend End Sub

Olá Pessoal preciso da ajuda de vocês, fiz 2 formulários na planilha mesmo, sendo um para cadastramento de serviço, onde eu cadastro primeiro, e depois utilizo um ListBox1 do controle ActiveX do Excel para visualizar os serviços já cadastrados, onde seleciono um dos serviços na lista do ListBox1 e faço o cadastramento dos item(ns) de materiais no outro formulário para o serviço selecionado, porém coloquei um ListBox2 para quando seleciona-se um dos serviços na ListBox1 aparece-se na ListBox2 os itens de materiais cadastrados somente do serviço selecionado. Fiz várias combinações de código, mas não consegui o resultado esperado. Segue em anexo um modelo do que eu preciso. JSILVA Modelo.zip