Блог

Использование 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
 

   {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}