EXCEL LOCALIZAR ITENS ENTRE DUAS DATAS E ADD LISTBOX

Question

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.

Answer 1

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.

Answer 2

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.