عبد القادر محمد مهدى

البقاء لله اللهم تقبله فى الصالحين

((وقل ربى زدتي علماً)) ((العلم يرفع بيوتاً لا عماد لها ... والجهل يهدم بيت العز والكرم)) شكراً لك أخى ابراهيم ابوليلة.. أسأل الله الكريم رب العرش العظيم أن يزيدك علماً الى علمك. شكراً للقائمين على هذا الصرح العلمى.. وأسأل الله العظيم أن يدوم هذا الصرح الى يوم الدين. جزاكم الله خير الجزاء

المطلوب من الكرام تعديل الكود لاضافة حدود للخلايا على حسب البيانات بالعمود C كما فى الجدول اضافة رقم مسلسل بالعمود Bعلى حسب البيات الموجودة بالعمود C كود بحث.rar

ملف وورد خاص بالمدام نسيت كلمة سر فتح الملف وهو عبارة عن رسالة علمية هل من حل عاجل ؟ شكراً للخبراء

السلام عليكم اخى الكريم لم تصل بعد لهذه المرحلة سامحك الله احلم ولن بقدر شكرا لك

الآستاذ عصام طلعت برافو عليك تحياتي لك صح الصح الأخ الكريم ابو عبدالبارى تحياتي لك الدلة بتعطي نتائج غير صحيحة فلك شرف المحاولة شكرا لك

تحياتى أستاذ طلعت واضحة ومش محتاجة ملف ((IF(IF1>0;100;IF(F1=0;7.5;0= عاوز اقول لو f1 اكبر من صفر اكتب 100 ولو تساوي صفر اكتب 7.55 ولوغير ذلك اكتب 0

((IF(IF1>0;100;IF(F1=0;7.5;0= عاوز اقول لو f1 اكبر من صفر اكتب 100 ولو تساوي صفر اكتب 7.55 و

أشكرك أستاذى/ أبو عبد النور العلم نور تم الدمج والحمد لله الكود شغال 100% أشكرك استاذى الفاضل جعل الله كل أعمالك الطيبة فى ميزان حسناتك تحياتي لك استاذي

اسلام عليكم اريد أن ادخل هذان الالكود فى صفحة واحدة ولكن يحدث تعارض بينهما الكود الأول Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("d1:d10000")) Is Nothing Then VBA.Calendar = vbCalGreg If IsEmpty(Target) Then Target(1, 2).ClearContents Else With Target(1, 2) .Value = Date .EntireColumn.AutoFit End With End If End IfEnd Sub ============================== الكود الثانى Private Sub Worksheet_Change(ByVal Target As Range) Dim MyRows As Integer, MyRange As Range, MyRange1 As Range On Error GoTo 1 With Range("kh_test_1") MyRows = .Rows.Count - 1 Set MyRange = .Range(Cells(MyRows, 1), Cells(MyRows, 4)) If Not Intersect(Target.Cells(1, 1), MyRange.Cells) Is Nothing _ And Target.Value <> "" Then MyRange.EntireRow.Insert Set MyRange1 = .Range(Cells(MyRows, 1), Cells(MyRows, 4)) MyRange1.Value = MyRange.Value MyRange.ClearContents End If End With 1 End Sub

المرفق دمج جدولين.rar

تسلم استاذى بارك الله فيك

ما من حل

السلام عليكم استاذى أبو النور اريد أن ادخل 2كود فى صفحة وكل كود يبدأ بهذا السطر هل احذف هذا السطر من الكود الثانى؟ ورقة واحدة

للخيراء عندما يتكرر هذا السطر (Private Sub Worksheet_Change(ByVal Target As Range فى أكتر من كود فى الصفحة يحصل تعارض فما الحل؟

للخيراء عندما يتكرر هذا السطر (Private Sub Worksheet_Change(ByVal Target As Range فى أكتر من كود فى الصفحة يحصل تعارض فما الحل؟

السلام عليكم استاذى الفاضل/ أبو عبد النور لى استفسار بعد اذنك Worksheet____4 Worksheet____7 Worksheet____8 هل هذا تسمية لأوراق العمل أم ماذا لأننى أردت نسخ الكود لملف أخر ولم يعمل شكراً استاذى الفاضل

السلام عليكم أشكرك استاذى الفاضل/ طلعت محمد حسن أسأل الله أن يجعل هذا العمل في ميزان حسناتك

بارك الله فيك

السلام عليكم أشكرك استاذى الفاضل/ أبو عبد النور أستاذي استفدت منك الكثير شكراً على الشرح السهل وشكراً على العمل الأكثر من رائع أسأل الله أن يجعل هذا العمل في ميزان حسناتك

السلام عليكم أشكرك استاذى الفاضل/ أبو عبد النور على هذا الكود الأكثر من رائع وفقكم ورعاكم وسدد على طريق الحق خطاكم استاذى الفاضل/ أبو عبد النور اريد منك شرح هذا الكود... لتعم الفائدة... أكون شاكر لحضرتك وأسأل الله العلي القدير أن يجعله الله فى ميزان حسناتك. ولى طلب من أستاذى الفاضل/ طلعت محمد حسن أن يتم هذا العمل عن طريق الدوال بدون هذا الخطأ (?NAME#) عند التعديل أستاذى الفاضل/ طلعت محمد حسن شكراً لحضرتك. أستاذى الفاضل/ أبو عبد النور شكراً لحضرتك. وأسأل الله العلي القدير أن يجعله فى ميزان حسناتكم. وأشكر كل القائمين على هذا المنتدى الرائع. شكرا للجميع حفظكم الله ورعاكم.

السلام عليكم أشكرك استاذى الفاضل/ طلعت محمد حسن على مجهودك الرائع وفقكم ورعاكم وسدد على طريق الحق خطاكم نعم استاذى... هذا هو المطلوب تمام ـ ولكن أخى العزيز عند التغير فى (جدول1) أو (جدول2) بعطى المطوب (?NAME#) قى كل الجدول ـ واريد أن تعلمنى كيفية استخراج الأسماء من الجدولين بدون تكرار لأن هذا جزء من عملى وأعمل عليه يومياً ... علمنى كل شى عن هذا العمل الرائع . حفظكم الله ورعكم وأسأل الله العلي القدير أن يجعله الله فى ميزان حسناتك.

أشكرك استاذى الفاضل/ طلعت محمد حسن على مجهودك وسرعة الرد ... ولكن لم تفهم قصدى حيث أنه تم العمل على (اسم المؤسسة) وليس (اسم المشرف) والدالة أعطت خطأ #NAME? تم تعديل على الجدول1 والجدول2 ليتضح المطلوب.. المرفق.rar

استدعاء بيانات من جدولين فى ورقتى عمل ... الى جدول فى ورقة عمل ثالثة. المرفق.rar

تحياتي للجميع المرفق نسخة.rar