Excel VBA. Добавить 1 год в существующую ячейку

Question

Застрял на некоторое время. Я надеюсь, что кто-то может помочь мне с моей текущей проблемой, и указать мне, почему у меня ошибка

Объекта Требуемого 424 Ошибка

Here является листом, я работаю, и вот мой текущий код:

Примечание: (me.cmbveh.value является списком на моей форме Vba)

Dim v_name As String 
Dim add_date As Date 

v_name = Me.cmbveh.Value 
add_date = Application.WorksheetFunction.VLookup(v_name, Sheets("Vehicle Database").Range("F14:R33"), 13, False) 

Application.WorksheetFunction.VLookup(v_name, Sheets("Vehicle Database").Range("F14:R33"), 13, False).Select 
ActiveCell.Value = DateSerial(Year(add_date) + 1, Month(add_date), Day(add_date)) 

ошибка указывает в этой строке кода:

Application.WorksheetFunction.VLookup(v_name, Sheets("Vehicle Database").Range("F14:R33"), 13, False).Select 

То, что я пытаюсь сделать здесь, если значение на моем поле со списком имеет матч на моем столе, я хотел бы иметь возможность добавить 1 год на колонке «Регистрация Дата истечения срока действия». Любая помощь будет оценена!

Answer 1

Поскольку вы знаете, что хотите сравнить значение Combo-Box cmbveh со значениями в столбце F, вы можете использовать Application.Match, чтобы найти номер строки, соответствующий значению в Combo-Box. Впоследствии вы можете получить строку refference (добавьте 13 к ней, так как ваш диапазон начинается с строки 14, а не строки 1) и читает значение из столбца «R» (где вы храните свою «РЕГИСТРАЦИЮ ИСПЫТАНИЯ ДАТА»).

Наконец, используйте функцию DateAdd, чтобы добавить 1 год до даты выхода (выбрав "yyyy" в качестве параметра интервала).

Код

Option Explicit 

Private Sub CommandButton1_Click() 

Dim v_name As String 
Dim add_date As Date 

Dim MatchRow As Variant 

v_name = Me.cmbveh.Value 

With Sheets("Vehicle Database") 
    ' first test to see if Match criteria was met (found in Column F) 
    If Not IsError(Application.Match(v_name, .Range("F14:F33"), 0)) Then 
     MatchRow = Application.Match(v_name, .Range("F14:F33"), 0) '<-- get row number 
     .Range("R" & MatchRow + 13).Value = DateAdd("yyyy", 1, .Range("R" & MatchRow + 13).Value) 
    End If 
End With 

End Sub