Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
#37576
Olá pessoal, boa noite...

Como poderia corrigir esse código. O propósito dele e usar o nome contido numa célula de uma planilha chamada BASE (onde estão armazenados os nome de todas as planilhas da pasta) e acessar a planilha como o nome o nome da célula que está na planilha Base.
Código: Selecionar todos
Sub acessarPlanilha()

    Dim planilha As Worksheet
    
    For Each planilha In ThisWorkbook.Worksheets
            'Essa linha de código está errada, não funciona
            If (planilha.Name = Sheets("DADOS").name)
                          planilha.Name.Active
            End If
    Next planilha
    
End Sub
Grato
Aleksander
#37578
Bom dia.

O código abaixo considerará a célula "A1" da aba chamada "BASE" como a que contém o nome da aba destino.
Veja se te ajuda.
Código: Selecionar todos
Sub acessarPlanilha()
    
    On Error GoTo errAccess
    
    Dim w As String
    
    
    w = Sheets("BASE").Range("a1").Value
    
    Sheets(w).Activate
    
    Exit Sub
errAccess:
    MsgBox "Planilha não encontrada"

End Sub
#37595
aleksander escreveu:Olá gfranco, muito obrigado...

A função funcionou perfeitamente!
De nada.
Quando quiser agradecer, clique na mãozinha.
aleksander escreveu:Pergunto: e para uma celula aleatória que esteja selecionada como se construiria a linha de código?
Sugiro você postar um modelo do seu arquivo apontando o real cenário.
Assim, ficará mais fácil tentar ajudar.
#37599
aleksander escreveu:
Pergunto: e para uma celula aleatória que esteja selecionada como se construiria a linha de código?
Código: Selecionar todos
Sheets(ActiveCell.Value).Activate
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord