none
EXCEL LOCALIZAR ITENS ENTRE DUAS DATAS E ADD LISTBOX RRS feed

  • Pergunta

  • Galera eu fiz um código que localiza células que contem datas  com a condição de estar entre duas datas definidas em duas ComboBox. E additens na ListBox. Ficou assim

        Sub EntreDatas()
            Range("a1").Select
            Dim linha As Integer
            Dim data1, data2 As Date
            data1 = #2/12/2017# ' ComboBox1.Value
            data2 = #2/15/2017# ' ComboBox2.Value
            linha = 0
            ListBox1.Clear
                Do While ActiveCell <> ""
                    If ActiveCell >= data1 And ActiveCell <= data2 Then
                        With ListBox1
                            .AddItem
                            .List(linha, 0) = ActiveCell
                            .List(linha, 1) = ActiveCell.Offset(0, 1)
                        End With
                        linha = linha + 1
                        ActiveCell.Offset(1, 0).Select
                    Else
                        ActiveCell.Offset(1, 0).Select
                    End If
                Loop
        End Sub

    Comentei as combobox pq n funcionou. Pq n funcionou? E ai testei colocando a data no código funcionou. 

    como eu faço para resolver esse problema? pq n funcional pegar o valor da combobox?

    desde ja agradeço.


    • Editado É NOIZ segunda-feira, 4 de setembro de 2017 14:44
    segunda-feira, 4 de setembro de 2017 14:27

Respostas

  • Boa tarde, É NOIZ. Tudo bem?

    Alguma mensagem de erro é exibida?

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 4 de setembro de 2017 20:57
    Moderador

Todas as Respostas

  • Boa tarde, É NOIZ. Tudo bem?

    Alguma mensagem de erro é exibida?

    Atenciosamente,

    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 4 de setembro de 2017 20:57
    Moderador
  • Boa tarde,

    Por falta de retorno essa thread está sendo encerrada

    Se necessário, favor abrir uma nova thread.

    Atenciosamente,


    Filipe B de Castro

    Esse conteúdo é fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as postagens que resolveram o seu problema. Essa é uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 11 de setembro de 2017 17:13
    Moderador