كود ترحيل من صفحة الى أخرى

[البرنس النصراوي]

السلام عليكم 
اريد كود او طريقة لترحيل البيانات من شيت رقم 1 الى الشيت رقم 2
حيث يحتوي الشيت رقم 2 على كشف مختصر يتم استدعاء البيانات وفقا لرقم الهوية و يقوم بنقل معلومات مختصره عن العميل في صفحة جديدة لطباعتها 
مرفق لكم الشيت 

قاعدة بيانات.rar

[حسين مامون]

اخي الكريم 

يجب اعادة ظبط البيانات في قاعدة البيانات لان رقم هوية العميل مكرر والاسم كذالك

انت تريد كشف عميل بناء على رقم الهوية ، ادا لابد من ادخال عدة عملاء مختلة اساؤهم و ارقام الهوية ايضا

تحياتي

تم تعديل يناير 2, 2020 بواسطه حسين مامون

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

جرب هذا الكود

Option Explicit


Sub give_data()

Dim ARR_P, P As Worksheet, D As Worksheet
Dim MY_RG As Range, MY_NAME$, R%, i%

ARR_P = Array(4, 6, 9, 2, 16, 15, 17, 13, 14, 7, 8, 3, 18, 19)
Set P = Sheets("Principal"): Set D = Sheets("DATA")
P.Cells(7, "C").Resize(14) = vbNullString
MY_NAME = P.Range("A3")
Set MY_RG = D.Range("B3").CurrentRegion
If MY_RG.Columns("E").Find(MY_NAME, lookat:=1) Is Nothing Then Exit Sub
R = MY_RG.Columns("E").Find(MY_NAME, lookat:=1).Row

For i = 0 To UBound(ARR_P)
 P.Cells(7, "C").Offset(i).Value = D.Cells(R, ARR_P(i))
Next
 Erase ARR_P
End Sub

الملف مرفق

Data_base.xlsm

[البرنس النصراوي]

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

قاعدة بيانات.xlsx

 

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

الملف جاهز

مجرد ان تحدد ما المطلوب من الخلية A3  ستجد كل شيء امامك

 

My_data.xlsm

[البرنس النصراوي]

طيب اذا عملت ملف اكسيل منفصل  واريد عمل استدعاء لها بغرض مشاركة ملف الإستعلام