ارجو المساعده في التعديل علي الشيت للاهميه

[mohamedarafa]

عايز اطلع تقرير بايام الحضور والانصراف بشكل راسي لموظف معين حتي اتمكن من الطباعه

حركه حضور وانصراف شهريه.rar

[عبدللرحيم]

اولا يوجد باسورد (لايهم)

ثانيا : تريد البيان بكود الموظف واجمالى شهر

أم يوم يوم (ايام العمل)

[حضور/انصراف/ عدد ساعات العمل/تأخير]

حدد المطلوب بدقة 

 

[mohamedarafa]

شكرا علي الاهتمام انا عايز تقرير اريد كل ايام الشهر (حضور. انصراف . عدد ساعات العمل . تاخير ) حتي اتمكن من طباعه موظف بالشهر الخاص به 

بهذا الشكل والف شكر علي المساعده

[mohamedarafa]

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

[ياسر خليل أبو البراء]

غير في الإعدادات ..اتبع الخطوات في الصورة

[mohamedarafa]

جرت هذا الحل ولم يصلح لاني اريد موطف واحد

 

[ياسر خليل أبو البراء]

ممكن توضبح أكثر للمطلوب .. ما هي ورقة العمل المطلوب عليها وأين تصميم الورقة المطلوب العمل عليها؟

[mohamedarafa]

شيت رقم واحد اقوم بادخال البيانات فيه واريد استخراج البيانات في شيت رقم 2 بمعني تقرير لموظف واحد شامل كل ايام الشهر بنفس صيغه الادخال ولكن بشكل طولي كما موضح في الشيت  الباص 123 والعمل علي شيت رقم 1 و2  والف شكر وارجو المساعده 

حركه حضور وانصراف شهريه.rar

[ياسر خليل أبو البراء]

جرب الكود التالي .. في ورقة العمل 2 ضع التاريخ المطلوب في الخلية G4 ثم نفذ الكود

Sub Test()
    Dim ws As Worksheet
    Dim sh As Worksheet
    Dim fd As Range

    Set ws = Sheets("Sheet1")
    Set sh = Sheets("Sheet2")
    
    Application.ScreenUpdating = False
        Set fd = ws.Rows(5).Find(sh.Range("G4").Value)
        If Not fd Is Nothing Then
            ws.Range(ws.Cells(7, fd.Column), ws.Cells(302, fd.Column + 4)).Copy sh.Range("F6")
            Application.CutCopyMode = False
        End If
    Application.ScreenUpdating = True
End Sub

 

[mohamedarafa]

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

[ياسر خليل أبو البراء]

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

[mohamedarafa]

شكرا علي اهتمامك معي اخي الفاضل ولكن اولا اعذرني علي جهلي وقله معرفتي في الاكسيل 

ثانيا لا اريد الاعمده الخاصه بتاريخ معين ولكن اريد البيانات الخاصه باسم الموظف علي مدار الشهر وارجو المساعده وشكرا لصبرك معي وبارك الله لك

[ياسر خليل أبو البراء]

ممكن تصمم شكل النتائج المتوقعة في ورقة جديدة ..كدليل لمن يريد تقديم المساعدة

[mohamedarafa]

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

حركه حضور وانصراف شهريه.rar

[ياسر خليل أبو البراء]

جرب الكود التالي

Sub Test()
    Dim ws      As Worksheet
    Dim sh      As Worksheet
    Dim i       As Long
    Dim j       As Long
    Dim x       As Long
    
    Set ws = Feuil1
    Set sh = Sheet1
    
    Application.ScreenUpdating = False
        sh.Range("B7:J" & Rows.Count).Clear
        
        For i = 7 To ws.Cells(Rows.Count, 3).End(xlUp).Row
            If ws.Cells(i, 3).Value = sh.Cells(4, 3).Value Then
                For j = 5 To 155 Step 5
                    sh.Range("B" & x + 7).Value = ws.Cells(6, j).Offset(-1).Value
                    ws.Range("B" & i & ":D" & i).Copy sh.Range("C" & x + 7)
                    ws.Cells(i, j).Resize(1, 5).Copy sh.Range("F" & x + 7)
                    
                    x = x + 1
                Next j
                Exit For
            End If
        Next i
        
        With sh.Range("B7:B" & Rows.Count)
            .NumberFormat = "d-mmm"
            .Interior.Color = RGB(255, 255, 153)
            .Borders.Value = 1
        End With
        Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
    MsgBox "Done...", 64
End Sub

 

[mohamedarafa]

لقد قمت بتعلم طريقه ادخال الكود ولكن لم يحدث اي تغيير  ممكن التوضيح والمساعده

ممكن استاذن حضرتك ان تقوم بتنفيذها تيسيرا عليا لاني والله ضعيف جدا في الاكسل وهذا الشيت مهم جدا بالنسبه لظروف الشغل ولك الشكر علي صبرك معي واعتذر لك علي طلباتي الكثيره وبارك الله لك

تم تعديل مايو 6, 2017 بواسطه mohamedarafa

[ياسر خليل أبو البراء]

أخي الكريم أنصحك بمشاهدة الفيديو التالي .. للأهمية لمعرفة البدايات في التعامل مع الأكواد

 

بعد وضع الكود في موديول داخل محرر الاكواد ..قم بتعديل الاسم الموجودة في الخلية C4 في ورقة التقرير المطلوب العمل عليها ، ثم من لوحة المفاتيح اضغط Alt + F8 واختار اسم الماكرو Test ثم انقر Run
وأعتذر عن عدم إرفاق ملف ...حيث أن المنتدى تعليمي وحيث أن مبدأي هو أن يتعلم الناس كيف يصطادون لا أن يأكلوا السمك جاهز ..

تقبل تحياتي

[mohamedarafa]

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

حركه حضور وانصراف شهريه.rar

تم تعديل مايو 7, 2017 بواسطه mohamedarafa

[ياسر خليل أبو البراء]

الحمد لله الذي بنعمته تتم الصالحات ..

إذا أردت التعلم عليك بمتابعة موضوعات المنتدى ومحاولة الإطلاع على المدونات واليوتيوب .. الفيديوهات ستفيدك بشكل كبير

ولكن الأهم من ذلك هو التطبيق والفهم وليس الحفظ ..لأن البرمجة قائمة على الفهم في المقام الأول ، الأهم أن تعرف كيفية استخدام الأكواد لا أن تحفظها .. وللعلم أن لا أستطيع الحفظ بشكل كبير لكن أستطيع قراءة معظم الأكواد وففهمها وهذا يحدث فارق في البرمجة

وأي مشكلة تقابلك أو أي سؤال لا تتردد في طرح موضوع وإن شاء الله تجد العون من إخوانك ..

وفقني الله وإياك لكل خير .. تقبل تحياتي

[mohamedarafa]

الحمد لله وبارك الله لك وجعله في ميزان حسناتك وانشاء الله سوف احاول بكل جهدي الاستفاده من هذا الصرح الكبير وان افيد غيري باذن الله وتقبل تحياتي

[mohamedarafa]

أ/ ياسر خليل السلام عليكم ورحمه الله وبركاته تم العمل بهذا الشيت والحمد لله لا يوجد مشاكل ولكني اريد ان احقق اعلي قدر من الاستفاده فيوجد عندي شيت للمرتبات اقوم فيه بادخال الاضافي والغياب  واريد ربطه  بهذا الشيت