O Excel abre pedindo uma data

Question

Estou criando uma planilha que precisa pedir ao usuário para inserir uma data ao abrir a pasta de trabalho. O campo de resposta precisa incluir um período válido de 13 meses.

Depois de inserir uma data válida, ela precisa abrir uma pasta de dados e preencher uma matriz específica.

Esta é a primeira parte do projeto. Qualquer ajuda seria apreciada.

    

Answer 1

Aqui está uma maneira de solicitar uma data sem usar o match.com:

Sub AskingForADate()
    Dim d As Date, dOld As Date
    Dim OK As Boolean
    dOld = DateSerial(Year(Date), Month(Date) - 13, Day(Date))
    OK = False
    While Not OK
        d = Application.InputBox(Prompt:="Enter a date within the last 18 months", Type:=1)
        If d <= Date And d >= dOld Then
            OK = True
        Else
            MsgBox "Not valid"
        End If
    Wend
End Sub