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

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

برجاء المساعدة في هذا الكود

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

عندما اضغط كلك يمين علي خلية تم إدخالها من قبل يعطي هذا الخطأ

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

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

Test.rar

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

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

فضلاً وكرماً من أصحاب الخبرة 

ألا يبخلوا علينا بمعلوماتهم 

فأنا قليل الخبرة بالأكواد 

نحن نحبوا جانبكم

 

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

طب حد يدلنا علي الطريق 

وان شاء الله ننفذ 

أي معلومة