cadastro listview com filtro

2024 - VBA & Macros

Post Recente por denisw 10 anos atrás

5 Posts

3 Usuários

0 Reactions

1,102 Visualizações

RSS

denisw

(@denisw)

Posts: 64

Trusted Member

Topic starter

Boa tarde Srs.
Inciei um projeto de cadastro , peguei dois modelos e adaptei em um form só. a parte cadastro , altera e exclui está ok .
agora embaço nos filtros . no modelo anexo iniciei somente com o combobox cmbuf. se este der certo já consigo trabalhar co os restantes
Tem um codigo no botão OK que não deu certo , ele deveria filtrar somente o estado que aparece no cmbuf (ele faz isso na Plan , mas no listview não esta atulizando pra ficar de acordo com o filtrado.
aguardo vossa ajuda

listview31102014.rar

Postado : 05/11/2014 10:17 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

VBA com senha?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 05/11/2014 10:30 am

denisw

(@denisw)

Posts: 64

Trusted Member

Topic starter

030583 DESCULPEM

Postado : 05/11/2014 12:39 pm

Reinaldo

(@rlm)

Posts: 246

Estimable Member

Experimente o código do Botão OK assim:

Private Sub Filtrando_Click()
Listgeral.ListItems.Clear
ultimaLinha = Plan1.Cells(Plan1.Cells.Rows.Count, "a").End(xlUp).Row
   
For x = 2 To ultimaLinha
    If Plan1.Cells(x, "C") = Cmbuf.Value Then
    Set li = Listgeral.ListItems.Add(Text:=Plan1.Cells(x, "a").Value)
        li.ListSubItems.Add Text:=Plan1.Cells(x, "b").Value
        li.ListSubItems.Add Text:=Plan1.Cells(x, "c").Value
        li.ListSubItems.Add Text:=Plan1.Cells(x, "d").Value
        li.ListSubItems.Add Text:=Plan1.Cells(x, "e").Value
    End If
Next
End Sub

Reinaldo

Postado : 05/11/2014 3:31 pm