تعديل كود ترحيل

[moaaz2020]

تحيه طيبه

 الكود المرفق ادناه الترحيل يكون للشيت الثاني في الملف

يسببه لا استطيع تغيير ترتيب الصفحات

هل يمكن جعل الكود ياسم الشيت بدل الرقم

حاولت لكن للاسف 

Dim EndRow As Long
For I = 2 To 2
EndRow = Sheets(I).Range("B1").CurrentRegion.Rows.Count
Sheets(I).Cells(EndRow + 1, 1).Value = Sheets(1).Cells(2, 5).Value
Sheets(I).Cells(EndRow + 1, 2).Value = Sheets(1).Cells(2, 3).Value
Sheets(I).Cells(EndRow + 1, 3).Value = Sheets(1).Cells(4, 3).Value
Sheets(I).Cells(EndRow + 1, 4).Value = Sheets(1).Cells(6, 3).Value
Sheets(I).Cells(EndRow + 1, 7).Value = Sheets(1).Cells(8, 3).Value
Sheets(I).Cells(EndRow + 1, 5).Value = Sheets(1).Cells(7, 8).Value
Sheets(I).Cells(EndRow + 1, 6).Value = Sheets(1).Cells(10, 3).Value
Next I
End Sub

 

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

كيف يكون التصحيح على ملف غير موجود

وما هي اسماء الشيتات ؟؟؟؟

هل يمكن العمل غلى تخمين النتائج؟؟؟؟

ارفع الملف لمعالجة الامر

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

هل يمكن جعل الكود ياسم الشيت بدل الرقم

ما هو اسم كل صفحة  من 1 الى عدد الشيتات

هل هو    "  Sheet1 "  او   " Data1"  او  "1 Any thing  "

    "  Sheet2 "  او   "Data2 "  او  "1 Any thing  " الح.....

[moaaz2020]

ها هو الملف وعذرا للتاخير

تعديل باللست.xlsm