Este fórum está sendo desativado

[Krebs]

Tenho 4 ComboBox dependentes.

Nome Lider (ComboBoxLider)
Nome Projeto (ComboBoxprojeto)
Atualização
- Data (ComboBoxAtualização)
- Horário (ComboBoxTime)


Minha última combo box (CombBoxTime) deveria mostrar todos os horários levando como base a data selecionada na na minha ComboBoxAtualização, porém por algum motivo meu código "diz" que a data na combo box é diferente data na planilha mesmo elas sendo iguais.



Código:
Essa primeira parte é responsável por fazer uma lista das datas de acordo com o nome do projeto.

pela imagem acima

Caso eu tivesse selecionado "Redução de Solicitações do tipo SOLESP abertas para o SEC"

Minha ComboBoxAtualização irá mostrar ás seguintes datas 10/12/2016 e 07/03/2017

Código: Selecionar todos

Private Sub ComboBoxProjeto_Change()

Dim linha As Integer, colunaProjeto As Integer, colunaAtualização As Integer
Dim oDictionary As Object
    Set oDictionary = CreateObject("Scripting.Dictionary")
    linha = 3
    colunaProjeto = 6
    colunaAtualização = 4
    Me.ComboBoxAtualização.Clear
    With Sheets("Base")
        Do While Not IsEmpty(.Cells(linha, colunaProjeto))
            If .Cells(linha, colunaProjeto).Value = ComboBoxProjeto.Value Then
                    'Do Nothing
                If oDictionary.exists(.Cells(linha, colunaAtualização).Value) Then
                    'Do Nothing
                Else
                    Me.ComboBoxAtualização.AddItem .Cells(linha, colunaAtualização).Value
                    oDictionary.Add .Cells(linha, colunaAtualização).Value, 1
                End If
            Else
                GoTo Quit
            End If
            
Quit:
            linha = linha + 1
        Loop
    End With
    TextBoxID.Value = ID(ComboBoxProjeto.Value)
End Sub

Essa outra parte deveria ser responsável por me mostrar os horários, então caso eu selecionasse em minha ComboBoxAtualização 07/03/2017

Minha ComboBoxTime deveria mostrar 15:49:00 e 15:47:00, porém ela não me mostra nada.

Código: Selecionar todos

Private Sub ComboBoxAtualização_Change()

    Dim linha As Integer, colunaTime As Integer, colunaAtualização As Integer
    linha = 3
    colunaTime = 5
    colunaAtualização = 4
    Me.ComboBoxTime.Clear
    With Sheets("Base")
        Do While Not IsEmpty(.Cells(linha, colunaTime))
            If .Cells(linha, colunaAtualização).Value = ComboBoxAtualização.Value Then
                Me.ComboBoxTime.AddItem .Cells(linha, colunaTime).Value
            End If
            linha = linha + 1
        Loop
    End With
End Sub

[Reinaldo]

Se está entendendo como data diferente, então são diferentes (mesmo julgando que estão iguais), provavelmente uma e numero e outra texto. Poste seu modelo que ficara mais simples obter um retorno