Gleiner, cheguei a ver o seu ultimo anexo e não entendi, pois diz que está funcionando mas não está, a rotina está incorreta, acredito ter anexado o modelo errado.
No modelo que eu havia enviado, esta funcionando corretamente, filtrando pela Coluna STATUS, não entendi porque modificou a rotina neste seu modelo.
Mas conforme solicitou agora:
1º - Eu criei uma caixa de pesquisa no topo da coluna D
Esta implementação está no modelo que enviei e funcionando
2º - Preciso que essa caixa de pesquisa funcione com todos os dados e todas as colunas (Ex.: Numero, data, local, status, etc.), atualmente esta filtrando a coluna de "status".
Se a intenção é utilizar somente um ComboBox conforme está no modelo que enviei e no mesmo ter varias opções de filtragem com dados em outras colunas, terá de criar algumas condições utilizando "IF" ou o "Select Case" para capturar o Valor selecionado no Combo e direcionar
Por exemplo na rotina que eu havia passado :
ActiveSheet.Range("$A$4:$R$65536").AutoFilter Field:=17, Criteria1:=sFiltra, VisibleDropDown:=True
O Filtro está sendo realizado pela coluna 17 ou seja Coluna "Q" que contem o Rótulo STATUS, se quer outra coluna, é só alterar o 17, ou seja, se for pela coluna "R" - "ANEXOS" a instrução ficaria:
ActiveSheet.Range("$A$4:$R$65536").AutoFilter Field:=18, Criteria1:=sFiltra, VisibleDropDown:=True
com IF seria mais ou menos assim :
If sFiltra = "Novo" Then
ActiveSheet.Range("$A$4:$R$65536").AutoFilter Field:=17, Criteria1:=sFiltra, VisibleDropDown:=True
Else IF sFiltra = "ValorEmAnexo" Then
ActiveSheet.Range("$A$4:$R$65536").AutoFilter Field:=18, Criteria1:=sFiltra, VisibleDropDown:=True
Não testei, mas é a lógica.
3º - Esse filtro tem que deixar a opção de edição nas células (igual o que esta ocorrendo na coluna "status")
Esta realmente não entendi, que opção de Edição, as celulas na Coluna STATUS estão com Validação e podem ser alteradas, mas depois teria de filtrar novamente.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 19/11/2014 7:26 am