Pass data from 3 sheets according to a list number and name

[Visor]

Dear friends of the forum, I can not solve this problem.
I have 3 sheets Teacher, PAE and Autonomo
In each one I have a list of students in numerical order and notes according to date and reason of the note.
What I want is that when I write a number on the ALL1 Sheet A3 range, I identify the student and the notes of the three sheets are shown on the ALL1 sheet at the corresponding site.
I tried to show it but I can only with row 8, ie with student number 1
Could you please help me in this case ??

Note: I have designed two ALL1 and ALL2 modes
To present the abstract of notes of each student and to be able to print

Thank you

 

[Visor]

I have forgotten put this imagen

 

[Visor]

Please can you help me???

 

[Visor]

Maybe es this code:

Dim Finding As Range
Set Finding = Range("A8:A29").Find(What:="A6", LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)
If Finding Is Nothing Then Exit Sub
Finding.Activate

Hoja6.Range("A8:W8") = Hoja3.ActiveCell.Offset(0, 1).Value
Hoja6.Range("A8:W8") = Hoja4.ActiveCell.Offset(0, 1).Value
Hoja6.Range("A8:W8") = Hoja5.ActiveCell.Offset(0, 1).Value

but not funtion!!!