Este fórum está sendo desativado

[aleksander]

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

[gfranco]

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

[aleksander]

Olá gfranco, muito obrigado...

A função funcionou perfeitamente!

Pergunto: e para uma celula aleatória que esteja selecionada como se construiria a linha de código?

Código: Selecionar todos

w = Sheets(w).Range(Parâmetro para uma célula que esteja ativa).Value

Daí a função poderia receber parâmetro da a2 ou a3 ou a4 ...

Grato

[gfranco]

Olá gfranco, muito obrigado...

A função funcionou perfeitamente!

De nada.
Quando quiser agradecer, clique na mãozinha.

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.

[osvaldomp]

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