Colocar valores de range nomeado num araay  [Resolvido]

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Colocar valores de range nomeado num araay

Mensagempor gilbertjrs » Sex Jan 12, 2018 9:06 am

Pessoal, bom dia.


Como eu coloco valores de range nomeado num araay?

Tentei assim:
Código: Selecionar todos
Sub teste()
    Dim peoples() As Variant
    With ThisWorkbook
        peoples = .Range("setores").Value
    End With
End Sub

mas não deu certo. Tentie assim também:
Código: Selecionar todos
Sub teste()
    Dim peoples() As Variant
    With ThisWorkbook
        peoples = .Range("setores").RefersToRange
    End With
End Sub

Também não deu certo.
gilbertjrs
Membro
Membro
 
Mensagens: 62
Registrado em: Dom Out 23, 2016 6:42 pm
Has thanked: 9 times
Have thanks: 0 time

{ SO_SELECT }

Re: Colocar valores de range nomeado num araay

Mensagempor klarc28 » Sex Jan 12, 2018 9:20 am

Cada célula vai em uma posição do array

Código: Selecionar todos
Option Explicit



Private Sub UserForm_Initialize()


Dim intervalo As Range

Set intervalo = Plan1.Range("A1:A10")


Dim ar(0 To 9) As Variant


Dim index As Integer


Dim cl As Object

index = 0
For Each cl In intervalo.Cells

ar(index) = cl.Value
index = index + 1
Next cl


Me.ListBox1.List = ar
End Sub
Você não está autorizado a ver ou baixar esse anexo.
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 477
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 6 times
Have thanks: 166 times

Re: Colocar valores de range nomeado num araay

Mensagempor klarc28 » Sex Jan 12, 2018 9:33 am

Código: Selecionar todos
Option Explicit



Private Sub UserForm_Initialize()


Dim intervalo As Range

Set intervalo = Plan1.Range("valores")


Dim ar(0 To 9) As Variant


Dim index As Integer


Dim cl As Object

index = 0
For Each cl In intervalo.Cells

ar(index) = cl.Value
index = index + 1
Next cl


Me.ListBox1.List = ar
End Sub
Você não está autorizado a ver ou baixar esse anexo.
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 477
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 6 times
Have thanks: 166 times

Re: Colocar valores de range nomeado num araay  [Resolvido]

Mensagempor gilbertjrs » Sex Jan 12, 2018 11:45 am

Obrigado.

Pelas suas respostas vi que é necessário atribuir o range nomeado à uma variável tipo range e,
adaptei o código, ficando assim:
Código: Selecionar todos
Sub teste()
    Dim peoples() As Variant
    Dim RNG As Range: Set RNG = Range("setores")
    peoples = RNG
End Sub
gilbertjrs
Membro
Membro
 
Mensagens: 62
Registrado em: Dom Out 23, 2016 6:42 pm
Has thanked: 9 times
Have thanks: 0 time

Re: Colocar valores de range nomeado num araay

Mensagempor klarc28 » Sex Jan 12, 2018 11:48 am

Boa observação
Quando quiser agradecer, clique no joinha. Marque como resolvido na parte que resolveu sua dúvida.
klarc28
Membro
Membro
 
Mensagens: 477
Registrado em: Sáb Dez 09, 2017 12:33 am
Has thanked: 6 times
Have thanks: 166 times


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Google Adsense [Bot] e 1 visitante