Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Nome em intervalos ...
 
Notifications
Clear all

Nome em intervalos pré-definidos

 
2024 - VBA & Macros
Post Recente por klarc28 7 anos atrás
6 Posts
3 Usuários
0 Reactions
1,259 Visualizações
RSS
 cassigol
(@cassigol)
Posts: 3
New Member
Topic starter
 

Olá,

Eu tenho uma planilha com cerca de 150 itens e cada item têm 5 linhas e 20colunas, gostaria de dar nome nesses itens pois vou utilizá-los em um form e para chamar esse intervalo seria mais prático e fácil com ele nomeado, sei fazer isso manualmente (selecionando o intervalo etc etc), gostaria de saber se tem como fazer isso com auxilio de alguma macro/código que eu n tivesse que ficar selecionando o intervalo e dando nome.

Como eu tenho um padrão 5L X 20C queria que a cada item fosse criado um nome pro intervalo sendo "Itemi" (i=1,2,3..).

Obrigado,

 
Postado : 28/12/2017 8:57 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 


Sub Macro1()

Dim i As Integer
Dim linha As Long
i = 1
For linha = 1 To ThisWorkbook.Sheets("Plan1").UsedRange.Rows.Count Step 5

    Range("A" & linha & ":T" & linha + 4).Select
    ActiveWorkbook.Names.Add Name:="item" & i, RefersToR1C1:="=Plan1!R" & linha & "C1:R" & linha + 4 & "C20"
    i = i + 1
End Sub
 
Postado : 28/12/2017 9:12 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Só um ajuste na rotina do klarc28, mude a posição da Variável "i", senão ficará sempre "item1".

Sub Macro1()
'por klarc28

    Dim i As Integer
    Dim linha As Long
    
    i = 1

    For linha = 1 To ThisWorkbook.Sheets("Plan1").UsedRange.Rows.Count Step 5
        Range("A" & linha & ":T" & linha + 4).Select
        ActiveWorkbook.Names.Add Name:="item" & i, RefersToR1C1:="=Plan1!R" & linha & "C1:R" & linha + 4 & "C20"
        i = i + 1
    Next
    
End Sub

[]s

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

 
Postado : 28/12/2017 12:30 pm
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Tem razão, Mauro.

 
Postado : 28/12/2017 1:50 pm
 cassigol
(@cassigol)
Posts: 3
New Member
Topic starter
 

Muito obrigado, funcionou perfeitamente e consegui entender o código.

 
Postado : 29/12/2017 8:42 am
 klarc28
(@klarc28)
Posts: 971
Prominent Member
 

Você deve marcar como resolvido na parte do código que respondeu sua dúvida, não na própria parte que você enviou.

 
Postado : 29/12/2017 10:22 am
Forum Jump:
  Tópico Anterior
Próximo Tópico