Edgar blz

Preciso ampliar o filtro que minha listbox carrega de um critério para 5 critérios. .A listbox3 está carregando o filtro com base na planilha1("Q2"), mas quero inserir mais critérios na (q3,q4,q5,q6 ou R2,s2,T2 etc.) em com base nestes critérios filtra os dados e carregar a listbox. Sub filtrados() ListBox3.ColumnWidths = "50;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50;50" ListBox3.Clear Dim i As Integer Dim j As Integer Dim x(1 To 1, 1 To 19) 'numero máximo de colunas ListBox3.List = x ListBox3.Clear For i = 2 To 10000 If Plan1.Cells(i, 16).Value = Planilha1.Range("q2").Value Then 'mais opções, como fazer a repetição de pesquisa ListBox3.AddItem For j = 0 To 17 'numero máximo de colunas a partir de 0 ListBox3.List(ListBox3.ListCount - 1, j) = Cells(i, j + 1).Value Next End If Next End Sub

Estou com dificuldade em encontrar um filtro que venha a se adequar ao meu projeto. Se alguém tiver alguma ideia sobre como fazer este filtro eu agradesço. Quero filtrar uma listbox com caixa de seleção. Deixei um print de exemplo em anexo. Resumindo a linha da listbox que vai filtrar os dados é a 3. São 4 opções de caixa de seleção e gostaria que a opção ativo já inicia-se ativa com o formulário filtrando.

@Midori obrigado.

@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)"

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