شعبان فليفل

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

طب حد يدلنا علي الطريق وان شاء الله ننفذ أي معلومة

برجاء المساعدة في هذا الكود 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

فضلاً وكرماً من أصحاب الخبرة ألا يبخلوا علينا بمعلوماتهم فأنا قليل الخبرة بالأكواد نحن نحبوا جانبكم

برجاء المساعدة في هذا الكود 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

سلمت يداك الكود يعمل بكفاءة ربنا يجعله في ميزان حسناتك

أستاذنا الفاضل سليم حاصيبا الملف أظهر مشكلة في القائمة المنسدلة كيف اقدم بإلغائها وفي نفس الوقت الملف يعمل كما هو shaaban 1111111111.rar

برجاء المساعدة في هذا الكود حيث أنه لا يعمل بكفاءة إلا عند تعديل هذه الجزئية Set ict1 = Intersect(Target, Range("D9:D50", "g9:g50", "r9:r50", "a3:r5")) إلي et ict1 = Intersect(Target, Range("D9:D50"))

برجاء المساعدة في هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim ict1 As Range Set ict1 = Intersect(Target, Range("D9:D50", "g9:g50", "r9:r50", "a3:r5")) If ict1 Is Nothing Then Exit Sub With Application .EnableEvents = False .Undo .EnableEvents = True End With End Sub حيث أنه لا يعمل بكفاءة إلا عند تعديل هذه الجزئية Set ict1 = Intersect(Target, Range("D9:D50", "g9:g50", "r9:r50", "a3:r5")) إلي et ict1 = Intersect(Target, Range("D9:D50"))

أنا أعمل علي ورد من 10 سنوات ومن عشاقه معلومة جديدة سلمت يداك

مجهود رائع أستاذ سليم Projects لكن ما أقصده هو أن يتم جلب البيانات إلي صفحة كما بالصورة

أتعبانكم معنا أ. سليم

هل ما أطلبه من السهل تطبيق أم أنه صعب التطبيق

برجاء المساعدة في الملف المرفق عايز كود يحل محل دالة vlookup بحيث يدعم التغيير من وإلي الخلايا Sh. 2017.rar

سلمت يداك جعل الله هذا العلم شافعاً لك يوم القيامة لكن الملف عدد صفحاته أكتر من 150صفحة فأصبح الملف يعمل بصعوبة فما الحل هل كثرة المعادلات هي المشكلة

السلام عليكم طلب صغير طمعاً في كرم حضراتكم واجهتني مشكلة V lookup بسبب دالة الـ الموجودة في الخلايا a2, c2, d2, k2, l2, m2, k4, l4, m4 أحتاج إلي تحويلها إلي كود Shaaban.rar

السلام عليكم أستاذ سليم طلب صغير طمعاً في كرم حضرتك واجهتي مشكلة V lookup فبحاجه إلي تحويل دالة الـ الموجودة في الخلايا a2, c2, d2, k2, l2, m2, k4, l4, m4 إلي أكواد ترحيل Shaaban.rar

مشكور مجهود رائع وكود مهم جداً

تسلم ايديك يا أستاذي الفاضل أنا مش عارف أشكرك ازاي لو أمكن شرح للكود في أي وقت تكون حضرتك فاضي جزاكم الله خيراً وجعله في ميزان حسناتك

دا فيديو يوضح ما اقصد https://www.dropbox.com/s/kitrbmn1qpk0du0/أ. سليم.rar?dl=0

أزعجتك معاي أنا اقصد انا عملت تعديلات علي الشيت بتاع العميل أحمد لما ضفت عميل جديد لقيت صفحة العميل أحمد مفيش فيها أي تعديل من اللي عملته

آسف جداً في مشكلة في الكود بسيط تحتاج إلي تعديل ألا وهي لما باضغط علي add to data validation list بيضيف العميل الجديد ويفتح ليه صفحة وينسخ فيها البيانات لكن بينسخ البيانات في الصفحات اللي كانت موجودة قبل كده كما بالشكل

ألف مليون شكر يا أغلي الغوالي عذار لو كتبت تعليق مش مناسب جميل جداً جداً جداً لو أمكن شرح بسيط للكود يبقي كدا 100 فل و10

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