CONSULTAR LISTBOX POR DATA
Estou com dificuldade em fazer a consulta a uma ListBox por data.
Fiz o arquivo em anexo para demonstrar:
a) No primeiro campo, está formatado como data e não traz resultado
b) No segundo campo está como ComboBox e não traz resultado
c) No terceiro campo faz uma consulta de outra informação que não é data e traz o resultado correto.
O que preciso fazer para consultar uma base de dados por data.
Obrigado,
Roberto
Fiz o arquivo em anexo para demonstrar:
a) No primeiro campo, está formatado como data e não traz resultado
b) No segundo campo está como ComboBox e não traz resultado
c) No terceiro campo faz uma consulta de outra informação que não é data e traz o resultado correto.
O que preciso fazer para consultar uma base de dados por data.
Obrigado,
Roberto
Amigo, nao pude baixar o seu exemplo, mas uma coisa e certa, dependendo da forma como preenche sua listbox ou qualquer outro componente, o passo primordial é filtrar na consulta esses dados..
voce consegue fazer isso normalmente ou tem alguma dificuldade ?
voce consegue fazer isso normalmente ou tem alguma dificuldade ?
Sou iniciante em VBA.
Usei o seguinte comando:
Private Sub data1_Change()
ThisWorkbook.Worksheets([Ô]Plan1[Ô]).Activate
Range([Ô]b1[Ô]).Select
i = 0
Me.tipo1.Clear
For Each c In Range([c6], [c65000].End(xlUp))
If c.Offset(0, 0) = Me.data1 Or Me.data1 = [Ô]*[Ô] Then
Me.tipo1.AddItem
Me.tipo1.List(i, 0) = c.Offset(0, 0).Value
Me.tipo1.List(i, 1) = c.Offset(0, 1).Value
Me.tipo1.List(i, 2) = c.Offset(0, 2).Value
i = i + 1
End If
Next c
End Sub
Usei o seguinte comando:
Private Sub data1_Change()
ThisWorkbook.Worksheets([Ô]Plan1[Ô]).Activate
Range([Ô]b1[Ô]).Select
i = 0
Me.tipo1.Clear
For Each c In Range([c6], [c65000].End(xlUp))
If c.Offset(0, 0) = Me.data1 Or Me.data1 = [Ô]*[Ô] Then
Me.tipo1.AddItem
Me.tipo1.List(i, 0) = c.Offset(0, 0).Value
Me.tipo1.List(i, 1) = c.Offset(0, 1).Value
Me.tipo1.List(i, 2) = c.Offset(0, 2).Value
i = i + 1
End If
Next c
End Sub
Tópico encerrado , respostas não são mais permitidas