Я искал net для ответа, но ничего не получалось (найдено 5-6 ~ разных решений, но ни одно из них не помогло мне.
Я получаю ошибку 1004 для Application Match. Что это делает в моем случае, это должно датьдиапазон от таблицы данных до столбца E_Menu - «меню», чтобы я мог выбрать одну запись из списка уже созданных и отредактировать ее, но по какой-то причине это не сработало.
Я попытался определить столбец E_menu,изменение вариантов для Range ("xxxxx"), который изначально был Dyn_Full_Name или smth, но он не будет работать либо.
Option Explicit
Private Sub CommandButton1_Click()
Dim TargetRow As Integer
```TargetRow = Application.WorksheetFunction.Match(ColumnE_Menu, Sheets("Data").Range(Cell1:="B2", Cell2:="D4"), 0)```
Sheets("Engine").Range("B5").Value = TargetRow for use later
Unload Find_Entry_UF
'''Begin retrieving data from database'''
Data_UF.Txt_Update = Sheets("Data").Range("Data_Start").Offset(TargetRow, 2).Value 'first name
Data_UF.Txt_Description = Sheets("Data").Range("Data_Start").Offset(TargetRow, 3).Value 'surname
Data_UF.Txt_Owner = Sheets("Data").Range("Data_Start").Offset(TargetRow, 4).Value 'age
Data_UF.Txt_Proc = Sheets("Data").Range("Data_Start").Offset(TargetRow, 6).Value 'gender combo box
Data_UF.Combo_Status = Sheets("Data").Range("Data_Start").Offset(TargetRow, 7).Value 'region combo box
'''End retrieving data from database'''
Data_UF.Caption = "Edit Existing" 'set caption to show that the user is editing
Data_UF.Show 'show the user form with the details loaded in
End Sub