Gostaria de editar meus registros da tabela usando um formulário de usuário. No entanto, o código abaixo só funciona para a primeira linha (não tenho idéia do porquê). Você pode por favor me ajudar a modificar o meu código para que ele funcione em qualquer linha que eu gostaria de modificar? Eu sempre recebo o erro "Type Mismatch" e, em seguida, aponta-me neste código "WriteRow = Application.Match (ABnum, ABrng, 0)"
Este é o meu código até agora:
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
Além disso, gostaria de forçar meu usuário a usar somente os formulários do usuário para adicionar e editar registros. Eu tentei proteger a folha, mas com este método não consigo editar ou adicionar nada usando formulários. Por favor ajude! Obrigado antecipadamente!