شعبان فليفل

جزاكم الله عنا خيراً بالفعل كدا ضبطت معي

بالفعل صحيحة لكن الاستشارات تحتسب بالدقيقة والساعة وعند إجراء عملية التحويل يظهر الناتج 09:20:00 في حين كان المفترض أن يظهر الناتج 33:20:00 هل في حل ليظهر الناتج بالشكل المطلوب وهو 33:20:00؟

لدي مشكلة في معادلة تحويل الدقائق إلى ساعات فعندما يكون عدد الدقائق أقل من 24 ساعة يكون الناتج صحيحاً أما في حال زيادة الدقائق عن 24 ساعة يكون الناتج خطاء تحويل الدقائق إلى ساعات.xlsx

الأخ الفاضل حمادة عمر مشكلة صغيرة بتظهر لما بحدد الخلايا اللي فيها الزر المخفي بيظهر الخطأ ده

أ/ محمد صالح جزاكم الله خيراً أشكرك علي النصيحة وإن شاء الله أبدأ التعلم بالطرق الصحيحة

منتظر

حد يساعدني في الموضوع يقولي حتي فكرة ودا رابط الموضوع بطريقة شرح تانية https://www.officena.net/ib/topic/76860-سؤال-بخصوص-الخلايا/#comment-492278

الأخ الفاضل حمادة عمر لو تقدر تساعدني في هذه المشكلة أكون شاكر ليك دا رابط الموضوع https://www.officena.net/ib/topic/76818-محتاج-دالة/#comment-492264

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

سلمت يداك أخلي الفاضل حماده عمر لو مفيش فيها إزعاج ليك لو تشرحلي الكود كامل أكون شاكر وممنون لحضرتك

الأخ الفاضل حمادة عمر لو أمكن الزر العائم لا يظهر إلا بعد إدخال اسم العميل بمعني أنه لايظهر في الخلايا الفارغه

الأخ الفاضل حمادة عمر طريقة رائعة سلمت يداك طلب صغير ممكن الزر العائم لا يظهر إلا بعد إدخال اسم العميل ولو أمكن شرح للكود علشان محتاج أطبق نفس الطريقة علي كود آخر جزاكم الله خيراً

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

مفيش أي دالة تعمل الكلام ده طب كود طب أي حاجه

الاخوة الأفاضل رجاء لو مفيش طريقة أو حل تعرفوني

Test.rar

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

أرجو المساعدة من أصحاب الخبرة منتظر الرد

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.EnableEvents = False Application.DisplayAlerts = False If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub lr = Sheets("Projects").Range("c" & Rows.Count).End(xlUp).Rows.Value Sheets("Sample").Copy after:=Sheets(Sheets.Count) On Error Resume Next x = Len(Sheets(lr).Name) If IsEmpty(x) Then ActiveSheet.Name = lr ActiveSheet.Range("C2") = lr Else Answer = MsgBox("This sheet is allredy exit" & Chr(10) & "do you wnat to replace it?", vbYesNo) If Answer = 6 Then Sheets(lr).Delete ActiveSheet.Name = lr ActiveSheet.Range("C2") = lr Else ActiveSheet.Delete End If End If Application.EnableEvents = True Application.DisplayAlerts = True End Sub برجاء المساعدة في تحويل هذا الكود إلي زر Projects الكود بالملف المرفق في صفحة الـ مشاريع التنفيذ.rar

السلام عليكم أ/ سليم لو أمكن شرح بسيط للكود لكي أتمكن من تعديل بعض الخلايا

أرجوا المساعده لحل تلك المشكلة فهي تعيق عملي علي الملف

السلام عليكم أ.سليم أتعبناك أخي العزيز معنا ولا تعمل إلا عند فتح الملف من جديد Accounts لكن ظهرت مشكلة بالكود وهي ان جميع الأكواد تعطل عند مسح أحد خلايا العمود رقم 3 من صحفة ال فما هي المشكلة Test1.rar

الشيت يعمل كالآتي C في العمود Accounts أي إضافة في صفحة Sample يفتح صفحة جديدة بنفس الاسم يتم نسخها من صفحة B2 ويكتب اسم العميل في الصفحة الجديدة في الخليفة B في العمود Projects كما يتم كتابة اسم العميل في صفحة المشكلة لبعض العملاء لا يعمل الكود Cut أو عمل Accounts عند مسح عميل من صفحة قد تكون المشكلة كثرة الصفحات حيث أنها تزيد عن 70 وقد تكون زيادة الأكواد ففي كل صفحة من الـ 70 بها أكود حماية وكتابة التاريخ وقد تكون كثرة الدوال فكل صفحة من الـ 70 بها دوال كثيرة Test1.rar Test1.rar

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Application.DisplayAlerts = False If Target.Column <> 3 Or Target.Count > 1 Then Exit Sub lr = Sheets("Accounts").Range("c" & Rows.Count).End(xlUp).Rows.Value Sheets("Sample").Copy after:=Sheets(Sheets.Count) On Error Resume Next x = Len(Sheets(lr).Name) If IsEmpty(x) Then ActiveSheet.Name = lr ActiveSheet.Range("b2") = lr Else Answer = MsgBox("This sheet is allredy exit" & Chr(10) & "do you wnat to replace it?", vbYesNo) If Answer = 6 Then Sheets(lr).Delete ActiveSheet.Name = lr ActiveSheet.Range("b2") = lr Else ActiveSheet.Delete End If End If Application.EnableEvents = True Application.DisplayAlerts = True End Sub هذا الكود أحيانا يعمل وأخري لا يعمل ما المشكلة المطلوب تحويله إلي زر

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