moaaz2020 قام بنشر يوليو 7, 2020 مشاركة قام بنشر يوليو 7, 2020 تحيه طيبه الكود المرفق ادناه الترحيل يكون للشيت الثاني في الملف يسببه لا استطيع تغيير ترتيب الصفحات هل يمكن جعل الكود ياسم الشيت بدل الرقم حاولت لكن للاسف 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 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 7, 2020 مشاركة قام بنشر يوليو 7, 2020 كيف يكون التصحيح على ملف غير موجود وما هي اسماء الشيتات ؟؟؟؟ هل يمكن العمل غلى تخمين النتائج؟؟؟؟ ارفع الملف لمعالجة الامر رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 7, 2020 مشاركة قام بنشر يوليو 7, 2020 هل يمكن جعل الكود ياسم الشيت بدل الرقم ما هو اسم كل صفحة من 1 الى عدد الشيتات هل هو " Sheet1 " او " Data1" او "1 Any thing " " Sheet2 " او "Data2 " او "1 Any thing " الح..... 2 رابط هذا التعليق شارك More sharing options...
moaaz2020 قام بنشر يوليو 7, 2020 الكاتب مشاركة قام بنشر يوليو 7, 2020 ها هو الملف وعذرا للتاخير تعديل باللست.xlsm رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان