اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





ترحيل مده بين تاريخين بشكل رمز E

السلام عليكم اخوتى الكرام والاساتذه العظام اريد كود ترحيل بشكل من ملف الى اخر ملف اسمه TIME SHEET TAREK 2017 وهو عباره ..



19-09-2017 08:33 مساء
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 208
الجنس : ذكر
يتابعهم : 3
يتابعونه : 3
قوة السمعة : 251
الاعجاب : 111
 offline 
السلام عليكم
اخوتى الكرام والاساتذه العظام





اريد كود ترحيل بشكل من  ملف الى اخر
  1. ملف اسمه TIME SHEET TAREK 2017 وهو عباره عن عددة شيتات به شيت اسمه Inbut data
يوجد به 12 شهروكل شهر به عدد الايام الخاصه به
ويجد اارقام الموظفين واسمائئم والادارات وفيرها
هذا الشيت معني بحركه الموظف من حضور وانصراف واجازه
ويتم وضع حركه الموظف من عد رموز والتركيز هيكون على رمز E  وهو يرمز الى القيام بأجازه
اى يتم وضع رمز E  امام كل يوم اجازه
 
  1. الملف الاخر اسمة Manafist Tarek 2017 به عدد شيتات المطلوب
  2. ترحيل من شيت طائرة وصحراوى وزراعي ومطروح  من ملف Manafist Tarek 2017 الى شيت Inbut data فى ملف TIME SHEET TAREK 2017
التاريخ الموجود فى الخليه G3  هى  اليوم السابق للاجازه الاجازه والتاريخ الموجود فى العمود h  هو نهايه الاجازه
بمعنى ان الموظف 901  الموجود فى شيت طائرة بدايه اجازته 1/1/2017 وتنتهى الاجازه فى 6/1/2017
اى ان الموظف الذى رقمه 901 الرمز الموجود فى الخليه المقابله ليوم 2/1 هوE ويوم  3/1 هو  E ويوم  4/1 هو  E ويوم  5/1 هو  E ويوم  6/1 هو  E
وهكذا الموظف 1773 الموجود فى شيت صحراويبدايه اجازته 1/1/2017 وتنتهى الاجازه فى 8/1/2017
اى ان الموظف الذى رقمه 901 الرمز الموجود فى الخليه المقابله ليوم 2/1 هوE ويوم  3/1 هو  E ويوم  4/1 هو  E ويوم  5/1 هو  E ويوم  6/1 هو  E ويوم  7/1 هو  E ويوم  8/1 هو  E
وهكذا فيى شيت زراعى ومطروح
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Desktop.rar   تحميل rar مرات التحميل :(7)
الحجم :(831.972) KB







20-09-2017 06:38 صباحا
مشاهدة مشاركة منفردة [1]
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 208
الجنس : ذكر
يتابعهم : 3
يتابعونه : 3
قوة السمعة : 251
الاعجاب : 111
 offline 
look/images/icons/i1.gif ترحيل مده بين تاريخين بشكل رمز E
برجاء المساعده





20-09-2017 06:29 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3572
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 282
قوة السمعة : 9890
الاعجاب : 3398
 offline 
look/images/icons/i1.gif ترحيل مده بين تاريخين بشكل رمز E
وعليكم السلام أخي الكريم أبو حنين
حاولت فهم المطلوب لكني لم أوفق في ذلك .. قم بتقسيم الموضوع إلى نقاط بسيطة لتجد استجابة أفضل من الأعضاء بالمنتدى





20-09-2017 07:50 مساء
مشاهدة مشاركة منفردة [3]
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 208
الجنس : ذكر
يتابعهم : 3
يتابعونه : 3
قوة السمعة : 251
الاعجاب : 111
 offline 
look/images/icons/i1.gif ترحيل مده بين تاريخين بشكل رمز E
السلام عليكم
نقسم الموضوع ونرجع نجمعه مره اخرى

1 يوجد ملف اسمهه Manafist Tarek 2017 وهو معنى بنظام الاجازات به 4 شيتات طائرة وصحراوي وزراعى ومطروح 
نجعل الامر على شيت طائرة وبعد كده نعمم الموضوع على باقى الشيتات الاربع
نبداء ... يوجد فى شيت طائرة موظف رقه 1773 
الموظف يقوم بأجازه من يوم 1/1/2017 وتاريخ عودته 6/1/2017  هى ديه المعطيات 

يوجد ملف اخر اسمه TIME SHEET TAREK 2017 به شيت اسمه Inbut data وهذا الملف يحتوى على ارقام الموظفين واسمائهم ومقسم 12 شهر  وكل شهر به عدد الايام الخاصه به من 1 الى 30 مثلا
هذا الملف معنى بحركه الموظفين وبه رمز E  ومعناه اجازة
المطلوب عايز كود يقوم بترحيل حركه الاجازه من ملف Manafist Tarek 2017 من شيت طائرة وصحراوى وزراعى ومطروح على اساس تاريخ المغادره الى تاريخ العوده الى هى من يوم 1/1/2017 وتاريخ عودته 6/1/2017
ويترجمها الى E ابتداء من ثاني يوم المغادره من يوم 2/1/2017 
اى انه هيقوم بالبحث عن رقم الموظف 1773 فى ملف TIME SHEET TAREK 2017 فى شيت  Inbut data ويقوم بوضع رمز E  امام كل يوم اجازه عدا اوي يوم اجازه يتركه بدون رمز
يعنى بالشكل ده 
8    7    6    5    4    3    2   1 
E    E    E    E    E      ​
اتمنى ان الصوره تكون وضحت 
ويتم تطبيق ذلك على الاربع شيتات 
مع العلم ان كل شيت به اكثر  من موظف قد يصل الى عشره موظفين
حمايه الشيتات 219161221

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




 
 
 
  Desktop1.rar   تحميل rar مرات التحميل :(3)
الحجم :(728.982) KB






20-09-2017 08:10 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3572
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 282
قوة السمعة : 9890
الاعجاب : 3398
 offline 
look/images/icons/i1.gif ترحيل مده بين تاريخين بشكل رمز E
المشكلة في هيكلة وتصميم الملفات غير مريحة للعمل عليها .. ويوجد خلايا مدمجة تعيق المحاولات التي أقوم عليها ..
لعل أحد الأعضاء يستطيع التدخل نظراً لانشغالي في الفترة القادمة

أثارت هذه المشاركة إعجاب: ahmed moh،




20-09-2017 09:33 مساء
مشاهدة مشاركة منفردة [5]
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 208
الجنس : ذكر
يتابعهم : 3
يتابعونه : 3
قوة السمعة : 251
الاعجاب : 111
 offline 
look/images/icons/i1.gif ترحيل مده بين تاريخين بشكل رمز E
جزاك الله خيرا اخى الحبيب ياسر 
لو ان المشكله فى الخلايا المدمه ممكن حلها 
ممكنالاستغناء عن دمج الخلايا





20-09-2017 09:50 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3572
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 282
قوة السمعة : 9890
الاعجاب : 3398
 offline 
look/images/icons/i1.gif ترحيل مده بين تاريخين بشكل رمز E
إن شاء الله عندما يتيسر لي الوقت سأحاول في الموضوع .. إلا إذا تدخل أحد الأخوة قبل ذلك

أثارت هذه المشاركة إعجاب: ahmed moh،




21-09-2017 08:43 صباحا
مشاهدة مشاركة منفردة [7]
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 208
الجنس : ذكر
يتابعهم : 3
يتابعونه : 3
قوة السمعة : 251
الاعجاب : 111
 offline 
look/images/icons/i1.gif ترحيل مده بين تاريخين بشكل رمز E
اخى الحبيب ياسر 
تم ارفاق نسخه بعد الغاء الخلايا المدمجه فى ملف TIME SHEET TAREK 2017
جزاك الله كل الخير
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  Desktop2.rar   تحميل rar مرات التحميل :(7)
الحجم :(728.695) KB






21-09-2017 02:42 مساء
مشاهدة مشاركة منفردة [8]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3572
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 282
قوة السمعة : 9890
الاعجاب : 3398
 offline 
look/images/icons/i1.gif ترحيل مده بين تاريخين بشكل رمز E
السلام عليكم
جرب الكود التالي ..
Option Explicit

Sub Test_Marking()
    Dim wb1         As Workbook
    Dim wb2         As Workbook
    Dim wshS        As Worksheet
    Dim wshT        As Worksheet
    Dim varRI       As Variant
    Dim rngNums     As Range
    Dim dtmStart    As Date
    Dim dtmEnd      As Date
    Dim dtmDate     As Date
    Dim lngRows     As Long
    Dim lngCols     As Long
    Dim lngRow      As Long
    Dim lngLast     As Long
    Dim lngCI       As Long
    Dim lngNum      As Long
    Dim lngDay      As Long
    Dim lngMonth    As Long

    Set wb1 = Workbooks("Manafist Tarek 2017.xlsb")
    Set wb2 = Workbooks("TIME SHEET TAREK 2017.xlsb")
    
    Set wshT = wb2.Worksheets("Inbut data ")
    lngRows = wshT.Cells(wshT.Rows.Count, 4).End(xlUp).Row - 2
    Set rngNums = wshT.Range("D3").Resize(lngRows)
    lngCols = wshT.Cells(2, wshT.Columns.Count).End(xlToLeft).Column - 7
    ReDim arrData(1 To lngRows, 1 To lngCols) As Variant

    For Each wshS In wb1.Worksheets(Array("طائرة", "صحراوى", "زراعى"))
        dtmStart = wshS.Cells(3, 7).Value + 1
        lngLast = wshS.Cells(22, 2).End(xlUp).Row
        
        For lngRow = 5 To lngLast
            If Not IsEmpty(wshS.Cells(lngRow, 2).Value) Then
                lngNum = wshS.Cells(lngRow, 2).Value
                varRI = Application.Match(lngNum, rngNums, 0)
                If Not IsError(varRI) Then
                    dtmEnd = wshS.Cells(lngRow, 8).Value
                    For dtmDate = dtmStart To dtmEnd
                        lngDay = Day(dtmDate)
                        lngMonth = Month(dtmDate)
                        lngCI = Choose(lngMonth, 0, 32, 62, 94, 125, 157, 188, 220, 252, 283, 315, 346) + lngDay
                        If lngCI <= lngCols Then
                            arrData(varRI, lngCI) = "E"
                        End If
                    Next dtmDate
                End If
            End If
        Next lngRow
    Next wshS

    wshT.Cells(3, 8).Resize(lngRows, lngCols).Value = arrData
End Sub





21-09-2017 03:44 مساء
مشاهدة مشاركة منفردة [9]
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 208
الجنس : ذكر
يتابعهم : 3
يتابعونه : 3
قوة السمعة : 251
الاعجاب : 111
 offline 
look/images/icons/i1.gif ترحيل مده بين تاريخين بشكل رمز E
السلام عليكم ... اخى الحبيب ياسر
الكود يعمل بشكل مضبوط الا انه يقوم بالكتابه على جميع الخلايا 
الصوره واحد توضح وجود رمز X  فى الفتره 1 الى يوم 7 وهو رمز ان الموظف موجود فى مكان العمل

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

وعند اعطاء الموظف اجازه من يوم 2017/1/7 الى يوم 2017/1/14 ظهر الاتى

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

وبيمسح اى رمز اخر موجود 
** المطلوب انه يكتب الرمز امام الموظف فى الايام المحدده فقط

تم مسح المدخلاات التى كانت فى الفتره من 2017/1/1 الى 2017/1/7 برمز X
ومسح عمود مساعد لكل شهر يقوم بحصر الرمز X
ارجو المساعده


 





21-09-2017 08:15 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3572
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 282
قوة السمعة : 9890
الاعجاب : 3398
 offline 
look/images/icons/i1.gif ترحيل مده بين تاريخين بشكل رمز E
جرب التعديل التالي لعله يفي بالغرض
Sub Test_Marking()
    Dim wb1         As Workbook
    Dim wb2         As Workbook
    Dim wshS        As Worksheet
    Dim wshT        As Worksheet
    Dim varRI       As Variant
    Dim arrData     As Variant
    Dim rngNums     As Range
    Dim dtmStart    As Date
    Dim dtmEnd      As Date
    Dim dtmDate     As Date
    Dim lngRows     As Long
    Dim lngCols     As Long
    Dim lngRow      As Long
    Dim lngLast     As Long
    Dim lngCI       As Long
    Dim lngNum      As Long
    Dim lngDay      As Long
    Dim lngMonth    As Long

    Set wb1 = Workbooks("Manafist Tarek 2017.xlsb")
    Set wb2 = Workbooks("TIME SHEET TAREK 2017.xlsb")
    
    Set wshT = wb2.Worksheets("Inbut data ")
    lngRows = wshT.Cells(wshT.Rows.Count, 4).End(xlUp).Row - 2
    Set rngNums = wshT.Range("D3").Resize(lngRows)
    lngCols = wshT.Cells(2, wshT.Columns.Count).End(xlToLeft).Column - 7
    arrData = wshT.Range("H3").Resize(lngRows, lngCols).Value
    
    For Each wshS In wb1.Worksheets(Array("طائرة", "صحراوى", "زراعى"))
        dtmStart = wshS.Cells(3, 7).Value + 1
        lngLast = wshS.Cells(22, 2).End(xlUp).Row
        
        For lngRow = 5 To lngLast
            If Not IsEmpty(wshS.Cells(lngRow, 2).Value) Then
                lngNum = wshS.Cells(lngRow, 2).Value
                varRI = Application.Match(lngNum, rngNums, 0)
                If Not IsError(varRI) Then
                    dtmEnd = wshS.Cells(lngRow, 8).Value
                    For dtmDate = dtmStart To dtmEnd
                        lngDay = Day(dtmDate)
                        lngMonth = Month(dtmDate)
                        lngCI = Choose(lngMonth, 0, 32, 62, 94, 125, 157, 188, 220, 252, 283, 315, 346) + lngDay
                        If lngCI <= lngCols Then
                            arrData(varRI, lngCI) = "E"
                        End If
                    Next dtmDate
                End If
            End If
        Next lngRow
    Next wshS

    wshT.Cells(3, 8).Resize(lngRows, lngCols).Value = arrData
End Sub

أثارت هذه المشاركة إعجاب: ahmed moh،




21-09-2017 08:21 مساء
مشاهدة مشاركة منفردة [11]
ahmed moh
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-09-2017
رقم العضوية : 330
المشاركات : 208
الجنس : ذكر
يتابعهم : 3
يتابعونه : 3
قوة السمعة : 251
الاعجاب : 111
 offline 
look/images/icons/i1.gif ترحيل مده بين تاريخين بشكل رمز E
جزاك الله اخى ياسر على المجهود والوقت
واسال الله لك كل الخير 
تقبل تحياتى





21-09-2017 08:23 مساء
مشاهدة مشاركة منفردة [12]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3572
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 282
قوة السمعة : 9890
الاعجاب : 3398
 offline 
look/images/icons/i1.gif ترحيل مده بين تاريخين بشكل رمز E
تم محاولة التعديل على الكود ووفقت بحمد الله للوصول إليه .. راجع المشاركة السابقة
ولا تنسانا بصالح دعواتكم (وما يمنعش شيك بعلم الوصول smile )

أثارت هذه المشاركة إعجاب: ahmed moh،





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
التاريخين بشكل مختلف بالمعادلات فقط محمود الشريف
4 502 محمود الشريف

الكلمات الدلالية
ترحيل ، تاريخين ، بشكل ،


 







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



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

أعلن هنا
أعلن هنا
أعلن هنا