جزاك الله خير الجزاء اخي حسين العصلوجي
نعم تم حل المشكة بطريقتك
ولكن لايعطي الرقم الاكاديمي وانما يعطي رقم السجل
و تم التعديل من TS.Cells(TR, 2) = FS.Cells(R, 2)
الى TS.Cells(TR, 2) = FS.Cells(R, 3)
والفضل بعد فضل الله لك
فاسأل الله أ ييسر أمورك ويرزقك من حيث لاتحتسب