Como posso abrir uma folha específica com o nome depois de um mês?

-1

Eu tenho um monte de Guias do mês

Qual é uma maneira de abrir um específico com o VBA? Tentei usar o este snippet :

Private Sub Workbook_Open()

Dim ws As Worksheet
Dim mnth As String, dte As String, mday As String

mday = Now() - Weekday(Now(), 3)

mnth = Month(mday)
dte = Day(mday)

tabstr = mnth & "-" & dte

   For Each ws In Worksheets
       If ws.Name = tabstr Then
           ws.Select
           Exit For
       End If
    Next 
End sub

mas para nomes de folhas com nomes de datas formatadas como mm-dd , por ex. "11-7" ou "11-14" .

Como altero esse código para que ele funcione para nomes de planilhas que contêm nomes de mês como "May" , "June" ou "julho" ?

    
por Valerie 05.05.2016 / 18:10

2 respostas

2

Para trazer automaticamente a guia do mês atual para o primeiro plano depois de abrir uma pasta de trabalho, você pode simplesmente usar isso:

Private Sub Workbook_Open()
    Sheets(Format(Now(), "mmmm")).Select
End Sub

NOTA: Isso só funcionará se os nomes dos meses estiverem no mesmo idioma do sistema operacional.

    
por 05.05.2016 / 18:26
1

Para obter o nome do mês atual:

Sub tretdc()
    tabstr = Format(Now(), "mmmm")
    MsgBox tabstr
End Sub
    
por 05.05.2016 / 18:15