شئون عاملين قاعدة بيانات شباب الخريجين

[amr atef eid]

بعد فك ضغط الملف

برجاء من السادة الافاضل بالمنتدى عمل تطوير على الملف كالتالى

فى ورقة العمل حقل م المسلسل تم عمل تنسيق شرطى بحيث اذا كان شباب الخريجين يعمل بوظيفة معمل مساعد المسلسل يصبح الرقم باللون الاحمر ما دون ذلك يبقى باللون الاسود

المطلوب هو حقل م المسلسل الرقم باللون الاحمر يتم تصفيته ولصقة بورقة العمل النموذج الخامس اما اللون الاسود يتم تصفيته ولصقه بورقة العمل النموذج الرابع المطلوب حقل المسلسل فقط

وجزاكم الله خيرا حتى تعم الفائدة

قاعدة بيانات شباب الخريجين.rar

[الـعيدروس]

السلام عليكم

الملف عليه كلمة مرور VBA

نرجو الغاء كلمة المرور وإرفاقه مرة اخرى

[الـعيدروس]

هكذا بيكون اذا التلوين من إعدادات الخط

Sub ALIDROOS_F()

Dim A As Worksheet, B As Worksheet, C As Worksheet

Dim V_ALI, I&, T&

Set A = Sheets("total"): Set B = Sheets("النموذج الخامس معلم مساعد"): Set C = Sheets("النموذج الرابع اداريين وعمال")

L = A.Cells(65535, 1).End(xlUp).Row

   For V_ALI = 22 To L

	 If A.Cells(V_ALI, 1).Font.Color = RGB(255, 0, 0) Then

		  I = I + 1

		  A.Cells(V_ALI, 1).Copy Destination:=B.Cells(I, 1)

	 End If

	 If A.Cells(V_ALI, 1).Font.Color = RGB(0, 0, 0) Then

		  T = T + 1

		  A.Cells(V_ALI, 1).Copy Destination:=C.Cells(T, 1)

	 End If

   Next

End Sub

اما اذا التلوين بالتنسيق الشرطي

إستعن بالتصفية حسب اللون

تحياتي

[amr atef eid]

هكذا بيكون اذا التلوين من إعدادات الخط

 Sub ALIDROOS_F() Dim A As Worksheet, B As Worksheet, C As Worksheet Dim V_ALI, I&, T& Set A = Sheets("total"): Set B = Sheets("النموذج الخامس معلم مساعد"): Set C = Sheets("النموذج الرابع اداريين وعمال") L = A.Cells(65535, 1).End(xlUp).Row For V_ALI = 22 To L If A.Cells(V_ALI, 1).Font.Color = RGB(255, 0, 0) Then I = I + 1 A.Cells(V_ALI, 1).Copy Destination:=B.Cells(I, 1) End If If A.Cells(V_ALI, 1).Font.Color = RGB(0, 0, 0) Then T = T + 1 A.Cells(V_ALI, 1).Copy Destination:=C.Cells(T, 1) End If Next End Sub 

اما اذا التلوين بالتنسيق الشرطي إستعن بالتصفية حسب اللون تحياتي

الاخ الفاضل ابو نصار

تحية اعزاز واحترام وبعد

اليك الملفات المرفقات وكلمة السر 232322

مع خالص تقديرى

تم تعديل فبراير 25, 2012 بواسطه amr atef eid