تعديل على كود غياب للاستاذ/عبدالله باقشير

[يوسف السيد]

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

ترحيل غياب.rar

[عبدالله باقشير]

السلام عليكم

 

جرب التالي

Sub kh_Start()
Dim Cel As Range
Dim r As Integer, rr As Integer, c As Integer
For Each Cel In Range("C6:C12")
    rr = Val(Cel)
    If rr Then
        c = WorksheetFunction.Match([D3], ورقة2.Range("C1:bb1"), 0) + 1
        With ورقة2.Range("A3").Cells(rr, c)
            .Offset(0, 1).Value = Cel.Offset(0, 2).Value
            .Offset(0, 2).Value = Cel.Offset(0, 3).Value
        End With
    End If
Next
Range("c6:c12,e6:e12,f6:f12").ClearContents
Call غ
End Sub

تحياتي

[يوسف السيد]

وعليكم السلام

الكود اكثر من رائع

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