Importar planilha com campo data

[Rafael Descio]

Pessoas,

Eu estou tentando importar de uma outra planilha (aba) uma lista que contém mais de 3.000 registros (possui 4 coluna, a segunda com a data e horas - 4/3/2010 10:20:06) com data / hora de 90 dias atrás até hoje para uma nova planilha, mas não estou conseguindo, por alguma razão está faltando... algum código...

Alguém pode me ajudar? ... Agradeço desde já.

Rafael.

Private Sub CommandButton2_Click()
Relatório_Geral ("Relatório_Geral")
End Sub
Private Sub Relatório_Geral(ByVal strTipoPesq)
Dim strPesquisa
Dim intContador
Dim intContResul
Dim intNumColuna
Dim strPlanilha

Inf strTipoPesq = "Relatório_Geral" then
strPlanilha = straTipoPesq
strPesquisa = Tri(VBA.Interaction.InputBox("Digite a data a pesquisar:", "Pesquisa"))
intNumConta = 2
End If

If strPesquisa = "" Then
Exit Sub
End If

intContador = 2
intContResult = 7 'Precisa começar na linha devido a minha planilha esta formatado no padrão da empresa
'Worksheets("Relatório_90dias).Range("A", "D" & Worksheets("Relatório_90dias").Rows.Count).Delete  'Apagar as informações que já contem para deixar livre
Do
If Worksheets(strPlanilha).Cells(intContador,1) <> "" then
If InStr(UCase(Worksheets(strPlanilha).Cells(intContador, intNumColuna)),UCase(strPesquisa)) <> 0 then
Worksheets("Relatório_90dias").Activate
Worksheets(strPlanilha).Cells(intContador, 1).Copy
Worksheets("Relatório_90dias").Cells(intContResul, 1).Activate
Worksheets("Relatório_90dias").Paste
Worksheets(strPlanilha).Cells(intContador, 2).Copy
Worksheets("Relatório_90dias").Cells(intContResul, 2).Activate
Worksheets("Relatório_90dias").Paste
Worksheets(strPlanilha).Cells(intContador, 3).Copy
Worksheets("Relatório_90dias").Cells(intContResul, 3).Activate
Worksheets("Relatório_90dias").Paste
Worksheets(strPlanilha).Cells(intContador, 4).Copy
Worksheets("Relatório_90dias").Cells(intContResul, 4).Activate
Worksheets("Relatório_90dias").Paste
Worksheets(strPlanilha).Cells(intContador, 5).Copy
Worksheets("Relatório_90dias").Cells(intContResul, 5).Activate
Worksheets("Relatório_90dias").Paste

If strPlanilha = "Relatório_Geral" Then

Worksheets("Relatório_90dias").Cells(intContResul,8) = "('Name' = "" & Worksheets("Relatório_90dias").Cells(intContador, 1) & "" AND 'Category' = ""Serviço"" AND 'Type' = ""Serviços de TI"" AND 'item' = ""NA"" AND 'item' = ""NA"") OR ('Name' = "" & Worksheets ("Relatório_90dias"). Cells(intContador,3) & "" AND 'Category' ""Negócio"" AND 'Type' = ""NA"" AND 'Item' = ""NA"")"
Else
Worksheets("Relatório_90dias").Cells(intContResul,8) = "('Name' = "" & Worksheets("Relatório_90dias").Cells(intContador,1) & "" AND 'Type' = ""Palavra"") OR ('Name' = "" & Worksheets ("Relatório_90dias"). Cells(intContador, 3) & "" AND 'Category' ""Negócio"" AND 'Type' = ""NA"")"
End If
intContResul = intContResul + 1
End If
Else
Exit Do
End If
intContador = intContador + 1
Loop
If intContResul < 5 then
If MsgBox("Nenhuma dta semelhante foi localizado. Deseja tentar novamente ?", vbYesNo) = vbYes then
Relatório_Geral strTipoPesq
End If
Elsef intContResul = 5 then
Worksheets("Relatório_90dias").Cells(7,2)Copy
MsgBox "Foram copiados para a área de transferência."
Else
MsgBox "A pesquisa retornou mais que uma ocorrência."
End IF

End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub

Editado Maio 24, 2010 por kuroi
Adicionar tag CODE

[kuroi]

o q esta acontecendo de errado??

[Rafael Descio]

o q esta acontecendo de errado??

Srs,

Para melhor explicação, não esta sendo filtrado, ou seja, ele não esta buscando na outra planilha as relações que preciso buscar, preciso pegar tudo que foi feito de hoje até 90 dias atrás - exemplo: >=24/02/2010 00:00:00.

Não esta trazendo exatamente o que eu quero, só esta aceitando apenas os números, como 30, 2010, não aceita os sinais de maior (>), igual (=) e etc.... ou seja não esta funcionando.

Fico no aguardo.

Obrigado.

Rafael.

[kuroi]

não sei em q parte do codigo você faz essa comparacao, mas tenta comparar usando CDate(), pra fazer a conversao para data. exemplo:

If CDate(Worksheets(strPlanilha).Cells(intContador,1)) >= CDate(data_pesquisada) Then