السلام عليكم بها نبدا أي موضوع أخي الكريم

في ورقة العمل Print اعمل كليك يمين على الخلية B14 ثم تنسيق خلايا Format Cells ثم مخصص Custom ثم اكتب في خانة التنسيق علامة الشباك ليظهر الرقم القومي بشكل صحيح #

اعمل كليك يمين على اسم ورقة العمل Print ثم اختر View Code والصق الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x
    If Target.Address(0, 0) = "B7" Then
        x = Application.Match(Target.Value, Sheets(1).Columns(1), 0)
        If Not IsError(x) Then
            Range("B9").Resize(13).Value = Application.Transpose(Sheets(1).Range("B" & x).Resize(, 13).Value)
        End If
    End If
End Sub

الاستاذ/ ياسر
جزاك الله خيراً للمساعدة، وقد قمت بتنفيذ اجابتك على الموضوع حرفياً ولكن لم تؤتي ثمارها
فكل ما أريده هو في ورقة الطباعة استعلم عن اسم الموظف بالرقم المسسلسل {م} فيظهر لي كل بيانات الموظف وذلك من خلال ورقة الداتا بحيث يكون هناك مربع باسم الفورم بأعلى الصحفة مثلاً كما بالملف المُرفق فأضغط عليه فيتم التحويل إلى صفحة البرنت وتكون كل بيانات الموظف موجودة كما بالتنسيق فأقوم بطباعتها
فهل أطمع في كرمك لمثل هذا العمل وجزاك الله عنا خير الجزاء

أخي الكريم
راجع الكود بشكل جيد فالكود يقوم بالاستعلام من خلال رقم الموظف في الخلية B7 ويجلب البيانات في ورقة العمل Print
إذا لم يكن هذا هو المطلوب ، فالمشكلة غير واضحة لي وأترك المشاركة للأخوة الأعضاء.

اقتبـاس ،، عندما أضغط على زر الفورم تفتح لي نافذة أكتب فيها رقم الموظف {م} فتظهر بيانات ذلك الموظف في شيت الداتا فأقوم بطباعته بعد ذلك

وفي سؤالك من البدايه تقول شيئ اخر

اقتبـاس ،، بحيث يكون هناك مربع باسم الفورم بأعلى الصحفة مثلاً كما بالملف المُرفق فأضغط عليه فيتم التحويل إلى صفحة البرنت

وتم اجابه سؤالك الذي ذكرته في بدايه سؤالك وهذا سؤال اخر

الصراحة لا أدري المغزى من استخدام الفورم في حين أنه يكفي أن تكتب في خلية فتحصل على مرادك.
الأفضل دائماً تبسيط ملفات العمل بما يجعل العمل أيسر وأسهل (هذا مجرد رأي شخصي)

تعديل بسيط لعله المطلوب

اخى الكريم
لتمكين الماكرو قم بالاتى

1. انقر فوق علامة التبويب ملف.

   
   

2. انقر فوق خيارات.

   
   

3. انقر فوق مركز التوثيق، ثم انقر فوق إعدادات مركز التوثيق.

   
   

4. انقر فوق إعدادات الماكرو في مركز التوثيق.
   
   
   ثم علم على الاختيار (تمكين كافة وحدات الماكرو )
   ثم اضغط موافق

   
   

تفضل اخى الكريم
Shoun

شكراً جزيلا أخي الفاضل وربنا يجزيك كل خير

وجزاكم مثله اخى الكريم
الحمد لله الذي بنعمته تتم الصالحات