Динамически добавлять формулу с моей пользовательской формой Excel каждый раз, когда я нажимаю кнопку Отправить

Question

Вот код, который я использую для кнопки отправки

Private Sub cbsubmit_Click()
Dim emptyRow As Long
Sheets("ComplaintsData").Activate
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(emptyRow, 2).Value = emptyRow - 1
Cells(emptyRow, 1).Value = dtdate.Value
Cells(emptyRow, 3).Value = cmbSource.Value
Cells(emptyRow, 4).Value = cmbIssue.Value
Cells(emptyRow, 5).Value = cmbcomptype.ValueC
Cells(emptyRow, 6).Value = tbname.Value
Cells(emptyRow, 7).Value = ccdemail.Value
Cells(emptyRow, 8).Value = ccdphone.Value
Cells(emptyRow, 9).Value = cmbRegion.Value
Cells(emptyRow, 10).Value = tbreferred.Value
Cells(emptyRow, 11).Value = tbmanaged.Value
Cells(emptyRow, 12).Value = tbaction.Value
Cells(emptyRow, 13).Value = tbObjLink.Value
Cells(emptyRow, 14).Formula = "=TEXT(DATE(YEAR(emptyrow,1),MONTH(emptyrow,1),DAY(emptyrow,1)),""mmm""& "" "" & ""yyyy"")"

Все работает до тех пор, пока я не хочу добавить формулу.После каждого нажатия кнопки «Отправить» формула заполняется в столбце N на основе даты в столбце A и строки, с которой она связана.

Надеюсь, кто-нибудь может помочь мне решить эту проблему?

Answer 1

Примерно так:

Cells(emptyRow, 14).Formula = "=TEXT(A" & emptyRow & ", ""mmm yyyy"")"

Если значение в ColA уже является датой, нет необходимости восстанавливать его, используя DAY / MONTH / YEAR