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?