ترحيل كشف البصمة

[محمد عدنان]

السلام عليكم 

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

و شكرا 

ملاحظة لا نعديل على نموذج البصمة 

حضور و غياب بصمة2021.xlsm

[محمد عدنان]

ممكن حدا يساعد بهاد الملف 

[lionheart]

Sub Test()
    Dim v, x, ws As Worksheet, sh As Worksheet, dic As Object, sName As String, r As Long, m As Long
    Application.ScreenUpdating = False
        Set ws = ThisWorkbook.Worksheets(2)
        Set sh = ThisWorkbook.Worksheets(3)
        Set dic = CreateObject("Scripting.Dictionary")
        m = 9
        sh.Range("B9:DW66").ClearContents
        For r = 2 To ws.Cells(Rows.Count, "F").End(xlUp).Row
            sName = ws.Cells(r, 6).Value
            If Not dic.Exists(sName) Then
                dic(sName) = Empty
                sh.Cells(m, 2).Value = ws.Cells(r, 7).Value
                sh.Cells(m, 3).Value = ws.Cells(r, 6).Value
                m = m + 1
            End If
            v = Application.Match(ws.Cells(r, 6).Value, sh.Columns(3), 0)
            If Not IsError(v) Then
                x = Application.Match(CLng(CDate(ws.Cells(r, 4).Value2)), sh.Rows(6), 0)
                If Not IsError(x) Then
                    sh.Cells(v, x).Value = ws.Cells(r, 2).Value
                    sh.Cells(v, x + 1).Value = ws.Cells(r, 3).Value
                End If
            End If
        Next r
    Application.ScreenUpdating = True
End Sub

 

[محمد عدنان]

كيف يتم اظهار كلمة غ مكان اليوم الذي لا يوجد بصمة ؟ 

[محمد عدنان]

السلام عليكم 

اشكر الاخ lionheart    و لكن عند الترحيل يرحل تسجيل الدخول مكان تسجيل خروج و بالعكس 

اكرر شكري لك  و عظيم الامتنان 

كل الاحترام لك 

[lionheart]

I am not sure I can get you but play around these two lines to reverse the values

sh.Cells(v, x).Value = ws.Cells(r, 3).Value
sh.Cells(v, x + 1).Value = ws.Cells(r, 2).Value

 

[محمد عدنان]

السلام عليكم 

شكرا جزيلا لك  في ميزان حسناتك 

بس سؤال : 

اذا تم نغير الشهر لشهر غير 9 هل يشتغل الماكرو   ؟

[lionheart]

Change the month on your side and test the code to see if it will be suitable for you or not