TextBox values from datasheet

[Big Lar]

This code displays the correct value in Textbox1...
But the remaining textboxes display values from the last used row of the datasheet. What am I doing wrong?

Private Sub ComboBox1_Change()
Dim x&
With Sheets("Sheet1")
For x = 1 To .Cells(Rows.Count, "D").End(xlUp).Row
If .Cells(x, "D").Value = Me.ComboBox1.Value Then _
Me.TextBox1.Value = .Cells(x, "F").Value
Me.TextBox2.Value = .Cells(x, "G").Value
Me.TextBox3.Value = .Cells(x, "H").Value
Me.TextBox4.Value = .Cells(x, "I").Value
Me.TextBox5.Value = .Cells(x, "J").Value
Next x
End With
End Sub

 

[VoG]

Are these multi-line textboxes? If so maybe you need something like

Me.TextBox1.AddItem = .Cells(x, "F").Value

 

[Big Lar]

No, TextBoxes are single line.

Datasheet has several hundred rows...Names addresses etc...

The code displays the correct "Address" in TB1 but all remaining TB displays values from the last row of data

 

[Big Lar]

OK...This works, but I'm thinking it could be tidier???

Private Sub ComboBox1_Change()
Dim x&
With Sheets("Sheet1")
    For x = 1 To .Cells(Rows.Count, "D").End(xlUp).Row
        If .Cells(x, "D").Value = Me.ComboBox1.Value Then _
            Me.TextBox1.Value = .Cells(x, "F").Value
        If .Cells(x, "D").Value = Me.ComboBox1.Value Then _
            Me.TextBox2.Value = .Cells(x, "G").Value
        If .Cells(x, "D").Value = Me.ComboBox1.Value Then _
            Me.TextBox3.Value = .Cells(x, "H").Value
        If .Cells(x, "D").Value = Me.ComboBox1.Value Then _
            Me.TextBox4.Value = .Cells(x, "I").Value
        If .Cells(x, "D").Value = Me.ComboBox1.Value Then _
            Me.TextBox5.Value = .Cells(x, "J").Value
    Next x
End With
End Sub