أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





مساعده في مؤثرات شهرية

السلام عليكم اخواني الكرام ف الشيت التالي اريد عمل مؤثرات شهريه ووضع علامات عند الحضور او الغياب او المرضي ع حسب اسم ال ..


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


31-03-2021 01:47 مساء
mahmoud ayad
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 194
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 469
 offline 

السلام عليكم اخواني الكرام 
ف الشيت التالي اريد عمل مؤثرات شهريه ووضع علامات عند الحضور او الغياب او المرضي ع حسب اسم الموظف وتاريخ اليوم
 
 
  مؤثرات شهريه.rar   تحميل rar مرات التحميل :(3)
الحجم :(11.758) KB



أفضل إجابة مقدمة من salim وهي:
ربما يكون ما تريده
تم نغيير المعادلات في الصفحة (Salim) للحصول على كل ايام الشهر بغض النظر اذا كان 28 /29/ 30 / او 31 يوم



Option Explicit

Sub Find_Ijasat()
Dim D As Worksheet, S As Worksheet
Dim Rod%, Ros%, I%, x%, k%
Dim Rg_FD As Range
Dim Rg_Code As Range


Set D = Sheets("Data"): Set S = Sheets("Salim")
Rod = D.Cells(Rows.Count, 2).End(3).Row
Ros = S.Cells(Rows.Count, 2).End(3).Row
D.Range("B3").Resize(Rod, 8).Interior.ColorIndex = xlNone
Set Rg_FD = D.Range("B3:B" & Rod)
If Ros < 6 Then Exit Sub
 S.Range("D6").Resize(Ros - 5, 31).ClearContents
For I = 6 To Ros
    Set Rg_Code = Rg_FD.Find(S.Cells(I, 2), Lookat:=1)
    If Rg_Code Is Nothing Then GoTo Find_Again
        x = Rg_Code.Row

         For k = 4 To 35
            If S.Cells(4, k) = D.Cells(x, 4) Then
               S.Cells(I, k) = D.Cells(x, 7)
               D.Range("B" & x).Resize(, 8).Interior.ColorIndex = 35
               Exit For
            End If
        Next k
Find_Again:
Next I
End Sub

الملف مرفق من جديد
 
عرض الإجابة




01-04-2021 08:26 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 793
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 3910
عدد الإجابات: 108
 offline 
look/images/icons/i1.gif مساعده في مؤثرات شهرية
وعليكم السلام ورحمة الله وبركاته 

هذا موضوع
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

وهذا موضوع للاستاذ الكبير ابو البراء
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


05-04-2021 08:11 صباحا
مشاهدة مشاركة منفردة [2]
mahmoud ayad
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 194
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 469
 offline 
look/images/icons/i1.gif مساعده في مؤثرات شهرية
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
تم عمل المطلوب باستخدام معادلات index & match للاستاذ حسام خطاب
ولكن هل يوجد حل باستخدام vba لكي يكون الشيت اقل في الحجم 
 
 
  مؤثرات شهريه.rar   تحميل rar مرات التحميل :(4)
الحجم :(17.564) KB


13-04-2021 08:23 صباحا
مشاهدة مشاركة منفردة [3]
mahmoud ayad
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 194
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 469
 offline 
look/images/icons/i1.gif مساعده في مؤثرات شهرية
السلام عليكم 
رمضان كريم عليكم الحمدلله الذي ابقي فينا ارواحنا لصيامه وقيامه اللهم اهله علينا اعواما واعوام
اخواتي الكرام اعلم ان الجميع مشغول ولكن اريد حل عن طريق ال vba اذا تكرمتم
ولكم جزيل الشكر

13-04-2021 11:52 صباحا
مشاهدة مشاركة منفردة [4]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif مساعده في مؤثرات شهرية
جرب هذا الكود (صفحة  Salim )

Option Explicit

Sub Find_Ijasat()
Dim D As Worksheet, S As Worksheet
Dim Rod%, Ros%, I%, x%, k%
Dim Rg_FD As Range
Dim Rg_Code As Range


Set D = Sheets("Data"): Set S = Sheets("Salim")
Rod = D.Cells(Rows.Count, 2).End(3).Row
Ros = S.Cells(Rows.Count, 2).End(3).Row
Set Rg_FD = D.Range("B3:B" & Rod)
If Ros < 6 Then Exit Sub
 S.Range("D6").Resize(Ros - 5, 31).ClearContents
For I = 6 To Ros
    Set Rg_Code = Rg_FD.Find(S.Cells(I, 2), Lookat:=1)
    If Rg_Code Is Nothing Then GoTo Find_Again
        x = Rg_Code.Row
         For k = 4 To 35
            If S.Cells(4, k) = D.Cells(x, 4) Then
               S.Cells(I, k) = D.Cells(x, 7)
               Exit For
            End If
        Next k
Find_Again:
Next I
End Sub


الملف مرفق
 
 
  Ayad.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(50.246) KB


13-04-2021 12:16 مساء
مشاهدة مشاركة منفردة [5]
mahmoud ayad
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 15-03-2018
رقم العضوية : 4874
المشاركات : 194
الجنس : ذكر
تاريخ الميلاد : 29-5-1982
الدعوات : 1
يتابعهم : 8
يتابعونه : 4
قوة السمعة : 469
 offline 
look/images/icons/i1.gif مساعده في مؤثرات شهرية
اشكرك استاذ سليم  كود رائع ولكن هناك بعض الملاحظات
حضرتك رابط عمليه الترحيل لو التاريخ ف صفحه slim بتساوي اول تاريخ ف data
بمعني انا جيت اشوف شهر فبراير لم يحضر اي نتائج
ثانيا انا عايز بين تاريخين يعني من تاريخ ... الي تاريخ .... فيجلب المؤثرات اللي بين التاريخين دول

13-04-2021 03:10 مساء
مشاهدة مشاركة منفردة [6]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif مساعده في مؤثرات شهرية
لم أفهم شيئاً مما تريد !!!


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
مساعده ، شهريه ، مؤثرات ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:54 صباحا