شعبان فليفل

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

بالفعل صحيحة 
لكن الاستشارات تحتسب بالدقيقة والساعة 

وعند إجراء عملية التحويل يظهر الناتج 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

هذا الكود أحيانا يعمل وأخري لا يعمل

ما المشكلة 

المطلوب تحويله إلي زر 

سلمت يداك 

دائماً مبدع أستاذنا الفاضل

جزاك الله خيراً وبارك فيك 

وأثابك الجنة إن شاء الله 

وجعل هذا العلم في ميزان حسناتك