silvajmp0
-
Posts
33 -
Cadastrado em
-
Última visita
Tópicos solucionados
-
O post de silvajmp0 em Preencher ListBox2 clicando na lista Listbox1 foi marcado como solução
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
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais
