Entrar Ainda não tem acesso?
Solucionado (ver solução)
Solucionado
(ver solução)
3
respostas

Faça como eu fiz: Refazendo a lista do combo

Referente ao curso Excel VBA 3: criando conexão com o Outlook Application, no capítulo Enviando o pedido de reposição e atividade Faça como eu fiz: Refazendo a lista do combo

por Fabio de Castro Quintanilha Júnior
| 111.4k xp | 10 posts
Coordenador de Operações

O código abaixo não roda, da erro 9. Conseguem me ajudar a encontrar o erro?

Private Sub UserForm_Activate() 'cmbDescricao.AddItem "Tênis Infantil Nika Vermelho" 'cmbDescricao.AddItem "Tênis Infantil Nika Rosa" 'cmbDescricao.AddItem "Tênis Infantil Nika Azul" 'cmbDescricao.AddItem "Tênis Infantil Atitas Vermelho" 'cmbDescricao.AddItem "Tênis Infantil Atitas Rosa" 'cmbDescricao.AddItem "Tênis Infantil Atitas Azul"

Dim ContaLinhas As Long

ContaLinhas = 2

Do While Trim$(Sheets(“Dados”).Cells(ContaLinhas, 1)) <> vbNullString
    cmbDescricao.AddItem Trim$(Sheets(“Dados”).Cells(ContaLinhas, 1))
    ContaLinhas = ContaLinhas + 1
Loop

sbAparenciaNormal

End Sub

3 respostas
solução!
por ABNER FONTOURA CORREA
| 152.3k xp | 79 posts
Arquiteto de Dados

Olá,

Ao copiar seu codigo e tentar roda-lo o unico problema que identifiquei era que as aspas duplas da sheet Dados não estão corretas. Segue abaixo o código que executei.

Private Sub UserForm_Activate()

'cmbDescricao.AddItem "Tênis Infantil Nika Vermelho"
'cmbDescricao.AddItem "Tênis Infantil Nika Rosa"
'cmbDescricao.AddItem "Tênis Infantil Nika Azul"
'cmbDescricao.AddItem "Tênis Infantil Atitas Vermelho"
'cmbDescricao.AddItem "Tênis Infantil Atitas Rosa"
'cmbDescricao.AddItem "Tênis Infantil Atitas Azul"

Dim ContaLinhas As Long

ContaLinhas = 2

Do While Trim$(Sheets("Dados").Cells(ContaLinhas, 1)) <> vbNullString
    ComboBox1.AddItem Trim$(Sheets("Dados").Cells(ContaLinhas, 1))
    ContaLinhas = ContaLinhas + 1
Loop


End Sub

Bons estudos.

por Fabio de Castro Quintanilha Júnior
| 111.4k xp | 10 posts
Coordenador de Operações

Muito obrigado, Abner!

Já consegui executar também!

por ABNER FONTOURA CORREA
| 152.3k xp | 79 posts
Arquiteto de Dados

Excelente, se puder marcar como solução a minha resposta te agradeço.