شعبان فليفل

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"))

On 1/15/2014 at 1:39 PM, قنديل الصياد said:

لعمل جدول فى برنامج الوورد بطريقة سهلة جدا

اتبع الاتي

 

+===+===========+      ( لا تنسى هنا المسافات بين العلامات )
و اضغط زر Enter بعدها
و شاهد كيف يتم انشاء الجدول
و كذلك يمكن كتابة
+--------+-------------------+  (  هنا لا يوجد مسافات بين العلامات )
 

أنا أعمل علي ورد من 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 واحد 

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

سواء كان دالة أو كود أي حاجه