Solucionado (ver solução)
Solucionado
(ver solução)
1
resposta

Problemas com os loops Aula 4

Olá, fiz os procedimentos igual os mostrados na aula, seguindo passo a passo. Porém o meu programa não adiciona itens novos na lista. Para verificar se foi algum erro que cometi baixei o arquivo disponibilizado pelo professor e verifiquei o código (não havia como ter erros, é exatamente o mesmo arquivo que ele fez na aula), porém mesmo assim ao adicionar um veiculo na tabela "Controle de Entregas" ele não é atualizado para a lista do formulário.

Segue meu código para melhores referências:

Private Sub UserForm_Activate()
    cmbVeiculo.AddItem
    Dim iContador As Integer
    iContador = 2


    'Porque começa na linha 2 da coluna G
    Do While Sheets("Controle de Entregas").Range("G" & iContador) <> vbNullString
        'vbnullstring poderia ser substituido por '' pq só representa algo vazio
        If Not fnVerificaVeiculoNaLista(Sheets("Controle de Entregas").Range("G" & iContador)) Then
            cmbVeiculo.AddItem Sheets("Controle de Entregas").Range("G" & iContador)
        End If

        iContador = iContador + 1
    Loop
End Sub
Function fnVerificaVeiculoNaLista(pTipoDeVeiculo As String) As Boolean

    Dim iContador As Integer

    fnVerificaVeiculoNaLista = False
    ' False por padrão. Porque sempre no primeiro ciclo a lista estará vazia
    If cmbVeiculo.ListCount <> 0 Then

        For iContador = 0 To cmbVeiculo.ListCount - 1
            If cmbVeiculo.List(iContador) = pTipoDeVeiculo Then
                fnVerificaVeiculoNaLista = True
            End If
        Next

    End If

End Function

Alguém sabe como ajudar?

1 resposta
solução!

Descobri o erro. Porém não consigo excluir o post. Estou respondendo para marcar como concluído.