用于向userform提取和加载值的代码

Question

我正在尝试编写一个代码，该代码将从存储它的数据库中提取值，并在用户表单中加载值以进行编辑。来自数据库的值存储为“多行”单元条目。这是我坚持使用的代码。

Private Sub cmd_Continue_Click()

Dim TargetRow As Integer

TargetRow = Application.WorksheetFunction.Match(ColumnC_Menu, Sheets("Data").Range("Dyn_Business_Name_Website"), 0)

MsgBox (TargetRow)

End Sub

以下是主要用户形式的代码：

Private Sub cmd_Submit_Click()
'When we click Submit button'

Dim TargetRow As Integer 'variable for position control
Dim BusinessName As String

TargetRow = Sheets("Engine").Range("B3").Value + 1 'make variable equal to COUNTA formula on worksheet +1

BusinessName = Txt_BusinessName & vbNewLine & Txt_Website

If Application.WorksheetFunction.CountIfs(Sheets("Data").Range("Dyn_Business_Name_Website"), BusinessName) > 0 Then

MsgBox ("Name Already Exists"), 0, "Check!"
Exit Sub
End If

'Begin Input into the data'
Sheets("Data").Range("Data_Start").Offset(TargetRow, 0).Value = Txt_Rank
Sheets("Data").Range("Data_Start").Offset(TargetRow, 1).Value = Txt_BusinessName & vbNewLine & Txt_Website
Sheets("Data").Range("Data_Start").Offset(TargetRow, 2).Value = Txt_Address & vbNewLine & Txt_Phone