Ir ao conteúdo
  • Cadastre-se
JorgeSouza

Excel - abrir em determinada planilha

Recommended Posts

Olá caros amigos!

 

Tenho uma planilha com um código em VB que faz com que, quando eu abra o excel pela primeira vez no dia, automaticamente crie uma planilha. Porém, assim que ela é criada, eu tenho alterar ela, ou seja, tenho que clicar numa outra aba para poder trabalhar.

 

Eu gostaria do seguinte, assim que essa aba é criada, o excel vá direto para a segunda aba.

 

Aqui está meu VB:

Private Sub Workbook_Open()
Dim Nome As String
On Error GoTo Erro
Nome = Format(Date, "DD-MM-YYYY")
    Sheets.Add After:=Sheets(2)
    ActiveSheet.Name = Nome
    Exit Sub
    
Erro:
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True

Worksheets("DADOS").Select
Range("A2").Select
End Sub

Como podem ver, adicionei:

Worksheets("DADOS").Select
Range("A2").Select

Só que ele só funciona depois eu eu salvo a planilha. Espero que vocês tenham entendido minha dúvida.

 

Apenas quero que ao criar a planilha automaticamente o excel não pare nela e sim, na segunda aba.

 

Editado por JorgeSouza

Compartilhar este post


Link para o post
Compartilhar em outros sites

@Taiada Não resolveu. :/

Compartilhar este post


Link para o post
Compartilhar em outros sites

@JorgeSouza certifique-se que a sua 2ª planilha (aba) é a Nº 2:

 

Private Sub Workbook_Open()
    Dim Nome As String
    On Error GoTo Erro
    Nome = Format(Date, "DD-MM-YYYY")
    Sheets.Add After:=Sheets(ActiveWorkbook.Sheets.Count)
    ActiveSheet.Name = Nome
    Sheets(2).Activate
    Range("A2").Activate
    Exit Sub

Erro:
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    Sheets(2).Activate
    Range("A2").Activate

End Sub 
Editado por Basole

Compartilhar este post


Link para o post
Compartilhar em outros sites

@Basole Deu certo. Porém a Plan1 foi para esquerda, ou seja sumiu, mas se eu clicar na seta para ela aparecer ela aparece, mas quero economizar o máximo, quero que as primeiras fiquem todas a mostra.

 

Teve um errinho, a planilha do dia que é criada automaticamente, infelizmente não foi criada!

Editado por JorgeSouza

Compartilhar este post


Link para o post
Compartilhar em outros sites

@Basole Aqui está... Você vai ver que a primeira planilha, vai para o lado.

 

Basole, pegue está planilha e adicione o código que você me enviou, infelizmente aqui está salvando como .xlsm que infelizmente não consigo anexar aqui este arquivo.

 

hhh.xlsx

Compartilhar este post


Link para o post
Compartilhar em outros sites

@JorgeSouza veja se  é isso:

 


Private Sub Workbook_Open()
    Dim Nome As String
    On Error GoTo Erro
    Nome = Format(Date, "DD-MM-YYYY")
    Sheets.Add After:=Sheets("DADOS")
    ActiveSheet.Name = Nome
    Sheets("DADOS").Activate
    Range("A2").Activate
    Exit Sub

Erro:
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    Sheets("DADOS").Activate
    Range("A2").Activate

End Sub

Editado por Basole

Compartilhar este post


Link para o post
Compartilhar em outros sites

@Basole Abriu corretamente, só não foi criado a nova planilha do dia!

Compartilhar este post


Link para o post
Compartilhar em outros sites
Citação

 Abriu corretamente, só não foi criado a nova planilha do dia!

 

Se não existir a Planilha(aba) "19-09-2016", por exemplo, cria a nova planilha. caso contrario não. 

Aqui pra mim esta funcionando desta forma.

Compartilhar este post


Link para o post
Compartilhar em outros sites

@Basole Antes era criada automaticamente, agora eu terei que fazer manualmente mesmo ?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×