Vídeos relacionados:

https://www.youtube.com/results?search_query=vba+busca
https://www.youtube.com/results?search_query=vba+pesquisa+entre+datas

Vídeos relacionados:

https://www.youtube.com/results?search_query=vba+busca
https://www.youtube.com/results?search_query=vba+pesquisa+entre+datas

Já vi quase todos os vídeos e todos só ensinam a pesquisar entre datas em somente 1 coluna, minha planilha tem mais de 1 coluna com datas. Preciso que a busca olhe todas as colunas e me mostre os resultados

No seu arquivo existe uma macro (Macro1_consulta_mensal) que estabelece o critério de busca como "jul/13", eu imagino que você vá fazer buscas em períodos diversos. É isso?
Se sim:
1. como você pretende informar os períodos? pode ser em duas células da planilha menu, por exemplo, 01/07/13 em uma célula e 31/07/13 em outra ?
2. em cada planilha há várias colunas com datas, em quais colunas de cada planilha você pretende que o código faça a busca ?

Código parcial abaixo

No seu arquivo existe uma macro (Macro1_consulta_mensal) que estabelece o critério de busca como "jul/13", eu imagino que você vá fazer buscas em períodos diversos. É isso?
Se sim:
1. como você pretende informar os períodos? pode ser em duas células da planilha menu, por exemplo, 01/07/13 em uma célula e 31/07/13 em outra ?
2. em cada planilha há várias colunas com datas, em quais colunas de cada planilha você pretende que o código faça a busca ?

1. gostaria de criar um form para inserir as datas
2. nas planilhas que estão escritas 3 meses, 6 meses, 9 meses,...

Código abaixo

sub teste (  )

dim dt as date
dt = cdate(sheets("Consulta").range("B5").value)'Não sei qual é a data da pesquisa, B5 é apenas um exemplo
dim linha, coluna, colunaInicial, colunaFinal, linhaInicial, linhaFinal as long

linhaInicial = 2
colunaIncial = 6
colunaFinal = 12
linhaFinal = sheets("Longa duração").Range("B1").End(xlDown).Row

For linha = linhaInicial to LinhaFinal
For coluna = colunaInicial to ColunaFinal

if dt = cdate(sheets("Longa duração").cells(linha, coluna).value) then

'faça tal coisa

end if

next coluna
next linha

linhaInicial = 2
colunaIncial = 6
colunaFinal = 8
linhaFinal = sheets("Acelerada").Range("B1").End(xlDown).Row

For linha = linhaInicial to LinhaFinal
For coluna = colunaInicial to ColunaFinal

if dt = cdate(sheets("Acelerada").cells(linha, coluna).value) then

'faça tal coisa

end if

next coluna
next linha

linhaInicial = 2
colunaIncial = 6
colunaFinal = 8
linhaFinal = sheets("Acompanhamento").Range("B1").End(xlDown).Row

For linha = linhaInicial to LinhaFinal
For coluna = colunaInicial to ColunaFinal

if dt = cdate(sheets("Acompanhamento").cells(linha, coluna).value) then

'faça tal coisa

end if

next coluna
next linha



end sub

Como faço para ele mostrar na planilha consulta ?

[code]sub teste (  )

dim dt as date
dt = cdate(sheets("Consulta").range("B5").value)'Não sei qual é a data da pesquisa, B5 é apenas um exemplo
dim linha, coluna, colunaInicial, colunaFinal, linhaInicial, linhaFinal, linhaFinalConsulta as long

linhaInicial = 2
colunaIncial = 6
colunaFinal = 12
linhaFinal = sheets("Longa duração").Range("B1").End(xlDown).Row

For linha = linhaInicial to LinhaFinal
For coluna = colunaInicial to ColunaFinal

if dt = cdate(sheets("Longa duração").cells(linha, coluna).value) then

linhaFinalConsulta = sheets("Consulta").Range("B1").End(xlDown).Row
sheets("Consulta").Range("B" & linhaFinalConsulta).value = sheets("Longa duração").Range("B" & linha).value

end if

next coluna
next linha

linhaInicial = 2
colunaIncial = 6
colunaFinal = 8
linhaFinal = sheets("Acelerada").Range("B1").End(xlDown).Row

For linha = linhaInicial to LinhaFinal
For coluna = colunaInicial to ColunaFinal

if dt = cdate(sheets("Acelerada").cells(linha, coluna).value) then

'faça tal coisa

end if

next coluna
next linha

linhaInicial = 2
colunaIncial = 6
colunaFinal = 8
linhaFinal = sheets("Acompanhamento").Range("B1").End(xlDown).Row

For linha = linhaInicial to LinhaFinal
For coluna = colunaInicial to ColunaFinal

if dt = cdate(sheets("Acompanhamento").cells(linha, coluna).value) then

'faça tal coisa

end if

next coluna
next linha



end sub[/code]