Ir para o conteúdo
charlie69

[Resolvido] listbox ou combobox

Mensagens Recomendadas

charlie69    0
charlie69

Surgiu-me outra dúvida, da qual não estou a conseguir sair

na Sheet1 tenho uma listagem de nomes.

Na Sheet2 queria construir uma listbox ou combobox numa determinada célula (A2)

Como faço para a macro ir buscar os dados à sheet1?

Cumps

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

E precisas de uma macro para isso ?

Não podes simplesmente colocar uma combobox ou listbox e depois seleccionar com o botão direito Properties - Control - Input Range e defines o range que queres que apareça na lista.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
charlie69    0
charlie69

Não percebi..

Na toolbar do vba, seleccionei uma combobox coloqueio-na na sheet, mas não consigo aceder a "Properties - Control - Input Range".

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

sim pode ser, mas é possível que não seja?

Porque com o userform, fica com a barrinha (tipo windows no topo)

Pode ser ou é ?

Não é a mesma coisa e um  se queres colocar uma listview ou combobox na folha tens de colocar a listview ou combobox à toolbar forms

Vai às toolbars e selecciona a Forms. Depois colocar na tua folha e fazes como te disse.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
charlie69    0
charlie69

Já consegui fazer como disseste

Agora como posso fazer com que por exemplo na celula X2 apareça o que escolhi na combobox?

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

Tens uma propriedade, junto ao Input Range, que é o Cell Link. Nessa propriedade defines uma célula onde vai colocar o index da tua seleccção. Por exemplo escolhe a A1

Depois em B1 usas a seguinte fórmula:

=INDEX(Sheet1!A1:A40;Sheet2!A1)

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
charlie69    0
charlie69

ja consegui fazer o que queria.

Agora por curiosidade, gravando macro surge isto:

ActiveSheet.OLEObjects.Add(classtype:="Forms.Combobox.1", Link:=False, _

        DisplayAsIcon:=False, Left:=237, Top:=91.5, Width:=114.75, Height:=21 _

        ).Select

qual o código que acrescento para colocar o Link para a célula A2, e o listfillrange para o range "XPTO"?

XPTO=range de outra folha a qual dei um nome

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

Isso apenas cria o objecto, para adicionar a referência e mostrar os itens, é algo do género:

    ActiveSheet.Shapes("Drop Down 1").Select
    With Selection
        .ListFillRange = "Sheet2!$A$1:$A$20"
        .LinkedCell = ""
        .DropDownLines = 8
        .Display3DShading = False
    End With

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
delo    0
delo

Existe um modo de colocar os valores em um combobox sem que seja necessário o uso de uma planilha para que ele possa exibir as informações ??

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade