Buscar en la columna C de la Hoja seleccionada, un alfa-num desde el TextBox5, y retorne su contenido de las columnas a los TxBx

H o l a:

Disculpa, pero ya no entendí, si vas a buscar lo que tengas en el textbox1 o en el textbox5.

Te dejo el ejemplo para el textbox1:

Private Sub CommandButton1_Click()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    If TextBox1 = "" Then
        MsgBox "Captura el dato en el textbox1"
        Exit Sub
    End If
    '
    Set b = h1.Columns("C:D").Find(what:=TextBox1, lookat:=xlWhole, LookIn:=xlValues)
    If Not b Is Nothing Then
        TextBox6 = h1.Range("D" & b.Row)
        TextBox7 = h1.Range("E" & b.Row)
    Else
        MsgBox "El Dato no fue encontrado.", vbOKOnly + vbInformation, "Aviso"
        TextBox1 = ""
        TextBox1.SetFocus
    End If
End Sub

Si falta algo, entonces me explicas qué quieres buscar, en dónde lo quieres buscar y qué datos quieres en cuáles textbox.

':)
S a l u d o s . D a n t e A m o r
':) Si es lo que necesitas. Recuerda valorar la respuesta. G r a c i a s.

Disculpa Dante... creo que debí enviarte la macro completa. La primera parte de la macro funciona bien retomando los datos completos para los TextBox al encontrar la hoja seleccionada del combobox1.

La segunda parte es la que se atora, pues debe buscar en esta misma hoja seleccionada, pero en la en la columna "C" el numero que se asigna de forma  manual en el TextBox5 para que me regrese de esa linea encontrada  los datos de las columnas D.F.G.H.I.J a los TxBx6,7,8,9,10, y 15 

Por tu atención y rapidez... Muchisimas gracias...

Private Sub CommandButton1_Click() 'BUSCAR IDENTIFICACION
'call arrancar reloj
Application.ScreenUpdating = False
For Each h In Sheets
n = h.Name
If UCase(h.Name) = UCase(ComboBox1) Then
existe = True
Exit For
End If
Next
If existe = False Then
MsgBox "la hoja seleccionada no existe", vbCritical, "SELECIONAR HOJA"
Exit Sub
ComboBox1.SetFocus
End If
'ENCUENTRA LA HOJA SEÑALADA EN EL CBBX1,IDENTIFICA DATOS GENERALES Y LOS TRASPASA A LOS TxBx
Set h1 = Sheets(ComboBox1.Value)
TextBox1 = h1.Range("D3")
TextBox2 = h1.Range("D4")
TextBox3 = h1.Range("D5")
TextBox4 = h1.Range("D6")
'--------------------------------------------------
'Por.Dante Amor
Set h1 = Sheets(TextBox5.Value)
'Set h1 = Sheets("Obra5")
If TextBox5 = "" Then
MsgBox "Captura el dato en el textbox5"
Exit Sub
End If

Set b = h1.Columns("C:D").Find(what:=TextBox5, lookat:=xlWhole, LookIn:=xlValues)
If Not b Is Nothing Then
TextBox6 = h1.Range("D" & b.Row)
TextBox7 = h1.Range("E" & b.Row)
TextBox8 = h1.Range("F" & b.Row)
TextBox9 = h1.Range("G" & b.Row)
TextBox10 = h1.Range("H" & b.Row)
TextBox15 = h1.Range("J" & b.Row)
Else
MsgBox "El Dato no fue encontrado.", vbOKOnly + vbInformation, "Aviso"
TextBox1 = ""
TextBox1.SetFocus
End If

'----------------------------------
Application.ScreenUpdating = True
'h1.protect

End Sub