Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Definir Ranges vari...
 
Notifications
Clear all

Definir Ranges variados

 
2024 - VBA & Macros
Post Recente por Basole 9 anos atrás
3 Posts
3 Usuários
0 Reactions
899 Visualizações
RSS
 mueldavc
(@mueldavc)
Posts: 24
Eminent Member
Topic starter
 

A B C D
2,9851 | 23,0385| 129,85| 81,8768|
5,2174 | 28,1069| 139,6 | 59,371 |
2,8708 | 25,4735| 129,3 | 71,5755|
4,0541 | 28,4703| 128,5 | 69,9363|
8 | 26,7846| 128,3 | 79,274 |
7,6923 | 30,1561| 127,7 | 91,3274|
5,5046 | 30,5307| 127,7 | 91,4645|
6,8966 | 30,1561| 127,4 | 81,1586|
8,2192 | 30,5307| 127,3 | 73,6746|
10,1695| 30,718 | 127,4 | 74,3096|
5,3571 | 34,0895| 130 | 71,8181|
8,4507 | 33,5276| 129 | 73,7012|
8 | 34,6514| 129,3 | 81,3776|
5,2632 | 33,5276| 130,4 | 82,9681|
4,6154 | 32,4037| 130,6 | 76,5035|
10,7143| 34,8387| 129,9 | 81,1707|
4,3796 | 29,2897| 130 | 81,3906|
5,042 | 40,131 | 130,8 | 85,8956|
4,5802 | 48,2895| 130,5 | 89,6862|

Ola pessoal.
Queria saber se é possível:
Normalmente eu posso dizer:
Dim rng as range
rng = range("A1:A20"), mas e se eu quisesse definir

rng = range("A1:A20", "D1:D20") ou seja apenas a coluna A e D omitindo as outras.

obg a todos

Davi Muela

 
Postado : 19/05/2016 7:44 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

o que vc fez, está quase certo, faça dentro do mesmo string e use o SET:

Set rng = Range("A1:A20,D1:D20")

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/05/2016 7:54 am
Basole
 Basole
(@basole)
Posts: 487
Reputable Member
 

Para referenciar intervalos alternados, use o Union.

Veja um exemplo:

Sub Metodo_Uniao()
    Dim rng1 As Range, rng2 As Range, Uniao As Range
    
    Set rng1 = Range("A1:A20")
    Set rng2 = Range("D1:D20")
    Set Uniao = Union(rng1, rng2)
    
    Uniao.Interior.Color = vbCyan
    
End Sub

Click em se a resposta foi util!

 
Postado : 19/05/2016 7:58 am
Forum Jump:
  Tópico Anterior
Próximo Tópico