grande Reinaldo.. muiiiiiiiiiito obrigado resolveu um dos meus problemas....recebeu meu joinha...por isso que eu me amarro nesse forum só tem fera...

pessoal ainda continuo com os seguintes problemas

1° eu preciso caso apareça vencido na coluna "K" da minha planilha "dados" toda a linha(Backcolor) correspondente da minha list view fique vermelha... caso apareça OK na coluna "K" da minha planilha "dados" toda a linha(Backcolor) correspondente da minha list view fique verde...caso apareça atenção na coluna "K" da minha planilha "dados" toda a linha(Backcolor) correspondente da minha list view fique amarela, eu tentei usar o código abaixo que muda a cor das linhas"FORECOLOR" como teste, mas nem ele ta funcionando, me deem um help ai.... "eu quero mudar a "BACKCOLOR"

Private Sub UserForm_Initialize()
 
 Call PreencheListview
    
    
    lastRow = Plan1.Cells(Rows.Count, "a").End(xlUp).Row
    ' Adiciona itens
    For X = 2 To lastRow
        Set li = ListView1.ListItems.Add(Text:=Dados.Cells(X, "a").Value)
        li.ListSubItems.Add Text:=Dados.Cells(X, "b").Value
        li.ListSubItems.Add Text:=Dados.Cells(X, "c").Value
        li.ListSubItems.Add Text:=Dados.Cells(X, "d").Value
        li.ListSubItems.Add Text:=Dados.Cells(X, "e").Value
        li.ListSubItems.Add Text:=Dados.Cells(X, "f").Value
        li.ListSubItems.Add Text:=Dados.Cells(X, "g").Value
        li.ListSubItems.Add Text:=Dados.Cells(X, "h").Value
        li.ListSubItems.Add Text:=Dados.Cells(X, "i").Value
        li.ListSubItems.Add Text:=Dados.Cells(X, "j").Valu
        li.ListSubItems.Add Text:=Dados.Cells(X, "k").Valu
        
           
           If Dados.Cells(X, "K") = "VENCIDO" Then
            
            li.ListSubItems(1).ForeColor = RGB(255, 0, 0)
            li.ListSubItems(2).ForeColor = RGB(255, 0, 0)
            li.ListSubItems(3).ForeColor = RGB(255, 0, 0)
            li.ListSubItems(4).ForeColor = RGB(255, 0, 0)
            li.ListSubItems(5).ForeColor = RGB(255, 0, 0)
            li.ListSubItems(6).ForeColor = RGB(255, 0, 0)
            li.ListSubItems(7).ForeColor = RGB(255, 0, 0)
            li.ListSubItems(8).ForeColor = RGB(255, 0, 0)
            li.ListSubItems(9).ForeColor = RGB(255, 0, 0)
            li.ListSubItems(10).ForeColor = RGB(255, 0, 0)
            'Cor vermelha se informação da coluna 'i' = "vencido"
        Else
            
            li.ListSubItems(1).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(2).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(3).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(4).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(5).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(6).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(7).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(8).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(9).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(10).ForeColor = RGB(0, 0, 0)
            
            'Cor preta se informação da coluna 'i' diferente de "vencido"
      

           If Dados.Cells(X, "K") = "ATENÇÃO" Then
            
            li.ListSubItems(1).ForeColor = RGB(255, 242, 0)
            li.ListSubItems(2).ForeColor = RGB(255, 242, 0)
            li.ListSubItems(3).ForeColor = RGB(255, 242, 0)
            li.ListSubItems(4).ForeColor = RGB(255, 242, 0)
            li.ListSubItems(5).ForeColor = RGB(255, 242, 0)
            li.ListSubItems(6).ForeColor = RGB(255, 242, 0)
            li.ListSubItems(7).ForeColor = RGB(255, 242, 0)
            li.ListSubItems(8).ForeColor = RGB(255, 242, 0)
            li.ListSubItems(9).ForeColor = RGB(255, 242, 0)
            li.ListSubItems(10).ForeColor = RGB(255, 242, 0)
            'Cor vermelha se informação da coluna 'i' = "atenção"
        Else
            
            li.ListSubItems(1).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(2).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(3).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(4).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(5).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(6).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(7).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(8).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(9).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(10).ForeColor = RGB(0, 0, 0)
            'Cor preta se informação da coluna 'di' diferente de "atenção"
        
        
           
           If Dados.Cells(X, "k") = "OK" Then
            
            li.ListSubItems(1).ForeColor = RGB(0, 255, 0)
            li.ListSubItems(2).ForeColor = RGB(0, 255, 0)
            li.ListSubItems(3).ForeColor = RGB(0, 255, 0)
            li.ListSubItems(4).ForeColor = RGB(0, 255, 0)
            li.ListSubItems(5).ForeColor = RGB(0, 255, 0)
            li.ListSubItems(6).ForeColor = RGB(0, 255, 0)
            li.ListSubItems(7).ForeColor = RGB(0, 255, 0)
            li.ListSubItems(8).ForeColor = RGB(0, 255, 0)
            li.ListSubItems(9).ForeColor = RGB(0, 255, 0)
            li.ListSubItems(10).ForeColor = RGB(0, 255, 0)
            'Cor vermelha se informação da coluna 'i' = "OK"
        Else
            
            li.ListSubItems(1).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(2).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(3).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(4).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(5).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(6).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(7).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(8).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(9).ForeColor = RGB(0, 0, 0)
            li.ListSubItems(10).ForeColor = RGB(0, 0, 0)
            'Cor preta se informação da coluna 'i' diferente de "OK"
            
            End If
            End If
            End If

           
       Next
       
End Sub

2° eu preciso fazer um filtro por botões, por exemplo:

tenho 3 botões um VERDE um AMARELO e um VERMELHO, preciso de um exemplo onde eu clique no vermelho e fiquem só as linhas cuja a coluna "K" estiver como vencido, onde eu clique no verde fiquem só as linhas cuja a coluna "K" estiver como ok e onde eu clique no amarelo fiquem só as linhas cuja a coluna "K" estiver como aenção......

galera eu ainda não achei isso por aqui... abraço e aguardo o help!!

boa noite!!!

Pessoal me da uma luz ai.... me diga só o caminho que eu ando sozinho............ HELP!

Veja se consegue evoluir

Segue mais uma opção :

Formatar cor ListView

[]s

Pessoal muiiiiiiiiiiiiiiiiiiiito obrigado...os exemplos que mandaram me ajudou muiiiiiiiiiiiito... to quase concluindo meu projeto graças a vcs só falta agora os ajustes finos, depois de eu adequar os exemplos a minha necessidade surgiram algumas dúvidas.. ve se vcs podem me ajudar:

1° eu fiz uma funcção para contar a quantidade de equipamentos listados, consigo listar todos, listar os equipamentos filtrados pelos filtros que eu fiz, porém eu não consegui que ele faça a contagem quando eu filtro através dos botões (OK, ATENÇÃO e VENCIDO), voces podem dar uma olhada e ver como eu poderia fazer isso?

2º quando eu filtro pelos botões(OK, ATENÇÃO e VENCIDO) todos os itens da lista muda de cor, ou seja funciona perfeitamente, porém (quando eu filtro pelas textbox que eu criei, ele só colore o primeiro itém da lista filtrada... alguém sabe me dizer pq e se tem como colorir todos os iténs filtrados pelas textbox ?

aguardo o help e desde já obrigado tenho evoluido muiiiiiiiiiiito graças aos amigos aqui do forúm.

ahh vou enviar a planilha em anexo para voces visualizarem melhor os problemas que eu descrevi acima.

abraço!

Pessoal... me deem um help ai com apergunta acima..............................!!!!!!

abraço to no aguardo!

pessoal....esqueceram de mim????????? me ajuda ai.............. abraco

Pessoal... me deem um help ai com apergunta acima..............................!!!!!!

pessoal....esqueceram de mim????????? me ajuda ai.............. abraco

Dunha estas são os tipos de perguntas que irão fazer o pessoal pular o seu Tópico, lembre-se toda a ajuda em Foruns são voluntárias, a maioria que se dispoem a ajudar trabalham e geralmente aproveitam um tempinho entre um cafezinho e outro para dar uma ajuda ou a noite.
Sendo assim por favor, não "UP" tópicos com estes tipos de questionamento, onde são entendidos como "uma cobrança".

Dei uma olhada neste seu último anexo e não encontrei os Textbox nem os Botões que menciona, a tela de pesquisa é a mesma que o colega Reinaldo postou.

Lembre-se estamos aqui para ajudar nas duvidas e não para construir o aplicativo.

[]s

Mauro obrigado ai pelo toque vou mudar meu comportamento aqui no forúm... e peço desculpa ai aos amigos se soou como uma "cobrança"!!!!
desculpa caso esteja parecendo que eu quero o projeto pronto... esse não é meu interesse quero aprender para quando necessário ajudar aos outro tbm.. eu até mencionei em um post meu... pedindo só o caminho.. que a partir daí eu caminharia sozinho....

voltando a minha dúvida as textboxes e os botões estão no "frmcontrole' que inclusive eu tirei do ultimo exemplo que você me mandou... tá nesse ultimo anexo que eu mandei sim.. se voce puder da uma olhada por favor e ve o que vc encontra de errado lá?!?!

abraço e desculpa!

Dunha, o importante é que tenha entendido e aceitado numa boa, pois em alguns Foruns que participo, posts esta natureza, de acordo com algumas regraso usuário é banido.

Mas voltando a questão, adicionei uma nova rotina - Private Sub FormataCores(), e alterei a que se encontra no Combo - Private Sub ComboBoxTE_Change().

Como quer o caminho das pedras, vou deixar você estudar as alterações e adaptar para os demais, lembrando que o Evento Change do Combo é diferente de um TextBox, o do combo você está pegando a palavra por inteiro e o textbox letra por letra.

Deixei somente o frmcontrole umavez que não precisamos dos outros para ajudar em sua duvida, quando for anexar algum arquivo, procure deixar o mais enxuto possivel, eliminando as partes desnecessarias, assim nos concentramos somente na questão que iremos analizar.

abraços

maurão... vc é show... obrigado pelo conselho.. pelo a explicação.. pelo que voce me mandou eu entendi pq nao tava funcionando.. fiz aqui para os outros iténs e ficou show....muito obrigado mesmo... uma outra dúvida não sei se vc viu ... eu criei uma rotina não sei se é assim que se chama.. para contar quantos equipamentos tem a cada vez q eu filtro.. funcioou com a combobox;; com as text box, mas com filtro pelos botoes eu não cnsegui...será que vc sabe me dizer pq.. dessa maneira que eu fiz não funciona com os botoes de filtro???

abraço e eu acho que as minhas duvdas aqui tão ajudando a outras pessoas tbm.. pq tem muita gente visualizando.....vc ta ajudando a mim e a muitos outros!!

abraço!