根据用户表单选择更新电子表格上的多行

Question

只是一个快速的查询，我希望使用Userform更新数据库中的多行。我希望它通过Combobox1搜索B列，并使用文本框4中的值更新D列。

下面是我没有执行我想要的任务的代码：

Dim sh As Worksheet
Dim i As Integer

Set sh = ThisWorkbook.Sheets("1. PO tracker")

For i = sh.Range("C" & Application.Rows.Count).End(xlUp).Row To 13

If sh.Range("B" & i).Value = Me.ComboBox1 Then
sh.Range("D" & i).Value = Me.TextBox4.Value

End If

Next I

谁能知道我要去哪里错了？

谢谢。