[Albino]

boas
tenho mais uma duvida que apesar de ter efectuado bastantes pesquisas no google e afins, não consigo acertar.
É o seguinte.
tnho um formulário na folha 1 que alimenta a base na folha2, eu necessito efectuar pesquisas na folha2 pelo nome do mês.
a entrada na folha2 a data é feita na coluna b com o formato dd-mm-aaaa. o filtro do excel permte fazer o que quero, mas eu necessitava de efctuar isto através do vba. no final do filtro, as ocorrencias deverão ser coladas na folha3.

obrigado desde já

[jorgerod]

albino,

sendo certo que o vou transcrever não é bem a resposta à tua pergunta, tenta ver o que terá de útil e altera o que quiseres, ok? fica bem e diz qq coisa.

cá vai:

sub escolher_data()
dim wsheetstart as worksheet
dim rfilterheads as range, acell as range
dim strcriteria as string

on error resume next

set wsheetstart = activesheet

with wsheetstart
.autofiltermode = false

strcriteria = inputbox("digite a data no formato - dd-mm-aaaa")
strcriteria = format(strcriteria, "dd-mm-yyyy")
if strcriteria = vbnullstring then
msgbox "escolheu não continuar"
application.displayalerts = false
application.displayalerts = true
.autofiltermode = false

exit sub
end if

set acell = .columns(2).find(what:=strcriteria, lookin:=xlvalues, _
lookat:=xlwhole, searchorder:=xlbyrows, searchdirection:=xlnext, _
matchcase:=false, searchformat:=false)

if acell is nothing then
.autofiltermode = false
exit sub
end if
.range("b:b").autofilter

.range("b:b").autofilter field:=1, criteria1:=strcriteria

worksheets("folha1").usedrange.copy
worksheets("folha2").range("a1").pastespecial
end with
end sub


[Albino]

olá joregerod
o teu codigo não corresponde ás minhas expectativas, quando o executo só me aparecem as inputbox e as nsgbox tudo o resto nada.
o que eu pretendo é filtrar todas as entradas num determinado mês, por ex. fevereiro e não uma data unica.
com um código que encontrei na net consigo fazer o que quero, no entanto quando o adapto á minha folha, não funciona.
pelo que eu pude observar, há informação que o codigo vai buscar em entradas fixas onde se colocam as iniciais dos meses numa coluna de 1 a 12, na coluna seguinte coloca-se a data inicial e na coluna seguinte data final.
ao digitar na inputbox as iniciais do mes, devolve todas entradas desse mes.
ao adaptar ao meu projecto, não filtra. será a formatação das celulas??

junto envio o tal código adaptado ao meu projecto

sub busca_mes()

thismonth = inputbox(“digite as 3 iniciais do nome do mês”)

if thismonth = 0 or thismonth = “” then exit sub

application.calculation = xlcalculationmanual
application.enableevents = false

with worksheets(“folha1”)
r = application.match(thismonth, .range(“ar1:ar12”), 0)
dbeg = .cells(r, 2)
dend = .cells(r, 3)
end with

sheets(“folha2”).range(“$a$3:$o$800”).autofilter field:=2, criteria1:= _
“>=” & dbeg, operator:=xland, criteria2:=”=” & dbeg, operator:=xland, criteria2:=”<=" & dend
application.enableevents = true
application.calculation = xlcalculationautomatic
folha1.usedrange.copy destination:=folha3.range("a1")
end sub

abraço obrigado

[jorgerod]

albino,

no teu código estás a utilizar 2 critérios (criteria1 e criteria2), o que, na verdade, não corresponde. isto daria se quisesses filtrar, por exemplo, por apelido (criteria1) e por sexo (criteria2):

nome apelido sexo
manuel ferreira masculino
maria ferreira feminino

se escolhesses o apelido ferreira e o sexo masculino, iria dar-te o “manuel”….

manda-me, se quiseres, por mail, o teu ficheiro, para eu ver melhor o que se poderá fazer, ok?

fica bem.

[Anónimo]

bom dia galerinha!

segue arquivo modelo conforme solicitação. É só adaptar.

att.
wagner goularte

FiltroData.zip

[Albino]

olá
wagner goularte

com umas adaptaçõezitas ficou “beleza”.
obrigado

cpts
albino

[patropi]

bom dia wagner

gostei da resposta, mais um exemplo para o meu arquivo.
vale um carma.

albino, como a resposta foi útil, deverias também dar um ponto no carma do wagner como incentivo.

um abraço.

[Albino]

olá
não sabia dessa coisa do carma.
já dei um ao wagner

[Anónimo]

valew galerinha !!!

fico feliz pelo reconhecimento…

att.
wagner goularte

[jorgerod]

🙂

[Autor]

Artigos