2️⃣ Прошлый месяц
В первое текстовое поле вставляем дату начала прошлого месяца, во второе - дату окончания прошлого месяца:

Private Sub CommandButton2_Click()
    TextBox1 = "01." & Format(DateAdd("m", -1, Now), "mm.yyyy")
    TextBox2 = Format(Now - Day(Now), "dd.mm.yyyy")
End Sub

#VBA #ExcelVBA #Now #Day #DateAdd