مساعدة في الترحيل حسب اسم الحساب

[angelloay]

السلام عليكم ورحمة الله

لدي برنامج عمال اقوم بانشائه

ولدي بعض المشاكل

وجميعها بالمرفق مع شرحها شكرا لكم على تعاونكم

برنامج العمال.rar

[طارق محمود]

السلام عليكم

أخي العزيز

راجع المرفق

إن شاء الله يكون هو ماتريد

برنامج العمال.rar

[angelloay]

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

هل تستطيع اضافتها ؟

واذا كنت اريد اضافة عامل جديد كيف يتم ذلك

ولك جزيل الشكر

[angelloay]

وهناك ملاحظة اخرى اخي

عندما اقوم بالضغط على زر الترحيل ولم يكن هناك اي معلومة في الخلايا يتم ترحيل السطر الاول (سطر العناوين ) الاسم - الرقم - الوظيفة

كيف يمكن تلافي ترحيلها حتى ولو كانت الخلايا فارغة

[أبو حنــــين]

السلام عليكم

بعد اذن اخي الاستاذ طارق

بالنسبة للسؤال الاول و هو القائمة ضع هذا الكود في الورقة الاولى

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column = 2 And Target.Row > 1 Then

    With Target.Validation

	    .Delete

	    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

	    xlBetween, Formula1:="=OFFSET($B$2,0,0,COUNTA($B:$B),1)"

    End With

End If

Target.Validation.Delete

End Sub

بالنسبة للسؤال الثاني صع هذا الكود في السطر الاول من كود النسخ

If Sheets("ورقة1").Range("B2") = "" Then Exit Sub

[angelloay]

شكرا لك اخي ابو حنين

صورة القائمة المقصودة في المرفق

[angelloay]

اخي الكريم ابو حنين هل يمكنك مساعدتي بكود كتابة اليوم تلقائيا في خلية محددة بمجرد الكتابة بخلية اخرى؟

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

[أبو حنــــين]

هذا بالنسبة للقائمة

السؤال الثاني غير مفهوم يرجى ارسال ملف للعمل عليه

برنامج العمال.rar

[angelloay]

تفضل اخي

قم بكتابة اي شي في خانة عدد ساعات العمل ليظهر التاريخ تلقائيا في خلية التاريخ

وانا اريد اي يظهر ايضا اسم اليوم في خانة اليوم

اتمنى ان تكون الفكرة وصلت

برنامج العمال معدل.zip

[الـعيدروس]

السلام عليكم

تفضل جرب هذا التعديل

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Ext

If Not Intersect(Target, [C:C]) Is Nothing Then

Application.ScreenUpdating = False

Application.EnableEvents = False

If Target = "" Then Exit Sub

Target.Offset(0, 1) = "(" & Day(Now) & ")" & " " & "(" & Format(Day(Now), "ddd") & ")"

Target.Offset(0, 2) = Now

Application.ScreenUpdating = True

Application.EnableEvents = True

End If

Ext:

End Sub

[angelloay]

اخي ابو نصار زادك الله علما ولكنه لم يعمل معي ارجو شرح التركيب او الضبط ان تكرمت عليي علما اني اريد الكتابة في الخلية C ليظهر اليوم التلقائي في الخلية D وشكرا

[أبو حنــــين]

أخي اذا كان التاريخ في العمود C و تريد كتابة اليوم في العمود D فأكتب هذه المعادلة في العمود D و اسحبها للأسفل

=IF(C3="";"";TEXT(C3;"dddd"))

[angelloay]

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

وهذه عينة

(19) (الخميس) 2012/12/19

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo Ext

If Not Intersect(Target, [C:C]) Is Nothing Then

Application.ScreenUpdating = False

Application.EnableEvents = False

If Target = "" Then Exit Sub

Target.Offset(0, 1) = "(" & Day(Now) & ")" & " " & "(" & Format(Day(Now), "ddd") & ")"

Target.Offset(0, 2) = Now

Application.ScreenUpdating = True

Application.EnableEvents = True

End If

Ext:

End Sub

Private Sub Worksheet_Change1(ByVal Target As Range)

On Error GoTo t_time

If Target.Column = 3 Then Cells(Target.Row, 6) = Now

t_time:

Application.EnableEvents = True

Application.ScreenUpdating = False

End Sub

[angelloay]

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