Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Informar conteúdo d...
 
Notifications
Clear all

Informar conteúdo de uma célula como nome de planilha

 
2024 - VBA & Macros
Post Recente por viviannye 9 anos atrás
4 Posts
2 Usuários
0 Reactions
978 Visualizações
RSS
 viviannye
(@viviannye)
Posts: 30
Eminent Member
Topic starter
 

Bom dia,

Gostaria de saber como que informo o conteúdo de uma célula como nome de uma planilha em um código.

Exemplo.: Tenho uma planilha que em U1 encontra-se a fórmula para descobrir o nome da planilha:
=DIREITA(CÉL("nome.arquivo"; A1); NÚM.CARACT(CÉL("nome.arquivo"; A1))- LOCALIZAR("]";CÉL("nome.arquivo"; A1))) 

"=RIGHT(CELL(""nome.arquivo"", RC[-19]), LEN(CELL(""nome.arquivo"", RC[-19]))- SEARCH(""]"",CELL(""nome.arquivo"", RC[-19])))"

Gostaria de mencionar esse nome da seguinte maneira:

Set W1 = Sheets(Range("U1"))

Mas não está correto, qual seria a forma correta de mencionar o conteúdo dessa célula como se fosse o nome da planilha?
Desde já Grata!

 
Postado : 09/11/2015 8:30 am
 viviannye
(@viviannye)
Posts: 30
Eminent Member
Topic starter
 

Opa!

Consegui resolver renomeando a planilha no código, assim não preciso saber o nome no qual ela virá.

ActiveSheet.Name = "IMPORTAR"

 
Postado : 09/11/2015 8:43 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se é isto:

Estou supondo que a Planilha onde está a formula em "U1" é a "Plan1"

Sub NomePlanRange()

    Dim swh_U1 As Worksheet
    Dim sNome As String
    
    'Ajuste o nome da Plan1 de acordo com o seu modelo
    sNome = Plan1.Range("U1").Value

    Set swh_U1 = Sheets(sNome)

    swh_U1.Select

End Sub

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

 
Postado : 09/11/2015 8:46 am
 viviannye
(@viviannye)
Posts: 30
Eminent Member
Topic starter
 

Olá!

O nome da planilha vem variando, por isso precisava descobrir e mencionar, resolvi renomear, mas me tirou a dúvida como precisava executar!
Muito obrigada pela ajuda!

 
Postado : 09/11/2015 9:20 am
Forum Jump:
  Tópico Anterior
Próximo Tópico