رضا على قام بنشر مارس 11, 2016 مشاركة قام بنشر مارس 11, 2016 ترحيل صفوف الى عدة اوراق الترحيل1.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 11, 2016 مشاركة قام بنشر مارس 11, 2016 جرب هذا الملف عندك خلايا مدمجة في الاعمدة (X / AB)جيث من الصعب اجراء المعادلات عليها لذا قدر الامكان الغ الدمج و اسحب المعادلات الترحيل1 salim.rar 1 رابط هذا التعليق شارك More sharing options...
رضا على قام بنشر مارس 11, 2016 الكاتب مشاركة قام بنشر مارس 11, 2016 رابط هذا التعليق شارك More sharing options...
رضا على قام بنشر مارس 11, 2016 الكاتب مشاركة قام بنشر مارس 11, 2016 شكرا جزيلا لردكم وان كنت افضل الاكواد وهناك طالب رقم ٢٠٤ غير موجود واذا اكتب رقمه يحدت اخطاء رابط هذا التعليق شارك More sharing options...
رضا على قام بنشر مارس 11, 2016 الكاتب مشاركة قام بنشر مارس 11, 2016 الملف بدون اى خلايا مدمجه الترحيل1.rar رابط هذا التعليق شارك More sharing options...
رضا على قام بنشر مارس 12, 2016 الكاتب مشاركة قام بنشر مارس 12, 2016 ارجو المساعدة من العالمى الاسطورة زيزو العجوز رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 12, 2016 مشاركة قام بنشر مارس 12, 2016 22 ساعات مضت, رضا على said: الملف بدون اى خلايا مدمجه الترحيل1.rar ماذا تقول عن الصفوف من 5 الى 11 1 رابط هذا التعليق شارك More sharing options...
رضا على قام بنشر مارس 12, 2016 الكاتب مشاركة قام بنشر مارس 12, 2016 فيهم ايه رابط هذا التعليق شارك More sharing options...
رضا على قام بنشر مارس 12, 2016 الكاتب مشاركة قام بنشر مارس 12, 2016 فهمت والمطلوب فى الملف بدون دمج الترحيل111.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مارس 12, 2016 مشاركة قام بنشر مارس 12, 2016 السلام عليكم تفضل أخى Sub TARHIL() Dim Sh As String Dim i As Integer Dim AA As Integer '====================================================== Application.ScreenUpdating = False Sheets("ناجح").Range("A12:X1000").ClearContents Sheets("دور ثان").Range("A12:X1000").ClearContents Sheets("راسب").Range("A12:X1000").ClearContents '====================================================== For i = 12 To Cells(10000, "Y").End(xlUp).Row Sh = Cells(i, "Y").Value AA = Sheets(Sh).Cells(10000, 2).End(xlUp).Row + 1 If AA < 12 Then AA = 12 On Error Resume Next Range(Cells(i, "B"), Cells(i, "X")).Copy Sheets(Sh).Range("B" & AA).PasteSpecial xlPasteValues Application.CutCopyMode = False Sheets(Sh).Cells(AA, "A").Value = Sheets(Sh).Cells(AA, "A").Row - 11 Next i Application.ScreenUpdating = True MsgBox "تم الفصل بنجاح" End Sub الترحيل1.rar 1 رابط هذا التعليق شارك More sharing options...
رضا على قام بنشر مارس 12, 2016 الكاتب مشاركة قام بنشر مارس 12, 2016 والله وعملوها الرجاله دة اللى انا عاوزة بالضبط رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان