ترحيل بيانات بهذه الطريقة، يوجد نموذج مرفق

[شكيب عمار]

ترحيل بيانات بهذه الطريقة، يوجد نموذج مرفق

 

 

غفر الله لكل من ساهم مسبقاً

 

 

مشكل 8.rar

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

 السلام عليكم

في الصفحة 1 كبسة يمين على اسم الصفحة في الاسفل

اختر view code

الصق الكود التالي بعد ان تكون قد نسخته (يمكنك استعمال Ctrl+Shift+h)  لتنفيذ الكود

Sub tarhil()
LR1 = Sheets("1").Cells(Rows.Count, 3).End(xlUp).Row
lr2 = Sheets("2").Cells(Rows.Count, 2).End(xlUp).Row + 1
Sheets("2").Range("b3:d" & lr2).Clear
Set myrg1 = Sheets("1").Range("C5:E" & LR1): Set myrg2 = Sheets("2").Range("b3")
myrg1.Copy
myrg2.PasteSpecial xlPasteAll
Application.CutCopyMode = False
End Sub

[ibn_egypt]

اخى الفاضل

 

تفضل الملف المرفق .. لربما به طلبك

 

تحياتي  

مشكل 8.rar

[شكيب عمار]

غفر الله لكما أنتما الإثنين، وبارك الله فيكما، 

 

لكن الإشكال إذا تغيرت الأعمدة والصفوف في الصفحة الثانية

 

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

 

يوجد ملف مرفق آخر

 

 

 

مشكل 8-1.rar

[شكيب عمار]

للرفــــــــــــع

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

 بواسطة هذا الكود تستطيع ان تحدد الى اي نطاق سوف يتم النقل

مشكل 8.rar