تعديل على كود غياب

[يوسف السيد]

السلام عليكم :

الكود بالمرفقات هو للاستاذ : عبدالله باقشير
حيث يقوم بنقل الغياب حسب رقم الموظف والتاريخ الى ورقة2

المشكلة ان الكود يعمل طالما كان رقم الموظف لا يتجاوز رقمان من(99:1)

أما اذ تعدى رقم الموظف رقمان فان الكود لا يعمل

أرجو التعديل على الكود ليشمل رقم الموظف المكون من 5 ارقام

ترحيل غياب_جديد_5.rar

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

السلام عليكم

 

ليس له علاقة بما ذكرت

وانما كانت الارقام مرتبة  وكان موضع الصف يوخذ حسب الترتيب

 

عموما

استخدم الكود التالي

Sub kh_Start()
Dim Cel As Range
Dim R As Integer, rr As Integer, c As Integer
'==============
On Error Resume Next
c = WorksheetFunction.Match([D3], ورقة2.Range("H1:BQ1"), 0) + 1
If Err Then
    MsgBox "من فضلك ادخل البيانات بشكل كامل"
    Exit Sub
End If
On Error GoTo 0
'==============

For Each Cel In Range("C6:C12")
    If Val(Cel) Then
        rr = WorksheetFunction.Match(Val(Cel), ورقة2.Range("A3:A10000"), 0)
        With ورقة2.Range("A3").Cells(rr, c)
            .Offset(0, 6).Value = Cel.Offset(0, 2).Value
            .Offset(0, 7).Value = Cel.Offset(0, 3).Value
        End With
    End If
Next
kh_Clear
End Sub

تحياتي

[يوسف السيد]

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

الكود يؤدى المطلوب بدقة وكفاءة

جزاك الله خيرا اخى الكريم

منكم نستفيد ونتعلم