مساعدة بترحيل بيانات بملف حضور الموظفين

[Shalapy]

السلام عليكم 

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

عدد الموظفين حوالي 33 موظف 

اريد مساعده في تحديد الخليه التي يتم وضع فيها وقت الحضور عن طريق التاريخ 

مع العلم اني كاتب بالفعل الشهر بالترتيب في كل شيت  من 2 في الشهر حتي 30 في الشهر 

بحيث يحدد التاريخ ويكتب في الخليه المجاوره لهذا التاريخ .... انتبه من فضلك المشاركة مكررة , تـــم بالفعل حذف المشاركة الأخرى

bb1.xlsx test.xlsm

[سليم حاصبيا]

كبف تقوم باستعمال دالة مرتبطة بشيت غير موجود (عبدالرحمن الغرابلي)

[سليم حاصبيا]

أولاً   لا ضرورة لهذه التنسيفات والزركشة يالألوان المبهرة التي تجعل الملف ثقيلاً
ثانياً   ما الحاجة التي دمج الخلايا التي تعيق عمل الكود

ثالثأً  العمل بجب ان يكون كما في المرفق ( اضغط الزر  OK ) و تنتقل البيانات
الى الشيت Data  مع حبار التبديل اذا كان الشحص مسجلاً

Option Explicit

Sub Get_date_and_time()

Dim M As Worksheet, D As Worksheet
Dim Rg_M As Range, Rg_D As Range
Dim find_me As Range
Dim  Ro%, Answer As Byte
 
 Set M = Sheets("Main"): Set D = Sheets("Data")
 Set Rg_M = M.Range("D3:D7")
 Set Rg_D = D.Range("B1:B34")
 Set find_me = Rg_D.Find(Rg_M.Cells(2), lookat:=1)

If find_me Is Nothing Then
   MsgBox "This Name " & Rg_M.Cells(2, 2) & "Not Exist"
   Exit Sub
Else
 Ro = find_me.Row
  If Rg_D.Cells(Ro).Offset(, 1) <> "" Then
     Answer = MsgBox("This person " & """" & _
     Rg_M.Cells(2, 2) & """" & " is registered" & Chr(10) & _
     "Do you want to change", vbYesNo)
       
       If Answer = 6 Then
         D.Cells(Ro, 3) = Format(M.Cells(6, 4), "dd-mm-yyy")
         D.Cells(Ro, 4) = Format(M.Cells(7, 4), "hh : mm")
         Exit Sub
       End If
    
 End If
    D.Cells(Ro, 3) = Format(M.Cells(6, 4), "dd-mm-yyy")
    D.Cells(Ro, 4) = Format(M.Cells(6, 4), "hh : mm")
End If

End Sub

Shalapy.xlsm

[Shalapy]

اولا شكرا جداا للاهتمام بالموضوع 

ثانيا هل يمكن استخدام معادلة find للبحث عن التاريخ كما هو مشروح في الاعلي 

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

لان تسليم هذه المواعيد شهري وليس يومي 

شكرااا