ربط البيانات بين الصفحات

[ابو مانع]

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

 

 

اخواني اتمنى اجد احل عندك لاستفساري

 

 

ولا اعلم هل العنوان صحيح ام لا

 

 

لكن بالمثال يتضح المقال

 

مثلا/ اذا عندي شيت فيه ارقام 600 طالب في عمود والعمود الاخر فيه رقم مرشدة الاكاديمي ( وهم ثلاثة فقط ) بحيث لكل 200 طالب مرشد

 

الشيت الاخر فيه رقم الف طالب ( ومن ضمنهم ال600 الذين بالشيت السابق ) لكن الالف متخالطة ارقامهم مع ال600 اي ليسو متسلسلين

 

 

 

اريد ربط ال600 بارقام مرشيدة بحيث يتبقى لي 400 .. يتم تعبئئتهم يدوياَ بدل من ان اضطر لمارجعت ال1000 جميعهم

 

ولكم وافر الشكر والاحترام

[ابو مانع]

ليه كذا يا اخوان؟ هل الموضوع صعب لهالدرجة

[رجب جاويش]

أخى الفاضل

ليست صعوبة الموضوع

ولكن لعدم وجود مرفق للعمل عليه

برجاء ارسال ملف مرفق به مثال وشرح لما تريد

تم تعديل يونيو 14, 2013 بواسطه رجب جاويش

[ابو مانع]

هذا ملف مرفق به مثال لما اريد

 

الشيت الاول به 72 رقم طالب .. وبجانب كل طالب رمز مرشدة

 

الشيت الثانية بها 100 رقم طالب ( تشمل ال72 السابقون ) لكن بدون رمز المرشد

 

هل ممكن وضع رقم المرشد الياً وربطة مع رقم الطالب بحيث لا اعيد تعبئة المرشد واحد واحد بالشيت الثنية ..بالنسبة للارقام السابقة؟

Book1.rar

[حاملة المسك]

أخى الفاضل

 

أرجو أن يكون هذا ما تريد

Book1.rar

[رجب جاويش]

ولاثراء الموضوع

هذا حل بالأكواد

Sub ragab()
Dim sh As Worksheet
Dim ws As Worksheet
Dim LR1 As Integer, LR2 As Integer
Dim cl As Range, cll As Range
'=============================================
Set sh = Sheets("sheet1")
Set ws = Sheets("sheet2")
LR1 = sh.Cells(Rows.Count, 1).End(xlUp).Row
LR2 = ws.Cells(Rows.Count, 1).End(xlUp).Row
'=============================================
For Each cl In sh.Range("A2:A" & LR1)
    For Each cll In ws.Range("A2:A" & LR2)
        If Val(cl) = Val(cll) Then
            cll.Offset(0, 2) = cl.Offset(0, 2)
        End If
    Next
Next
Set sh = Nothing
Set ws = Nothing
End Sub

link.rar

تم تعديل يونيو 14, 2013 بواسطه رجب جاويش

[ابو مانع]

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

 

هكذا الابداع والا فلا

 

بالفعل هذا ما كنت ابحث عنه