Snasui Excel Forum

Code: Select all

Private Sub CommandButton5_Click()
    Dim findvalue As Range
Set findvalue = Sheets("RegisterList").Range("a:a").Find(What:=Me.TextBox23.Value, LookIn:=xlFormulas, LookAt:=xlWhole)
    Me.TextBox1.Value = findvalue.Offset(0, 3).Value
    Me.TextBox2.Value = findvalue.Offset(0, 4).Value
    Me.CommandBox1.Value = findvalue.Offset(0, 5).Value
    Me.TextBox3.Value = findvalue.Offset(0, 6).Value
    Me.TextBox21.Value = findvalue.Offset(0, 7).Value
    Me.CommandBox11.Value = findvalue.Offset(0, 10).Value
    Me.CommandBox2.Value = findvalue.Offset(0, 11).Value
    Me.TextBox17.Value = findvalue.Offset(0, 12).Value
    Me.TextBox20.Value = findvalue.Offset(0, 13).Value
    Me.TextBox10.Value = findvalue.Offset(0, 14).Value
    Me.TextBox11.Value = findvalue.Offset(0, 15).Value
    Me.TextBox12.Value = findvalue.Offset(0, 16).Value
    Me.CommandBox4.Value = findvalue.Offset(0, 18).Value
    Me.TextBox8.Value = findvalue.Offset(0, 19).Value
    Me.ComboBox1.Value = findvalue.Offset(0, 20).Value
    Me.TextBox18.Value = findvalue.Offset(0, 21).Value
    Me.ComboBox2.Value = findvalue.Offset(0, 22).Value
    Me.TextBox19.Value = findvalue.Offset(0, 23).Value
    Me.TextBox22.Value = findvalue.Offset(0, 24).Value
    Me.TextBox13.Value = findvalue.Offset(0, 25).Value
    Me.TextBox14.Value = findvalue.Offset(0, 26).Value
    Me.TextBox9.Value = findvalue.Offset(0, 27).Value
    Me.CommandBox5.Value = findvalue.Offset(0, 28).Value
    Me.CommandBox6.Value = findvalue.Offset(0, 29).Value
    Me.CommandBox7.Value = findvalue.Offset(0, 30).Value
    Me.CommandBox8.Value = findvalue.Offset(0, 31).Value
    Me.TextBox5.Value = findvalue.Offset(0, 32).Value
    Me.TextBox6.Value = findvalue.Offset(0, 33).Value
    Me.TextBox7.Value = findvalue.Offset(0, 34).Value
    Me.CommandBox12.Value = findvalue.Offset(0, 41).Value
    Me.CommandBox13.Value = findvalue.Offset(0, 42).Value
End sub

Code: Select all

Set findvalue = Sheets("RegisterList").Range("a:a").Find(What:=Me.TextBox23.Value, LookIn:=xlValues, LookAt:=xlWhole)