Добавить месяц к предыдущей дате ячейки Для каждого цикла

Question

Все,

Я написал небольшую процедуру, которую я хотел бы, чтобы каждый цикл вставлял текущий месяц в первую ячейку "01" / MM / YY, а затем добавлял один месяц к дате какэто проходит через петлю.Используя приведенный ниже пример:

K1 = 01/06/2018
L1 = 01/07/2018
M1 = 01/08/2018 etc

Код, который я использую ниже: ошибка в строке DateAdd.

Sub test()
Dim dt As date
dt = "01/" & Application.Text(Now(), "MM/YY")
Dim i As Double
i = 1

For Each c In Range("K1:XFD1")
    If c.Value = "" Then Exit For  
 c.Value = dt
'change date to one months time
 dt = DateAdd(m, i, dt)
 i = i + 1     
Next c

End Sub

Любая помощь по этому вопросу будет принята с благодарностью.

Answer 1

Положите "m" не m.m будет переменной."m" является литеральной строкой, представляющей аргумент «месяц».

dt = DateAdd("m", i, dt)