Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
LINHA DE CODIGO ARR...
 
Notifications
Clear all

LINHA DE CODIGO ARRAY

 
2024 - VBA & Macros
Post Recente por rafaelp 8 anos atrás
5 Posts
3 Usuários
0 Reactions
970 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
 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
 rafaelp
(@rafaelp)
Posts: 89
Trusted Member
 

Denilson,

Poste sua planilha (pode ser com dados fictícios), com os dados que você quer que eu faço pra você.

 
Postado : 21/07/2016 11:21 am
Forum Jump:
  Tópico Anterior
Próximo Tópico