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