Notifications
Clear all

Como colar trecho de name?

5 Posts
2 Usuários
0 Reactions
1,491 Visualizações
(@wilker12)
Posts: 36
Eminent Member
Topic starter
 

Olá,

Como eu copio só uma área dentro de um name e colo em outro lugar?
Por exemplo: Range("Name1").Copy: Range("A1").PasteSpecial xlPasteValues
Sendo que eu precisaria colar em A1 só as duas primeiras colunas de Name1.

Grato. :geek:

 
Postado : 17/09/2018 6:46 pm
EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 
   Range("Name").Columns("A:B").Copy
   Range("A1").PasteSpecial xlPasteValues

 
Postado : 17/09/2018 8:00 pm
(@wilker12)
Posts: 36
Eminent Member
Topic starter
 

Exatamente.
Minha reverência.

 
Postado : 17/09/2018 8:12 pm
(@wilker12)
Posts: 36
Eminent Member
Topic starter
 

O VBA só enxerga deslocamento de vários nomes em um Range com Offset?
Tentei Range("Name1, Name2, Name3").Cells(deslocLin, deslocCol) = Valor e só Name1 recebeu o valor.

 
Postado : 18/09/2018 8:35 am
EdsonBR
(@edsonbr)
Posts: 1057
Noble Member
 

Tentei Range("Name1, Name2, Name3").Cells(deslocLin, deslocCol) = Valor e só Name1 recebeu o valor.

Como vc quer Deslocamento, use Offset ao invés de Cells na expressão acima, que ele atribuirá valor a todos os ranges.

Além disso, se precisar iterar com cada intervalo nomeado desse range total, pode fazer loop usando a propriedade Areas:

  Dim a As Range
   For Each a In Range("Name1,Name2,Name3").Areas
     a.Offset(deslocLin, deslocCol).Value = Valor
   Next a

Obs.: evite usar o espaço em branco entre as vírgulas e os nomes dos Ranges.

 
Postado : 18/09/2018 9:11 am