Macro buscar texto en celdas y devolver rótulo de columna y fila

En el siguiente enlace te dejo el archivo con la macro programada. También te lo he mandado por mail

http://share.cx.com/s3YRtP

Recuerda finalizar

Gracias Luis. El ejemplo que me envías funciona perfectamente, pero tengo problemas para adaptarlo a mi libro. me podrías ayudar haciendo las siguientes modificaciones, o indicándome que linea de la sintaxis debo cambiar.

- El rango a buscar se encuentra en una hoja diferente, a la hoja donde se listan los resultados (mismo libro).

- Mis rótulos de columna están en el rango ("B4:SI4"), y los de filas ("A5:A80000")

Ok, entonces sustituye toda la macro anterior por esta otra y recuerda que se puede demorar debido a la magnitud del rango que debe examinar

También te lo he mandado por mail

Sub proceso()
'por luismondelo
Sheets("hoja2").Select
Range("b3").Select
valor = ActiveCell.Value
For Each celda In Sheets("hoja1").Range("b4:si80000")
If celda.Value = valor Then
Sheets("hoja2").Range("c1000").End(xlUp).Offset(1, 0).Value = Sheets("hoja1").Cells(3, celda.Column)
Sheets("hoja2").Range("d1000").End(xlUp).Offset(1, 0).Value = Sheets("hoja1").Cells(celda.Row, 1)
End If
Next
End Sub

Gracias, Luis.

Al ejecutar el macro me genera el error "tiempo de ejecución - no coinciden los tipos" en la linea:

If celda.Value = valor Then

El "texto" a buscar, es el resultado de una formula del tipo "si". Cuando borro la formula e ingreso directamente el texto a buscar, funciona el macro listando todas las entradas encontradas, aunque al final genera el error anterior.

Si pudieras revisarlo, te lo agradecería.

Saludos,

Pues será mejor verlo en tu propio archivo

Te he enviado un email con el archivo. Gracias