استدعاء بيانات موظف من ورقة عمل اخرى عن طريق كود الموظف أو اسمه

[ابراهيم٨٧]

السلام عليكم ورحمة الله وبركاته

كيفكم اخواني..

عندي ملف اكسل اسمه بيانات الموظفين فيها كل شيء عنه من رقمه الوطني والرقم الوظيفي وتاريخ التوظيف والراتب الشهري والاقتطاعات الحاصلة على الراتب (ضريبة دخل - اقساط)..

وعندي ملف اكسل آخر عبارة عن بيان بالراتب للموظف.. ملف مفرغ عندما يطلب مني احد الموظفين لبيان بالراتب اذهب الى الملف الأول(بيانات الموظفين) واقوم بنسخ البيانات ولصقها في ملف (بيان بالراتب) وطباعة..

اريد طريقة بحيث عندما اكتب رقم اكتتاب الموظف في ملف (بيان الراتب) يتم استدعاء البيانات اوتوماتيك من ملف (بيانات الموظفين). 

جزاكم الله خيرا

 

•  

بياتات الموظفين.xlsx بيان الراتب.xlsx

[سليم حاصبيا]

و ما الحاجة الى ملفين لهذه الغاية

يكفي في الملف الاساسي وضع صفحة مخصصة للحصول على البيانات

مثل هذا (الصفحة Salim)

Employ_data.xlsx

[ابراهيم٨٧]

بارك الله فيك استاذ سليم وجزاك الله خيراً

شكراً لإجابتك أولاً

ثانياً:انا مضطر الى استخدام الطريقة التي حدثتك عنها كون مديري في العمل طلب تلك الطريقة.

ولك الشكر سلفا استاذي

[سليم حاصبيا]

جرب هذا المصنف

1-مؤلف من ملفين الاول تجت اسم  "Empl.xlsx"    و الثاني تحت اسم "Rateb.xlsm"

2-البحث يتم في الملف "Rateb.xlsm"

3- اختر كود الموظف من الخلية A3  واضغط الزر "هاتها دكتور اكسل"

Empl.xlsx Rateb.xlsm

[سليم حاصبيا]

ماكرو اخر يقوم بنفس المهمة

Option Explicit

Sub FIND_EMPLOY()
Dim mPath$
Dim F_Name, TS$
Application.ScreenUpdating = False
If UCase(ActiveSheet.Name) <> "SALIM" Then GoTo BAY_BAY_YA_HILWEEN
mPath = ThisWorkbook.Path & "\"
F_Name = mPath & "[Empl.xlsx]"

F_Name = F_Name & "DATA'!$A$2:$J$100"
Range("B3").Resize(, 9).ClearContents
TS = "VLOOKUP($A3,'" & F_Name & ",COLUMNS($A$1:B1)" & ",0" & ")"
TS = "=IFERROR(" & TS & ","""")"

With Range("B3").Resize(, 9)
.Formula = TS
.Value = .Value
End With

    If Range("B3") = vbNullString Then
      MsgBox "THIS CODE :" & Chr(10) & _
      """" & Range("A3") & """" & Chr(10) & _
      "DOES'T EXITS IN WORKBOOK  "" Empl.Column(A)"" "
      Range("A3").ClearContents

   End If
BAY_BAY_YA_HILWEEN:
Application.ScreenUpdating = True
End Sub

 

[yara ahmed]

انت مدهش

ماشاء الله 

تبارك الله

استفدت جدااااااااااا من هذا الموضوع

 

[ابراهيم٨٧]

ماشاء الله عليك استاذ سليم

حماك الله ووفقك وجعل عملك ومساعدتك لنا في ميزان حسناتك