как найти идентификатор в столбце D, когда найдено вставить дату из столбца g в текстовое поле17

Question

Использование userform1 для поиска в столбце d идентификатора, когда найдено, найдите дату идентификатора из столбца g и вставьте дату в текстовое поле17 .... что-то вроде этого, но этот код не работает.

 Private Sub CommandButton4_Click()
Dim id As String
Dim finalrow As Integer
Dim i As Integer

id = TextBox16.Value
finalrow = Sheets("ALL P.O. INFO").Range("D1000").End(xlUp).ROW

For i = 2 To finalrow
    If Cells(i, 4) = id Then
       Range(Cells(i, 7)).Copy
      TextBox17.Paste
    End If
Next i

End Sub

Answer 1

  {Private Sub CommandButton4_Click()
Dim id As String
Dim finalrow As Integer
Dim i As Integer

id = TextBox16.Value
finalrow = Sheets("ALL P.O. INFO").Range("D1000").End(xlUp).ROW

For i = 2 To finalrow
    If Cells(i, 4) = id Then
      Me.TextBox17 = Cells(i, 7).Value
    End If
Next i

End Sub}