Jump to content
belgas

Dados de outro Diretório e Ligação entre ComboBox's

Recommended Posts

belgas

Boas pessoal! Sou muito iniciante no vba e precisava de uma ajuda.

O meu primeiro passo é: Estou a trabalhar num excel que se chama por exemplo TR.xls e quero pôr os valores que estão noutro excel chamado Características dos transformadores.xls entre as celulas A3 e A189 numa combobox que aqui chamo de ComboBoxPontodeEntrega

Tipo o que eu já consegui fazer foi isto:

Private Sub ComboBoxPontodeEntrega_Change()

Workbooks.Open Filename:="Y:\2.Características de equipamentos\Características dos transformadores.xls"

Windows("Características dos transformadores.xls").Activate

Sheets("Sheet1").Activate

Me.ComboBoxPontodeEntrega.RowSource = "Sheet1!A3:A189"

end sub

Neste momento, está a buscar-me os dados que eu quero mas só quando eu tenho o ficheiro Características dos transformadores.xls aberto... e eu queria que fosse buscar os dados sem abrir este excel. Podiam-me ajudar?

Outra dúvida, como é que eu faço para não aparecer valores repetidos?

Tenho ainda outra combobox2 que eu queria que apenas aparecesse os valores respetivos da ComboBoxPontodeEntrega, por exemplo:

No ficheiro Características dos transformadores.xls tenho assim:

Coluna A Coluna B

SAM TR1

SAM TR2

SVI TR3

SVI TR4

SET TR5

SET TR6

........

Eu queria que quando selecionasse , por exemplo, o SET no ComboBoxPontodeEntrega, apenas aparecesse no combobox2, os respetivos TR5 e TR6 para poder escolher

Obrigadão mais uma vez pela ajuda

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


×
×
  • 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.