[jkf1456]

É possivel criar um relatorio entre duas datas ou seja:
quando entrar a data 2 de abril na celula a1 e a data 15 de abril na celula a2 abrira o relatorio logo abaixo? muito obrigado. :ohmy:

[Anónimo]

acho que é isso que está precisando. qualquer dúvida, favor entrar em contato.

‘—————————————————————————————
‘ procedimento : filtrar dados
‘ autor : wagner goularte
‘ data : 09-05-2012
‘—————————————————————————————

sub filtro()

application.screenupdating = false

‘variáveis

dim dtdatainicio as date
dim dtdatatermino as date

dtdatainicio = range(“a1”)
dtdatatermino = range(“a2”)

‘desfiltrar

range(“a3″).select
selection.autofilter field:=1, criteria1:=”0″, operator:=xland
activesheet.showalldata

‘filtrar data

selection.autofilter field:=1, criteria1:=”>=” & format(dtdatainicio, “mm/dd/yyyy”), operator:=xland, criteria2:=”<=" & format(dtdatatermino, "mm/dd/yyyy")

application.screenupdating = true

end sub

[jkf1456]

ate poderia ser esse codigo porem a data inicial e final estao na mesma coluna “a”. eu fiz a troca mas deu erro
” ‘desfiltrar
range(“r3″).select
selection.autofilter field:=1, criteria1:=”0″, operator:=xland >>>>>>>esta linha ficou em amarelo
activesheet.showalldata”

[Anónimo]

se puder manda o arquivo que fica mais fácil.

mesmo assim, retira essa parte “, operator:=xland ”

deixa apenas: selection.autofilter field:=1, criteria1:=”0″

isso serve para desfiltrar seu banco de dados.

[Anónimo]

no banco de dados, de acordo com a programação que passei, as datas tem que estar na primeira coluna.

[Autor]

Artigos