Редактировать запись Excel в пользовательской форме

Редактировать запись Excel в пользовательской форме

Я хотел бы редактировать записи моей таблицы с помощью пользовательской формы. Однако код ниже работает только для первой строки (я понятия не имею, почему). Можете ли вы помочь мне изменить мой код так, чтобы он работал с любой строкой, которую я хочу изменить? Я всегда получаю ошибку "Type Mismatch", а затем указывает мне на этот код "WriteRow = Application.Match(ABnum, ABrng, 0)"

Вот мой код на данный момент:

Application.ScreenUpdating = False

Dim LastRow As Long
Dim ABnum As String
Dim ABrng As Range
Dim WriteRow As Long

Sheets("CDP DATABASE").Select
With ActiveSheet
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
Set ABrng = .Range("B7:B" & LastRow)
ABnum = txtemn.Value
WriteRow = Application.Match(ABnum, ABrng, 0)
Cells(WriteRow, 1).Select
End With

With ActiveCell
.Offset(0, 1).Value = txtemn.Value
.Offset(0, 2).Value = txtcode.Value
.Offset(0, 3).Value = txttype.Value
End With

Application.ScreenUpdating = True

Также я хотел бы заставить своего пользователя использовать только пользовательские формы для добавления и редактирования записей. Я пробовал защитить лист, но с этим методом я не могу редактировать или добавлять что-либо с помощью форм. Пожалуйста, помогите! Заранее спасибо!

Связанный контент