Jump to content
mitrax

Listbox

Recommended Posts

mitrax

Boa tarde ppl,

O que aqui me trás é uma duvida basica, mas já dei voltas e voltas e não estou a conseguir resolver. Basicamente quero implemetar uma listbox que mediante a selecção do seu conteudo preencha um array com diferente conteudo. No exemplo que ponha seria suposto aparecer uma caixa de texto no entanto obtenho o erro "Run-time error '424': object required" 

Sub ListBox7_Change()
    With Listbox7
        If .Selected(0) Then
            MsgBox ("ZeZeZeZe")
        End If
    End With
End Sub

 

Share this post


Link to post
Share on other sites
Gnrtuga

Boas, não li bem as coisas :) achava que era uma combobox....Mas o código funciona da mesma maneira para os dois que eu já experimentei.

Esse erro é por que o nome de um dos objetos do formulário está errado.. Se só ocorre quando usas a listbox  é provável que seja o nome da listbox...

De qualquer maneira deixo-te aqui o código testado e a funcionar.

Private Sub UserForm_Initialize()
ListBox1.AddItem ("Barco")
ListBox1.AddItem ("Casa")
ListBox1.AddItem ("Carro")


End Sub

Private Sub ListBox1_Change()
Lista = ListBox1.ListIndex
If Lista = 0 Then
MsgBox ("Olá")
End If
If Lista = 1 Then
MsgBox ("tudo bem?")
End If
End Sub

Boa sorte.

Edited by Gnrtuga
erro

Férias! Estou por aqui: http://maps.google.p...001549&t=h&z=20 (a bulir claro está!)

Nunca mais é verão outra vez.. :)

Share this post


Link to post
Share on other sites
mitrax

Gnrtuga,

Obrigado pela paciencia! :)

Tendo por base o teu codigo deixo aqui a solução que encontrei para o meu problema:

Sub ListBox2_Change()
    Dim Lista As Long
    Lista = ActiveSheet.ListBoxes("List Box 2").ListIndex
    If Lista = 1 Then
        MsgBox ("Olá")
    End If
    If Lista = 2 Then
        MsgBox ("tudo bem?")
    End If
End Sub

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.