Notifications
Clear all

filtro entre duas datas

10 Posts
2 Usuários
0 Reactions
4,056 Visualizações
(@rodrigojacinto)
Posts: 73
Trusted Member
Topic starter
 

boa tarde
alguem conheçe algum tutorial ou modelo de formulario vba que tenha filtro entre duas datas?
ex: tem uma coluna com varias datas é queria filtrar as datas que estao dentro desse mes por ex. de 01/08/2012 a 30/08/2012... se conheçer me envia o lick por favor. obrigado.

 
Postado : 21/08/2012 9:18 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Não entendi direito o que quer, mas de uma olhada no link "http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=4931&p=25672&hilit=listview#p25672"
na resposta do colega Edson h´um exemplo de uso de datas em form.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/08/2012 9:48 am
(@rodrigojacinto)
Posts: 73
Trusted Member
Topic starter
 

isso mesmo que precisava amigo. obrigado e obrigado tambem ao colega Edson h que reposndeu a aquela pergunta... abraços

 
Postado : 21/08/2012 10:08 am
(@rodrigojacinto)
Posts: 73
Trusted Member
Topic starter
 

Amigo tentei por diversas formas adaptar mais nao consegui, a planilha original os dados estavam na coluna A e B, porem preciso fazer a pesquisa porem os dados estao na coluna R da data e a caluna S referente aque é entaum deveria aparecer tambem o listbox... seria possivel uma ajudaa... segue aplanilha obrigado.

 
Postado : 21/08/2012 10:46 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Altere o codigo conforme abaixo:

Private Sub CommandButton1_Click()

j = CDate(TextBox1.Value)
k = CDate(TextBox2.Value)
'determina qtas linhas na coluna k estão preenchidas
f = Sheets("Plan1").Range("R65536").End(xlUp).Row
cont = 0

With Me.ListBox1
        .Clear
        .ColumnCount = 2
        MyList = Sheets("Plan1").Range("R1:S" & f) 'determina o range de procura
        For i = 1 To UBound(MyList)
        If Sheets("Plan1").Cells(i, 18) >= j And Sheets("Plan1").Cells(i, 18) <= k Then 'compara as datas da range com as dos textbox
        n = Range("E" & i).Value
        m = Range("S" & i)
        ListBox1.AddItem n
        ListBox1.List(cont, 1) = m
        cont = cont + 1
        End If
        Next i
        .ListIndex = 0
End With
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 22/08/2012 6:00 am
(@rodrigojacinto)
Posts: 73
Trusted Member
Topic starter
 

Perfeito amigo, eu nao estava mudando a parte Cells(i, 18) para "18" rsrs... obrigado.

 
Postado : 22/08/2012 7:59 am
(@rodrigojacinto)
Posts: 73
Trusted Member
Topic starter
 

Mais uma duvida surgio, se eu quiser colocar a primeira linha com cabeçalho do listbox, como faço?

 
Postado : 22/08/2012 9:03 pm
(@rodrigojacinto)
Posts: 73
Trusted Member
Topic starter
 

olha perdi ja quase 4 horas de sono tenando fazer esse filtro alguem se puder me ajudar rsrs... preciso filtrar a data neste listbox, e fazer com que a pareça as colunas em amarelo nele, da maneira em que o anexo esta, por ecxemplo se pesquiso por 01/01/2012 a 01/01/2015 o resultado do filtro é 01/04/2012 "que é a ultima data da colna", alguem pode me ajudar por favor...
obrigado.

 
Postado : 22/08/2012 10:02 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

O problema está na base de dados, as datas em R2 à R5 estão como texto (sómente R6 está como data), como são poucos dados selecione cd um e tecle f2 + enter e "rode sua pesquisa

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 23/08/2012 6:22 am
(@rodrigojacinto)
Posts: 73
Trusted Member
Topic starter
 

Perfeito amigo. obrigado mais uma vez....

 
Postado : 23/08/2012 9:59 am