Preencher ListBox2 clicando na lista Listbox1

[silvajmp0]

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

[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