• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

charlie69

[Resolvido] listbox ou combobox

11 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não percebi..

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Já consegui fazer como disseste

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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 ??

0

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