أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





مطابقة الاسم بين الملفين ثم ترحيل الدرجة

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


موضوع مغلق


22-11-2020 08:35 مساء
nayef mohammad
عضو
معلومات الكاتب ▼
تاريخ الإنضمام : 18-11-2020
رقم العضوية : 20854
المشاركات : 3
الجنس : ذكر
تاريخ الميلاد : 3-1-1985
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 25
 offline 

السلام عليكم
كيف حال الاعضاء في المنتدى المتميز
لدي ملفين الاول متابعة والثاني اختبار
اريد المطابقة بين اسماء الملف الاول والثاني ثم يقوم بنسخ الدرجة من الملف الثاني للملف الاساسي (المتابعة) بناءً على الاسم
تم تجريب دالة VLOOKUP وهي ممتازة جداً هل يوجد كود يعمل عملها 
 
 
  الاختبار1.xlsx   تحميل xlsx مرات التحميل :(8)
الحجم :(9.468) KB
  متابعة.xlsm   تحميل xlsm مرات التحميل :(8)
الحجم :(14.998) KB



أفضل إجابة مقدمة من salim وهي:
جرب هذا الأمر
العمل في الملف Moutab
الكود يعمل حتى ولا كان الملف الثاني مغلقاً
المهم ان يكون الملفان في نفس الــ Folder

Option Explicit
Sub fINd_Please()
Dim mPath$
Dim F_Name
If UCase(ActiveSheet.Name) <> "A_SUIVRE" Then Exit Sub
mPath = ThisWorkbook.Path & ""
F_Name = mPath & "[Choise.xlsx]"
F_Name = F_Name & "Sheet1'!$A$2:$B$100"
Range("z4").Resize(15, 2).ClearContents
Range("Z4").Resize(15, 2).FormulaArray = "='" & F_Name

With Range("O5:O19")
.ClearContents
.Formula = _
"=IFERROR(INDEX($AA$4:$AA$18,MATCH(B5,$Z$4:$Z$18,2)),"""")"
 .Value = .Value
End With
Range("z4").Resize(15, 2).ClearContents

End Sub


 
عرض الإجابة




22-11-2020 11:09 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif مطابقة الاسم بين الملفين ثم ترحيل الدرجة
جرب هذا الأمر
العمل في الملف Moutab
الكود يعمل حتى ولا كان الملف الثاني مغلقاً
المهم ان يكون الملفان في نفس الــ Folder

Option Explicit
Sub fINd_Please()
Dim mPath$
Dim F_Name
If UCase(ActiveSheet.Name) <> "A_SUIVRE" Then Exit Sub
mPath = ThisWorkbook.Path & ""
F_Name = mPath & "[Choise.xlsx]"
F_Name = F_Name & "Sheet1'!$A$2:$B$100"
Range("z4").Resize(15, 2).ClearContents
Range("Z4").Resize(15, 2).FormulaArray = "='" & F_Name

With Range("O5:O19")
.ClearContents
.Formula = _
"=IFERROR(INDEX($AA$4:$AA$18,MATCH(B5,$Z$4:$Z$18,2)),"""")"
 .Value = .Value
End With
Range("z4").Resize(15, 2).ClearContents

End Sub


 
 
 
  Moutab.xlsm   تحميل xlsm مرات التحميل :(20)
الحجم :(27.618) KB
  Choise.xlsx   تحميل xlsx مرات التحميل :(16)
الحجم :(16.79) KB




الكلمات الدلالية
مطابقة ، الاسم ، الملفين ، ترحيل ، الدرجة ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 06:23 مساء