ahmedmar قام بنشر فبراير 24, 2011 مشاركة قام بنشر فبراير 24, 2011 الاخوة الاعزاء كيفية عمل معادلة او طريقة معينة لفصل الطالب الناجح عن الراسب فى شيت اكسل رابط هذا التعليق شارك More sharing options...
ahmedmar قام بنشر فبراير 24, 2011 الكاتب مشاركة قام بنشر فبراير 24, 2011 ارجو سرعة الاهتمام وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
مصطفى كمال قام بنشر فبراير 24, 2011 مشاركة قام بنشر فبراير 24, 2011 السلام عليكم ورحمة الله وبركاته أهلا وسهلا ومرحبا أخا كريما بيننا اخي الكريم هلا تكرمت بارسال ملف توضح فيه مايريد الإخوة القيام به قم فقط بتحميل ملف إكسيل مضغوط بالرار مثلا وسيحاول باقي الإخوة العمل عليه مرة أخرى مرحبا بك أخي الكريم بيننا رابط هذا التعليق شارك More sharing options...
صباح حسين قام بنشر فبراير 24, 2011 مشاركة قام بنشر فبراير 24, 2011 (معدل) اخي هذا كود نفلته من المنتدى وقد طبقته ونجح معي ارجو ان تستفاد منه .حيث عليك ان تغير نطاق الى الذي لديك Dim lastrow As Long Application.ScreenUpdating = False With Sheets(1) .AutoFilterMode = False lastrow = Range("a" & Rows.Count).End(xlUp).Row Range("A1:D22").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$D$22").AutoFilter Field:=4, 1 Criteria1:="راسب" .Range("a2:d" & lastrow).Copy Sheets("راسب").Range("a2") .AutoFilterMode = False End With Application.ScreenUpdating = True End Sub تم تعديل فبراير 24, 2011 بواسطه صباح حسين رابط هذا التعليق شارك 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.