طلب تعديل في كود نسخ شيت

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

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 3 Then
lr = Sheets("Accounts").Range("c" & Rows.Count).End(xlUp).Rows.Value
Sheets("Sample").Select
Sheets("Sample").Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = lr
End If
End Sub

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

كذلك يعمل الكود عند تكرار الخلايا ... فيقوم بنسخ صفحة أخري 

المطلوب :               1-  إصلاح مشكلة كلك يمين                                            2- عدم النسخ في حالة تكرار الخلايا               3-أريد الكود يعمل عند الإدخال وليس كلك يمين

Test.rar

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

[سليم حاصبيا]

استبدل الكود بهذا

Private Sub Worksheet_BeforeRightClick(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("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

 

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

سلمت يداك 

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

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

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

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

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

السلام عليكم أ.سليم 

أتعبناك أخي العزيز معنا 

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

فما هي المشكلة 

Test1.rar

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

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

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

لحل تلك المشكلة 

فهي تعيق عملي علي الملف

 

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

السلام عليكم 
أ/ سليم

لو أمكن شرح بسيط للكود 

لكي أتمكن من تعديل بعض الخلايا