Excel - abrir em determinada planilha

[JorgeSouza]

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.

 

[Yskhadar]

Troque para

Worksheets("DADOS").Activate

Range("A2").Select

 

E veja se funciona

[JorgeSouza]

@Taiada Não resolveu. :/

[Basole]

@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 

[JorgeSouza]

@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!

[Basole]

post su arquivo ou um exemplo por favor.

[JorgeSouza]

@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

[Basole]

@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

[JorgeSouza]

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

[Basole]

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.

[JorgeSouza]

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

[Basole]

Por favor teste o anexo. 

hhh.zip