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

[عبدالفتاح محمد]

السلام عليكم

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

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

عهدة.xlsm

[ليلى الهلالي]

السلام عليكم

أخي الفاضل عبدالفتاح

شهر مبارك

لقد عدلت في الكود وقد قام بعملية الترحيل بحسب ما وضعته أنت في الكود. ولكني لم افهم ما هو المطلوب ترحيله بالضبط هل تريد ترحيل البيانات التي في الأعمدة أم كما هو موجود في المرفق الذي أرسلته؟

جرب الكود قد يكون هو المطلوب

Option Explicit
Sub transferData()
Dim i As Long
Dim lastrow As Long
Dim erow As Long
lastrow = Sheets("æÑÞÉ1").Range("a" & Rows.Count).End(xlUp).Row
For i = 3 To lastrow
erow = Sheets("æÑÞÉ2").Range("a" & Rows.Count).End(xlUp).Offset(1, 0).Row
Range(Cells(i, 1), Cells(i, 6)).Copy Destination:=æÑÞÉ2.Cells(erow, 1)
Next i
Cells(erow, 6) = WorksheetFunction.Sum(Worksheets("æÑÞÉ2").Range("e3:e35"))
End Sub