LINHA DE CODIGO ARRAY

2024 - VBA & Macros

Post Recente por rafaelp 8 anos atrás

5 Posts

3 Usuários

0 Reactions

975 Visualizações

RSS

denilsonsl

(@denilsonsl)

Posts: 84

Trusted Member

Topic starter

Bom dia mestres.

Uma duvida, tenho essa linha de código abaixo no useform:

Private Sub UserForm_Initialize()
    cmb_familia.List = Array("IND SOS", "IND IMP", "IND CIM", "IND MIS", "CIM", "MIS", "CORTE")
    cmb_papel.List = Array("KNE", "KN", "KNSE", "KNA")
    cmb_posicaov.List = Array("D", "E")
    cmb_tipov.List = Array("RE", "MI", "ME")
End Sub

Mas gostaria de invés de puxar o que esta na linha de código por exemplo cmb_familia.List = Array("IND SOS", "IND IMP", "IND CIM", "IND MIS", "CIM", "MIS", "CORTE") e sim puxar uma coluna por exemplo coluna A1:A450 DA PLAN1 com mais de 450 itens, como posso fazer se isso for possível.

Desde ja agradeço.

Postado : 21/07/2016 5:28 am

rafaelp

(@rafaelp)

Posts: 89

Trusted Member

Bom dia Denilson,

Acredito que você possa fazer um Loop com Do While, assim você torna o ComboBox "flexível"", e tudo que for adicionado naquela coluna irá automaticamente para o ComboBox.
Segue uma planilha de exemplo.

Espero ter ajudado.

Postado : 21/07/2016 7:18 am

gfranco

(@wzxnet7)

Posts: 653

Honorable Member

Bom dia denilsonsl.
Vc pode utilizar também o método application.worksheetfunction.transpose.

No caso dos dados estarem à partir da Plan1! A1 ficaria assim:

dim meusdados () as variant
dim t as long

t = plan1.Cells(Cells.Rows.Count, 1).End(xlUp).Row

redim meusdados(1 to t)

meusdados =  Application.WorksheetFunction.Transpose(plan1.Range("a1:a" & t))

Resposta útil? Clique na mãozinha ao lado do botão Citar.

Postado : 21/07/2016 8:32 am

denilsonsl

(@denilsonsl)

Posts: 84

Trusted Member

Topic starter

Ficou bom...

Mas, so que nesse caso, o batão na mesma planilha, o fato do exemplo que tenho que precisa estar em banco de dados ou parametros e, que no exemplo acima esta na mesma planilha, preciso que fique o botão em uma planilha e os dados em outra...

Explicando melhor, o botão na planilha 1 e os dados na planilha 2...

Postado : 21/07/2016 10:49 am