نقل واسترداد البيانات من ملف اكسل الى ملف اكسيل أخر

[حراثي تواتي]

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

مرحبا بكم زوار و خبراء منتدانا الحبيب

عندي 2 ملف اكسيل الأول اسمه v1 والثاني اسمه v2 ، أريد نقل أو استراد البيانات من sheet1 من النطاق (D6:G15 ) الموجودة بالملف V1 الى الملف الثاني V2 الى نفس sheet1 ونفس النطاق بالملف الثاني

في انتظار مساعدتكم وكرمكم علينا تقبلوا مني فائق عبارات الاحترام و التقدير

نقل البيانات من ملف خارجي.rar

[Ali Mohamed Ali]

وعليكم السلام

يمكنك استخدام  هذا الكود

Sub Copy_Paste_Below_Last_Cell()
Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long
  Set wsCopy = Workbooks("v1.xlsm").Worksheets("Sheet1")
  Set wsDest = Workbooks("v2.xlsm").Worksheets("Sheet1")
    lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "D").End(xlUp).Row
      lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "D").End(xlUp).Offset(1).Row
  wsCopy.Range("D6:G" & lCopyLastRow).Copy _
    wsDest.Range("D" & lDestLastRow)
End Sub

 

ترحيل من ملف اكسل الى اخر.rar

[حراثي تواتي]

شكرا أخي  Ali Mohamed Ali  على الاهتمام والمتابعة ، فقط اريد من ملف V2 ومن اليوزر فورم من زر استراد يقوم بفتح الملف V1 وينقل البيانات الى النطاق المحدد

اذا عملية استراد وليس ترحيل

شكرا استاذنا الفاضل

[محمود_الشريف]

أخى الكريم

بالمرفقات ما طلبت 

توضيح (( اليوزرفورم المستخدم ))

بعد فتح الملف ، قم بالوقوف على الخلية المراد لصق البيانات بدءا منها

ثم من خلال الضغط على زر اضغط هنا يقوم بفتح نافذة حوار من خلالها قم بإختيار الملف المطلوب النسخ منه

ثم تقوم بتحديد البيانات أو النطاق المراد نسخ البيانات منه 

سيظهر النطاق المحدد باليوزرفورم 

ثم اختر طريقة اللصق التى تفضلها

ثم اضغط على زر لصق 

الملف المطبق به اليوزرفورم v1.xlsm

 

[عادل حنفي]

بعد اذن الاخوة

اخي جرب الملف باللينك التالي

https://www.officena.net/ib/topic/91166-نقل-بيانات-من-ملف-اكسل-لملف-اخر/