كود راائع للاستاذ / ياسر خليل

[ناصر سعيد]

السلام عليكم ورحمة الله

في هذا الملف كود في حدث صفحه شهاده 1

خاص بالفلتره ولكنه لايعمل في هذا المرفق

كلمات السر والمستخدم 1

برجاء تضبيطه

https://up.top4top.net/downloadf-47498nnd1-rar.html

[بن علية حاجي]

السلام عليكم ورحمة الله

موقع التحميل يعلن عن وجود فيروس...

حمله من جديد عبر المنتدى...

بن علية

[ناصر سعيد]

الاستاذ المحترم بن عليه

ربنا يبارك فيك ويجزيك خيرا

الملف حجمه اكبر من تحميل على المنتدى

تم تحميل الملف على موقع اخر والملف ان شاء الله نظيف

https://gulfsup.com/ace79ax

[ناصر سعيد]

للرفع

[ناصر سعيد]

Const studentData As String = "رصد الترم الثانى"
Const shehada As String = "شهادة1"
'هذا الكود للمحترم ياسر خليل
'جزاه الله خيرا
'الهدف من الكود هو الفلتره
Private Sub Worksheet_Activate()
 'Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    'Application.EnableEvents = False


Application.DisplayAlerts = False
Sheets(shehada).Range("U:U").ClearContents

Sheets(studentData).Range("D7:D500").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Sheets(shehada) _
.Range("U5"), Unique:=True
'Sheets(Shehada).Range("Y4").Value = "الكل"

With Sheets(shehada).Range("U5")
        .Interior.Pattern = xlSolid
        .Interior.Color = 65535
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlThin
        .Font.Size = 16
End With

With Sheets(shehada).Range("U5:U15")
        .Interior.Pattern = xlSolid
        .Interior.ColorIndex = 0
        .Borders.LineStyle = xlContinuous
        .Borders.Weight = xlThin
        .Font.ColorIndex = 0
        .Font.Size = 16
End With


Application.DisplayAlerts = True
     '  Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
   ' Application.EnableEvents = True

End Sub

هذا هو الكود الذي لايعمل في ملفي .. لماذا لااعرف

[ناصر سعيد]

للرفع رفع الله مقداركم

[بن علية حاجي]

السلام عليكم ورحمة الله

الملف تم تحميله ولكن عند فتحه يقوم الإكسيل بإصلاحه فيمسح كل أكواد VBA ولا يترك سوى الشيتات دون أكواد... والذي لم أفهمه هو: ما الذي تريد تصفيته (فلترته) في ورقة "شهادة1" ؟؟؟

أخوك بن علية

[ناصر سعيد]

اريد فلترة الفصول لتظهر في ورقه شهاده1

فنعمل منها قائمه منسدله

ليتم استخراج الشهادات بمعيه اسم الفصل

ولا ادري لما ذا يتم معك هذا بالنسبه للملف اخي الكريم بن عليه

[ناصر سعيد]

للرفع رفع الله كقداركم

[عبدللرحيم]

يوجد رشيت ناقص

(تجميع المرصود)

اصبر قليلا

جارى البحث بإذن الله

[عبدللرحيم]

انت رفعت ملف شهادات

ساجدة العزاوى قبل ذلك ^{وبه اكواد الشهادات المطلوبة}