ترحيل البيانات من عدة أوراق في ملف إلى ورقة في ملف آخر

[121403]

السلام عليكم

عندي ملفين اكسيل أريد كود بحيث ينقل البيانات من ملف math إلى الورقة fasl في الملف الثاني بحيث ينقل الورقة الأولى وبعدها ينقل الورقة 2 ويضع البيانات في أول صف فارغ بعد

أي أريده ينقل كل البيانات في الأوراق الثلاث إلى الورقة fasl ويرتبها تحت بعض

حتى لو وجد ملف آخر وبه 3 ورقات أريده ينقل بياناتهم ويضعهم تحت بيانات أوراق الملف math

وأريد تحديث في كل مرة

إليكم المرفق

ترحيل.rar

[121403]

أين انتم ياخبراء اكسيل فيدوني جزاكم الله خيرا

[121403]

الأخوة خبراء اكسيل

هل هذا الطلب غير ممكن حتى لا افكر في نقل البيانات من مصنف إلى مصنف آخر

أرجوا الرد

[الـعيدروس]

السلام عليكم

Sub T_Ali()

On Error Resume Next

With Application

	 .ScreenUpdating = False

	 .EnableEvents = False

M_p = ActiveWorkbook.Path & "\" & "math" & ".xls"

Workbooks.Open M_p

For She = 1 To Workbooks("math").Sheets.Count

Set c = Workbooks("math").Sheets(She)

Set d = Workbooks("sheet1.xls").Sheets("fasl")

Dim L_r

Dim N_r

L_r = c.Range("A65536").End(xlUp).Row

N_r = d.Range("A65536").End(xlUp).Row + 1

c.Range(c.Cells(2, 1), c.Cells(L_r, 18)).Copy

d.Range("A" & N_r).PasteSpecial xlPasteValues

Next

Application.CutCopyMode = False

Workbooks("math").Close

Workbooks("sheet1.xls").Sheets("fasl").Activate

	 .ScreenUpdating = False

	 .EnableEvents = False

End With

End Sub

تم تعديل أكتوبر 11, 2012 بواسطه عباد

[121403]

وعليكم السلام أخي ابو نصار

وضعت الكود اعلاه في المصنف math وجربته ولم يعطيني نتائج ويقوم باغلاق الصفحة

أرجوا منك اخي الكريم وضعه في المرفق واعادة ارساله اذا امكن

وشكرا

[الـعيدروس]

الزر في ملف Sheet1

A_ترحيل.rar

[121403]

السلام عليكم

الله يعطيك العافيه أخي ابو نصار

ايه الحلاوة دي سلمت يداك

ولكن عندي طلب آخر

كود مسح البيانات من الورقة fasl لترحيل البيانات من math بعد التعديل

ولك جزيل الشكر

[الـعيدروس]

السلام عليكم

تفضل

1_A_ترحيل.rar

[121403]

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

[121403]

أخي أبو نصار

كل عام وأنت والجميع بخير

كيف أرحل بيانات المصنف من صفحات محددة فقط

وكيف أنقل بيانات عدة مصنفات إلى ورقة في مصنف مثل الورقة fasl

ولك خالص شكري وتقديري

[المسعودي]

شكرا الف شكر