fill combobox with particular condition

[sal21]

I need to fill a combobox based the current day - 1 to 30

for example current day=16/07/2022

15/07/2022 (is the current day-1)
16/07/2022
...
14/08/2022

[HansV]

Code: Select all

    Dim d As Date
    For d = Date - 1 To DateAdd("m", 1, Date) - 2
        Me.ComboBox1.AddItem Format(d, "dd/mm/yyyy")
    Next d

[sal21]

Code: Select all

    Dim d As Date
    For d = Date - 1 To DateAdd("m", 1, Date) - 2
        Me.ComboBox1.AddItem Format(d, "dd/mm/yyyy")
    Next d

great!