Entrar Ainda não tem acesso?
1
resposta

Erro em tempo de execução '9': Subscrito fora do intervalo

Referente ao curso Excel: personalizando e automatizando tarefas com VBA, no capítulo Criando laços de repetição e atividade Finalizando o uso do laço e do formulário

por Estudante
| 141.2k xp | 5 posts
Private Sub UserForm_Activate()
    Dim icontador As Integer

    icontador = 2

    cmbTipoVeiculo.AddItem ""
    Do While Sheets("Controle de entrega").Range("G" & icontador) <> vbNullString
            If Not fnVerificaVeiculoNaLista(Sheets("Controle de entrega").Range("G" & icontador)) Then
                cmbTipoVeiculo.AddItem Sheets("Controle de entrega").Range("G" & icontador)
            End If

    icontador = icontador + 1
    Loop
End Sub
1 resposta
por Roberto Sabino
| 85.5k xp | 188 posts
Instrutor Professor e Conteudista

Oi Katilene, tudo bem?

Esse erro que você recebeu significa que o Excel não está encontrando algum item de uma "Coleção".

Provavelmente o nome da planilha "Controle de entrega" no código VBA deve estar escrito de forma diferente da planilha. (Observe que maiúsculas e minúsculas também são consideradas diferentes).

Caso não seja esse o problema nos avise por aqui.

Abraços,

Sabino.