angelloay

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

المساعدة اخواني جزاكم الله خيرا

السلام عليكم قمت بعمل برنامج للعمال بحسب خبرتي ومساعدة الاساتذة لي وهو يفي بالغرض المطلوب منه تماما ولكن هناك بعض المشاكل والملاحظات ارجو منكم مساعدتي بها موجود بالمرفق برنامج عمال 1.rar

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

شكرا لك اخي استطعت بعدل التعديل اي اجعل اليوم والتاريخ يعملان معلا ولكن يظهر لي اليوم الخميس علما انه يوم الاربعاء مع كتابة رقم 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

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

تفضل اخي قم بكتابة اي شي في خانة عدد ساعات العمل ليظهر التاريخ تلقائيا في خلية التاريخ وانا اريد اي يظهر ايضا اسم اليوم في خانة اليوم اتمنى ان تكون الفكرة وصلت برنامج العمال معدل.zip

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

شكرا لك اخي ابو حنين صورة القائمة المقصودة في المرفق

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

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

السلام عليكم ورحمة الله لدي برنامج عمال اقوم بانشائه ولدي بعض المشاكل وجميعها بالمرفق مع شرحها شكرا لكم على تعاونكم برنامج العمال.rar

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

نموذج عن الكود الذي قام الاستاذ عبد الله باعطائه له بعد التعديل وهو يعمل بنجاح ولكن يرحل عدد معين من الصفوف في كل مرة ارجو الاصلاح وشكرا الملاحظات بداخله 222.zip

اخي جربت تعديل بسيط Sub Abu_Ahmed() Dim cl As Range For Each cl In Range("A2:A2" & [A10000].End(xlUp).Row) If cl.Interior.ColorIndex <> xlNone Then Cells(cl.Row, 1).Resize(1, 16).Copy Sheets("COPYY").Range("A" & Sheets("COPYY").[A10000].End(xlUp).Row + 1) cl.EntireRow.Delete End If Next End Sub في هذا التعديل قمت بتفعيل الخلية A2 فقط ولو انه قمت بتلون اي خليه اخرى بالصف لن يرحل الصف ابدا اما اذا قمت بتلون الصف كاملا فانه تلقائيا سوف يقوم بتلون الخلية المحددة A2 وبالتالي سوف يقوم بترحيله وحذفه اريد ان يكون هذا الامر مفعلا على كامل العمود A او B او اي عمود اخر لافرق لدي وشكرا

الله يعطيك العافية الامر تمام وهذا الطلب تمام ولكن هناك امر بسيط عندما اقوم بتحديد اي خلية يقوم بنقل الصف كاملا وانا اريد عند تحديد خلية معينة كما زكرت سابقا (خلية معينة مثل H ) يقوم بترحيل البيانات

تفضل اخي هذا المرفق 111.rar

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

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

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

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

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

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

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

مشكور اخي وحبيبي حليتلي نصف المشكلة والله انو عمالقة وشكرا كتييييييييييييييييييييييير بس لما ركبتوا مااشتغل معي طيب مو لازم يكون في بالكود اختيار للخلاياي يلي بدي ياها تتغير؟ مالقيت اي شي ياريت الحل