الشاب يوسف قام بنشر مايو 1, 2012 مشاركة قام بنشر مايو 1, 2012 ناجح وراسب.rarهذا الكود من تصميم أخد الأخوه الأفاضل فى هذا المنتدى ولكنى حاولت التعديل فية ولكن ظهر خطا ما فى الترحيل لا أعرفه فارجو من الأخوه مساعدتى فى تصحيحه الملف (ناجح وراسب)هو المقصود تصحيحة والملف( ناجح وراسي 2) هو الأصلى الغير معدلناجح وراسب2.rar رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 1, 2012 مشاركة قام بنشر مايو 1, 2012 تفضل أخى ناجح وراسب.rar رابط هذا التعليق شارك More sharing options...
الشاب يوسف قام بنشر مايو 1, 2012 الكاتب مشاركة قام بنشر مايو 1, 2012 لك الشكر اخى الغالى بارك الله فيك رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر مايو 1, 2012 مشاركة قام بنشر مايو 1, 2012 أخى الفاضل هذا اختصار للكود السابق Sub SEPARATION() Application.ScreenUpdating = False Sheets("äÇÌÍ").Range("B4:Y1000").ClearContents Sheets("ÑÇÓÈ").Range("B4:Y1000").ClearContents Dim ResSh As String For y = 4 To Cells(1000, 23).End(xlUp).Row ResSh = Cells(y, 23).Value AA = Sheets(ResSh).Cells(1000, 23).End(xlUp).Row + 1 On Error Resume Next Range(Cells(y, "B"), Cells(y, "y")).Copy Sheets(ResSh).Range("b" & AA).PasteSpecial xlPasteValues Application.CutCopyMode = False Next y Application.ScreenUpdating = True MsgBox "Êã ÝÕá ÇáäÇÌÍíä æÇáÑÇÓÈíä ÈßÔÝíä ãäÝÕáíä ÈäÌÇÍ" End Sub ناجح وراسب تعديل 1.rar رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.