En ese caso haces como te dije. Fíjate, un ejemplo sencillo:
Código vb:
Ver originalDim Finding As Range
'Hoja es la hoja donde tienes los datos
'Hipotéticamente la columna del id (p001, p002...) la tienes en L
'Buscamos el p101
Set Finding = Sheets("Hoja").Range("L1:L131").Find("P101")
If Not Finding Is Nothing
'Mostrar en la celda A1 de otra hoja el contenido de la columna A
'de la misma fila donde se encontró la coincidencia
Sheets("Otra_Hoja").Range("A1") = Sheets("Hoja").Range("A" & Finding.Row)
End If