شعبان فليفل قام بنشر مارس 18, 2017 مشاركة قام بنشر مارس 18, 2017 (معدل) 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 بواسطه شعبان فليفل رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 18, 2017 مشاركة قام بنشر مارس 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 1 رابط هذا التعليق شارك More sharing options...
شعبان فليفل قام بنشر مارس 18, 2017 الكاتب مشاركة قام بنشر مارس 18, 2017 سلمت يداك دائماً مبدع أستاذنا الفاضل جزاك الله خيراً وبارك فيك وأثابك الجنة إن شاء الله وجعل هذا العلم في ميزان حسناتك 1 رابط هذا التعليق شارك More sharing options...
شعبان فليفل قام بنشر مارس 24, 2017 الكاتب مشاركة قام بنشر مارس 24, 2017 (معدل) السلام عليكم أ.سليم أتعبناك أخي العزيز معنا ولا تعمل إلا عند فتح الملف من جديد Accounts لكن ظهرت مشكلة بالكود وهي ان جميع الأكواد تعطل عند مسح أحد خلايا العمود رقم 3 من صحفة ال فما هي المشكلة Test1.rar تم تعديل مارس 24, 2017 بواسطه شعبان فليفل رابط هذا التعليق شارك More sharing options...
شعبان فليفل قام بنشر مارس 28, 2017 الكاتب مشاركة قام بنشر مارس 28, 2017 أرجوا المساعده لحل تلك المشكلة فهي تعيق عملي علي الملف رابط هذا التعليق شارك More sharing options...
شعبان فليفل قام بنشر أبريل 4, 2017 الكاتب مشاركة قام بنشر أبريل 4, 2017 السلام عليكم أ/ سليم لو أمكن شرح بسيط للكود لكي أتمكن من تعديل بعض الخلايا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان