Excel Carregar listbox para textbox, editar e filtrar com caixa seleção

[Edgar blz]

Pessoal estou apreendo vba e criei uma planilha pro meu dia-a-dia.  

Usei vários vídeos e tutoriais que encontrei, não reparem na bagunça.  

Preciso de ajuda, pois não estou conseguindo terminar.  

Preciso carregar a listbox na textbox, Combobox, e nas Image.  

A listbox tá funcionando bem, só não entendo como "reverter" o processo.

Trazer os cadastros para as textbox para  habilitar a edição. E nem como aplicar o filtro (aberto,concluído...etc)

A vba tá assim.:

Private Sub UserForm_Initialize()  



ListBox1.ColumnWidths = "50;100;150;100"  



Dim ULTIMALINHA As Long  

Dim Linha As Integer  



ULTIMALINHA = Plan1.Range("a1048576").End(xlUp).Row  



For Linha = 2 To ULTIMALINHA  



UserForm1.ListBox1.AddItem Plan1.Range("A" & Linha)  



UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 1) = Plan1.Range("D" & Linha)  



UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 2) = Plan1.Range("E" & Linha)  



UserForm1.ListBox1.List(UserForm1.ListBox1.ListCount - 1, 3) = Plan1.Range("P" & Linha)  



Next  



End Sub  

 

Estou preso nesta parte. Não consigo trazer os dados e nem as imagens adicionadas. (Tá sem foto no anexo no modelo de teste)  

 

Ainda quero habilitar o botão alterar/editar  

 

E depois ainda usar o filtro com as caixas de seleção.  

 

Estou colocando a planilha caso interesse a alguém. Pretendo usar ela para monitorar as atividades e demandas em aberto.

 

Talvez um dia Gerar relatório e imprimir. KKK....estou bem longe.  

 

Relatório.zip

[Midori]

@Edgar beleza Para pegar esses dados é só passar para a propriedade List a linha e coluna do controle, p.ex,

 

Private Sub ListBox1_Click()
    Txt_Data.Value = ListBox1.List(ListBox1.ListIndex, 0)
    Txt_Nome.Value = ListBox1.List(ListBox1.ListIndex, 1)
End Sub

 

Assim quando selecionar algum item do ListBox vai retornar para Data a posição da primeira coluna e para Nome a segunda.

[Edgar blz]

@Midori Consegui fazer Obrigado. Eu estava usando processo Change conforme alguns tutoriais e no meu não carregava.

 

usando esta mesma lógica como eu carrego as imagens ao selecionar a linha na listbox?

 

Eu uso para inserir no formulário:

Private Sub Isert_Image1_Click()
'Carregar foto sem erro na caixa imagem, a variante foi definida no modulo 1
Foto1 = Application.GetOpenFilename(FileFilter:="picturesfiles,*.jpg")
If Foto1 <> "Falso" Then

Me.Image1.Picture = LoadPicture(Foto1)

Exit Sub

End If

End Sub

 

E para salvar o endereço

 

.Range("j" & Linha).Value = Foto1

 

eu não entendo:

Txt_Nome.Value = ListBox1.List(ListBox1.ListIndex, 1) para trazer os texto, para imagens não devia ser semelhante?

tipo:  "Image1.picture = ListBox1.List(ListBox1.ListIndex, 8)"

 

[Midori]

10 horas atrás, Edgar beleza disse:

para trazer os texto, para imagens não devia ser semelhante?

tipo:  "Image1.picture = ListBox1.List(ListBox1.ListIndex, 8)"

Para retornar o caminho ou nome a imagem sim, mas é preciso passar o caminho e fazer a atribuição com LoadPicture como você fez no Isert_Image1, p.ex,

 

Image1.Picture = LoadPicture(ListBox1.List(ListBox1.ListIndex, 8))

 

[Edgar blz]

@Midori  obrigado.