Private Sub CommandButton1_Click()
Dim ws As Worksheet, SC As String
Dim y As Range, x As Range
Set ws = Sheets("SH")
SC = Search.ComboBox1.Text
RG = Search.TextBox2.Value
If SC = "" Then Shihada.Show
If SC = "" Then Exit Sub
For Each y In ws.Range("C12:C" & ws.Range("C" & Rows.Count).End(xlUp).Row)
If y.Value = SC Then
ws.Activate
y.Select
Search.TextBox2.Value = ActiveCell.Offset(0, -1)
Shihada.Label1.Caption = ActiveCell.Offset(0, -1)
Shihada.Label2.Caption = ActiveCell.Offset(0, 0)
Shihada.Label3.Caption = ActiveCell.Offset(0, 2)
Shihada.Label4.Caption = ActiveCell.Offset(0, 8)
Shihada.Label5.Caption = ActiveCell.Offset(0, 18)
Shihada.Label6.Caption = ActiveCell.Offset(0, 28)
Shihada.Label7.Caption = ActiveCell.Offset(0, 39)
Shihada.Label8.Caption = ActiveCell.Offset(0, 51)
Shihada.Label9.Caption = ActiveCell.Offset(0, 59)
Shihada.Label10.Caption = ActiveCell.Offset(0, 63)
Shihada.Label11.Caption = ActiveCell.Offset(0, 68)
Shihada.Label12.Caption = ActiveCell.Offset(0, 73)
Shihada.Label13.Caption = ActiveCell.Offset(0, 78)
Shihada.Label14.Caption = ActiveCell.Offset(0, 83)
Shihada.Label15.Caption = ActiveCell.Offset(0, 89)
Shihada.Label16.Caption = ActiveCell.Offset(0, 99)
Shihada.Label17.Caption = ActiveCell.Offset(0, 109)
Shihada.Label18.Caption = ActiveCell.Offset(0, 9)
Shihada.Label19.Caption = ActiveCell.Offset(0, 19)
Shihada.Label20.Caption = ActiveCell.Offset(0, 29)
Shihada.Label21.Caption = ActiveCell.Offset(0, 40)
Shihada.Label22.Caption = ActiveCell.Offset(0, 52)
Shihada.Label23.Caption = ActiveCell.Offset(0, 60)
Shihada.Label24.Caption = ActiveCell.Offset(0, 64)
Shihada.Label25.Caption = ActiveCell.Offset(0, 69)
Shihada.Label26.Caption = ActiveCell.Offset(0, 74)
Shihada.Label27.Caption = ActiveCell.Offset(0, 79)
Shihada.Label28.Caption = ActiveCell.Offset(0, 84)
Shihada.Label29.Caption = ActiveCell.Offset(0, 90)
Shihada.Label30.Caption = ActiveCell.Offset(0, 100)
Shihada.Label31.Caption = ActiveCell.Offset(0, 110)
Shihada.Label32.Caption = ActiveCell.Offset(0, 117)
Search.ComboBox1.Text = ""
Search.TextBox2.Value = ""
End If
Next
Shihada.Show
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
Set ws = Sheets("SH")
ws.Range("C12:C" & ws.Range("C" & Rows.Count).End(xlUp).Row).Name = "Sors"
ComboBox1.RowSource = "Sors"
End Sub