none
Como atribuir nome(texto) de uma celula para uma variavel worksheet no VBA? RRS feed

  • Pergunta

  • Bom dia,

    Tentando explicar melhor:

    Queria que dependendo da informação digitada na célula F19 da aba "Menu", ao clicar no botão mudará para aba cujo nome é o mesmo digitado na célula F19 da aba "Menu".

    Exemplo:
    Tenho 5 abas cujos nomes são: "Menu" , "Mayara", "Yuri", "Marcello" e "Reis"
    Na aba "Menu", na Celula F19: foi digitado "Yuri"
    Ao clicar no botão, vou mudar da aba "Menu" para aba "Yuri"

    Código até o momento:
    OBS: coloquei uma condição(if), para só acontecer se a célula H19 da aba "Menu" for de valor 2.

    Sub MudaAba()

    Dim Verificador As String
    Dim nome As Worksheets

    Sheets("Menu").Select
    Verificador = Range("H19").Value

    If Verificador = 2 Then

    Set nome.Name = Range("F19").Text

    Sheets(nome).Select

    End If

    End Sub




    sábado, 6 de julho de 2019 14:09

Todas as Respostas

  • Boa noite Yuri.

    Para atribuir uma variável à planilha a declaração é sem o "s":

    Dim nome As Worksheet

    Uma vez declarada, basta setá-la e utilizá-la diretamente. Também aconselho a apenas ativar a planilha e não selecioná-la:

    Sub MudaAba()
    
    Dim Verificador As String
    Dim nome As Worksheet
    
    Sheets("Menu").Activate 'Select
    Verificador = Range("H19").Value
    
    If Verificador = 2 Then
    
        Set nome = Sheets(Range("F19").Value)
        
        nome.Activate   'nome.Select
    
    End If
    
    End Sub

    Abraço.


    Filipe Magno

    sábado, 6 de julho de 2019 21:42