
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 Then
With UserForm4
.TextBox2.Text = Target.Offset(, 1).Value
.TextBox3.Text = Target.Offset(, 2).Value
.TextBox4.Text = Target.Offset(, 3).Value
.TextBox5.Text = Target.Offset(, 4).Value
.TextBox6.Text = Target.Offset(, 5).Value
.TextBox7.Text = Target.Offset(, 6).Value
.TextBox8.Text = Target.Offset(, 7).Value
.Show
End With
End If
End Sub |
