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
سليم حاصبيا قام بنشر يوليو 7, 2020 قام بنشر يوليو 7, 2020 كيف يكون التصحيح على ملف غير موجود وما هي اسماء الشيتات ؟؟؟؟ هل يمكن العمل غلى تخمين النتائج؟؟؟؟ ارفع الملف لمعالجة الامر
سليم حاصبيا قام بنشر يوليو 7, 2020 قام بنشر يوليو 7, 2020 هل يمكن جعل الكود ياسم الشيت بدل الرقم ما هو اسم كل صفحة من 1 الى عدد الشيتات هل هو " Sheet1 " او " Data1" او "1 Any thing " " Sheet2 " او "Data2 " او "1 Any thing " الح..... 2
moaaz2020 قام بنشر يوليو 7, 2020 الكاتب قام بنشر يوليو 7, 2020 ها هو الملف وعذرا للتاخير تعديل باللست.xlsm
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.