CONSULTAR LISTBOX POR DATA

 Tópico anterior Próximo tópico Novo tópico

CONSULTAR LISTBOX POR DATA

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#409329 - 09/09/2012 19:00:59

ROBERTOHAHN
TAQUARA, RS
Cadast. em:Setembro/2012


 Anexos estao visíveis somente para usuários registrados

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 no traz resultado
b) No segundo campo est como ComboBox e no traz resultado
c) No terceiro campo faz uma consulta de outra informao que no data e traz o resultado correto.

O que preciso fazer para consultar uma base de dados por data.

Obrigado,

Roberto

Roberto C Hahn

#409331 - 09/09/2012 19:08:08

RODRIGOFERRO
VIANA
Cadast. em:Junho/2009


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 ?

Estou voltando... Ol a todos... J posso dizer, ([]Ja lhes falei mais de mil vezes... HIAUhIAHIAUhAIUHAIUA[])
- Chuck Norris usa o Notepad como banco de dados relacional.
- Chuck Norris sabe falar em cdigos binrios.



#409333 - 09/09/2012 19:12:30

ROBERTOHAHN
TAQUARA, RS
Cadast. em:Setembro/2012


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


Roberto C Hahn

 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário