Buscar En Excel

[obistein]

3Pies, modifique un poco el codigo que me diste, para q me busque en un rango de 2 filas "E:F". Ahora el drama mio es que me muestre el resultado en la "Label2" pero en este orden
Primero los datos de la columna D, luego un caracter cualquiera(puede ser "="), luego los datos del la Columna E y despues los de la F.
O sea, en la Columna D tengo el Nº Empleado, en la E, el Nombre y en la F el apellido, quiero que me ponga:
D = E F
Nº = Pablo Ramirez


Te paso el código que arreglé. Gracias

With Hoja5.Range("E3:F400")
Set vamos_a_buscar = .Find(articulo_a_buscar, LookIn:=xlValues)
If Not vamos_a_buscar Is Nothing Then
principio = vamos_a_buscar.Address
Do
'Pasamos los datos a un array
descripcion_del_articulo = descripcion_del_articulo & "," & vamos_a_buscar.Value
articulo = articulo & "," & Hoja5.Range(vamos_a_buscar.Address).Offset(0, -1)
Set vamos_a_buscar = .FindNext(vamos_a_buscar)
Loop While Not vamos_a_buscar Is Nothing And vamos_a_buscar.Address <> principio

Perdón, me falto un pedazo del código

End If
End With
'Quitamos la coma inicial
descripcion_del_articulo = Mid(descripcion_del_articulo, 2)
articulo = Mid(articulo, 2)
'Seleccionamos el artículo de la columna de la izquierda (código)
'Lo ponemos en la etiqueta oculta, pero delante ponemos el artículo,
'y el signo igual, siempre y cuando el código exista
articulo = Split(articulo, ",")
descripcion_del_articulo = Split(descripcion_del_articulo, ",")
For i = 0 To UBound(articulo)
If i <> 0 Then intro = Chr(13)
Label2.Caption = Label2.Caption & intro & articulo(i) & " = " & descripcion_del_articulo(i)
Next