如何通过在excel vb中搜索Id将数据添加到特定行

我不熟悉Excel VB。我有一个搜索栏，我想通过从列

a:H

中输入样式编号（C列）来获取详细信息。我在excel表格中有数据输入<需要添加代码>I:J列。 当我在搜索栏中输入样式编号时，所有详细信息都会显示出来 对于I&J列，我有两个名为

txtsissuedate

和

txtassued

的文本框

我想为我在搜索栏中搜索过的特定行添加空字段的详细信息，该行的样式为no

我需要为这两个文本框的更新按钮编码，当我在搜索栏中搜索时，将显示详细信息，我需要更新这些文本框的详细信息

我已附加仪表板

搜索按钮代码：

Private子文本框7_DropButtonClick（）
TextBox7_DropButtonClick.Caption=格式（日期，“dd-mmm-yy”）
端接头
专用子cmdSearch_Click（）
我渴望，我渴望
Dim iFind作为VbMsgBoxResult
iSearch=工作表（“表1”）.范围（“C1”）.当前区域.Rows.Count
对于i=2到i搜索
如果Trim（Sheet1.Cells（i，3））Trim（txtSearch.Text）且i=iSearch，则
iFound=MsgBox（“未找到项目！请更新”）
cmdAddRecord.Enabled=FALSE
作为控件的Dim I控件
对于Me.Controls中的每个iControl
如果iControl.Name类似于“txt*”，则iControl=vbNullString
下一个
txtSearch.SetFocus
如果结束
如果Trim（Sheet1.Cells（i，3））=Trim（txtSearch.Text），则
txtLine.Text=Sheet1.Cells（i，1）
txtDescription.Text=Sheet1.Cells（i，2）
txtStyle.Text=Sheet1.Cells（i，3）
txtItem.Text=Sheet1.单元格（i，4）
txtFabric.Text=Sheet1.Cells（i，5）
txtBrand.Text=Sheet1.Cells（i，6）
txtTotalqty.Text=Sheet1.单元格（i，7）
txtDate.Text=Sheet1.Cells（i，8）
txtsissuedate1.Text=Sheet1.Cells（i，9）
txtExecutionSuse1.Text=Sheet1.Cells（i，9）
cmdAddRecord.Enabled=TRUE
退出
如果结束
接下来我
端接头

添加按钮代码：（但这是错误的，因为我无法将其添加到相关的样式无行）

Private Sub cmdAddRecord\u Click（）
''如果txtisuedate1.Text=”“，则
“”MsgBox（“字段不能为空！”）
“还有吗
“结束如果
我渴望，我渴望
Dim iFind作为VbMsgBoxResult
iSearch=工作表（“表1”）.范围（“C1”）.当前区域.Rows.Count
对于i=2到i搜索
如果Trim（Sheet1.Cells（i，3））=Trim（txtSearch.Text），则
将工作作为工作表
Dim AddNew As系列
设置wks=Sheet1
Set AddNew=wks.Range（“I65356”）.End（xlUp）.Offset（1,0）
AddNew.Offset（0，0）.Value=txtsissuedate1.Text
AddNew.Offset（0，1）.Value=txtExecutionSSUE1.Text
MsgBox（“已输入详细信息！”）
退出
如果结束
接下来我
端接头