تغيير معادلات بأكواد

[محمد يوسف]

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

أريد كودا بدل المعادلات المستعملة في الملف المرفق 

المصنف1.xls

[أحمد يوسف]

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

تم تعديل يناير 15, 2019 بواسطه أحمد يوسف

[ابراهيم الحداد]

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

استخدم هذا الكود

Sub Cases()
Dim j As Integer
j = 9
Do While Cells(j, "D") <> ""
If Cells(j, "D") = "حضور" Then
Cells(j, "K") = 100
ElseIf Cells(j, "D") = "غياب" Then
Cells(j, "K") = "غياب"
ElseIf Cells(j, "D") = "اجازة" Then
Cells(j, "K") = "اجازة"
Else
Cells(j, "K") = ""
End If
 j = j + 1
Loop
End Sub

 

[محمد يوسف]

بارك الله فيك يااستاذ  ابراهيم الحداد  

ممكن  تعديل الكود  ليعمل تلقائي  بدون   زر

جزاك الله كل خير 

تم تعديل يناير 16, 2019 بواسطه محمد يوسف

[Ali Mohamed Ali]

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

 

المصنف1.xlsm

[محمد يوسف]

استاذ  ali mohamed ali جزاك الله خيرا

 في ملحوظة بسيطة داخل الملف  المصنف1 (3).xlsm

 

[ابراهيم الحداد]

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

ضع هذا الكود فى حدث الورقة

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row < 9 Or Target.Column <> 4 Then Exit Sub
Call Cases
End Sub

 

 

[محمد يوسف]

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

استاذ  ابراهيم الحداد  بارك الله فيك وجزاك الله كل خير

استاذ  ali mohamed ali بارك الله فيك وجزاك الله كل خير

واسأل الله العلي القدير ان يجعل هذا العمل  في مزان حسناتكم 

وادعوا الله ان يزيدكم علماً نافعاً  اللهم امين يارب العالمين

هذا الكود يعمل بشكل ممتاز

-------------------------------------------------------------

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

اذا تكرمتم حضراتكم  بالرد علي -  هل يوجد اما لا يوجد ؟

وهذا شرح ----  الملف والشرح.rar

 

بارك الله فيكم  جميعاً  وجزاكم الله خيراً