Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Colocar valores de ...
 
Notifications
Clear all

Colocar valores de range nomeado num araay

 
2024 - VBA & Macros
Post Recente por klarc28 7 anos atrás
5 Posts
2 Usuários
0 Reactions
999 Visualizações
RSS
 gilbertjrs
(@gilbertjrs)
Posts: 77
Trusted Member
Topic starter
 

Pessoal, bom dia.

Como eu coloco valores de range nomeado num araay?

Tentei assim:

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:

Sub teste()
    Dim peoples() As Variant
    With ThisWorkbook
        peoples = .Range("setores").RefersToRange
    End With
End Sub

Também não deu certo.

 
Postado : 12/01/2018 7:06 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

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

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
 
Postado : 12/01/2018 7:20 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 
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
 
Postado : 12/01/2018 7:33 am
 gilbertjrs
(@gilbertjrs)
Posts: 77
Trusted Member
Topic starter
 

Obrigado.

Pelas suas respostas vi que é necessário atribuir o range nomeado à uma variável tipo range e,
adaptei o código, ficando assim:

Sub teste()
    Dim peoples() As Variant
    Dim RNG As Range: Set RNG = Range("setores")
    peoples = RNG
End Sub
 
Postado : 12/01/2018 9:45 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Boa observação

 
Postado : 12/01/2018 9:48 am
Forum Jump:
  Tópico Anterior
Próximo Tópico