المساعدة في تحويل كود إلي زر

[شعبان فليفل]

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

[شعبان فليفل]

أرجو المساعدة 

من أصحاب الخبرة

منتظر الرد

[شوقي ربيع]

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

يمكن فقط ربطه بزر في حالة ما اذا اردة تنفيذه على خلية معينة

تحياتي

 

[شعبان فليفل]

جزاكم الله خيراً علي الرد 
 

كل ما أحتاج إليه

إني بدل ما أضغط علي الخليه مرتين

علشان أعمل إضافة لعميل جديد

اعمل زر يقوم بنفس عمل الكود

 

[شعبان فليفل]

الاخوة الأفاضل

رجاء لو مفيش طريقة أو حل 

تعرفوني

 

[حمادة عمر]

السلام عليكم

الاخ الكريم / شعبان فليفل

بارك الله فيك

وبعد اذن اخي الحبيب / شوقي ربيع .. جزاه الله خيرا

شاهد الطريقة التالية في الملف المرفق

وهي تعتمد علي وجود ( زر عائم ) يقوم بتنفيذ الامر المطلوب لا يظهر الا عند الوقوف في خانة الملاحظات في العمود K

امام اسم العميل الجديد الذي تم اضافته

شاهد الطريقة واخبرني بالنتائج

تقبل خالص تحياتي

 

مشاريع التنفيذ1.rar

[شعبان فليفل]

الأخ الفاضل 

حمادة عمر

طريقة رائعة 

سلمت يداك

طلب صغير

ممكن الزر العائم لا يظهر إلا بعد إدخال اسم العميل

ولو أمكن شرح للكود

علشان محتاج أطبق نفس الطريقة علي كود آخر

جزاكم الله خيراً

تم تعديل أبريل 19, 2017 بواسطه شعبان فليفل

[شعبان فليفل]

الأخ الفاضل 

حمادة عمر

لو أمكن الزر العائم لا يظهر إلا بعد إدخال اسم العميل

بمعني أنه لايظهر في الخلايا الفارغه

[حمادة عمر]

السلام عليكم

الاخ الكريم / شعبان فليفل

بارك الله فيك

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

 

مشاريع التنفيذ12.rar

[شعبان فليفل]

سلمت يداك 

أخلي الفاضل 

حماده عمر

لو مفيش فيها إزعاج ليك 

لو تشرحلي الكود كامل

أكون شاكر وممنون لحضرتك

[حمادة عمر]

السلام عليكم

الاخ الكريم / شعبان فليفل

بارك الله فيك

تفضل اخي الكريم .. شرح للكود المستخدم الطريقة سطر سطر اتمني أن يفي بما تريد

وارجو من الله أن أكون قد وفقت في شرح المطلوب كما ينبغي

تقبل خالص تحياتي

 

شرح كود عمل زر عائم سطر سطر .rar

 

[سما محمد]

طريقتك أستاذنا / حمادة عمر 

لانجد نجد لها وصفا 

فكم انت راااااااااااااااائع فى اجاباتك وشرحك 

جزاك الله خيرا

[شعبان فليفل]

الأخ الفاضل حمادة عمر

طريقة رائعة في الشرح 

كم أنت رائع ومبدع

جزاكم الله خيرا

[حمادة عمر]

جزاكم الله خيرا اخواني الاحباء

الاستاذة / سما محمد

الاستاذ / شعبان فليفل

تقبلا خالص تحياتي

 

[شعبان فليفل]

الأخ الفاضل حمادة عمر 

لو تقدر تساعدني في هذه المشكلة 

أكون شاكر ليك 

دا رابط الموضوع

https://www.officena.net/ib/topic/76818-محتاج-دالة/#comment-492264

[شعبان فليفل]

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

لما بحدد الخلايا اللي فيها الزر المخفي 

بيظهر الخطأ ده