عبدالله المجرب

عمل رائع جداً هل ممكن استاذ منتصر شرح لهذه الجملة في كود بعد التحديث DLookup("A", "ABCD", "A=form!A")) وكمان بالمرة لهذه الشرط . DLookup("A", "ABCD", "C=form!C and D=form!D And A<>form!A") وشكراً

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

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

السلام عليكم اجمل مافي الموضوع بالاضافة لكونه مهم في معرفة حلول المشاكل المتعلقة بالشبكة ان الاستاذ ابو ناصر منور فيه بانتظار الحلول

جربتها الدالة لاتعمل على 2003

بصراحة ابداع ما بعده ابداع سلمت يمينك استاذ عبدالله على هذا التميز

حياك الله اخي ضاحي الغريب وشكراً على الدعاء واسأل الله ان يكون لك بمثل ما دعيت وأكثر

ضع هذا الكود في زر أمر Sub Abu_Ahmed() Range("A2").ClearComments With Range("A2").AddComment .Text Text:="عدد الأسماء هو " & Application.CountA(Range("B4:B160")) & " أسم" .Visible = True End With End Sub

جرب حذف هذه الاسطر For Each Wok In Workbooks If Wok.Name = MyWok Then ActiveSheet.Copy Before:=Workbooks(MyWok).Sheets(1) ' Application.Windows(2).Activate MsgBox ("تم نقل الملف إلى سطح المكتب"), vbMsgBoxRight, ("نقل ") Exit Sub End If Next

شكراً لمرورك اخي حسين

بارك الله فيك اخي أحمد

حياك الله اخي عباس

ضعه في طلب جديد === بالفعل اخي ابو حنين فكودك يعمل تمام

تفضل الثالث (1).rar

جزاك الله كل خير استاذ ياسر خليل (عاشق الاكسل)

هل تقصد ترحيل بيانات الخلية دون حذف الصف ام ماذا

لم اجربها على 2003 لكن اظنها تعمل ساقوم غداً ان شاء الله بتجربتها في كمبيوتر العمل لان نظامه 2003

تفضل المرفق بعد التعديل الثالث.rar

السلام عليكم بعد تجربة ملفك الاخير عمل كود الاستاذ ابو حنين === قمت بعمل كود في زر امر للترحيل مع حذف المرحل Sub Abu_Ahmed() Dim cl As Range For Each cl In Range("A2:J" & [A10000].End(xlUp).Row) If cl.Interior.ColorIndex <> xlNone Then Cells(cl.Row, 1).Resize(1, 10).Copy Sheets("COPYY").Range("A" & Sheets("COPYY").[A10000].End(xlUp).Row + 1) cl.EntireRow.Delete End If Next End Sub شاهد المرفق 111.rar

السلام عليكم بعد اذن اخي عاشق الاكسل (الاستاذ ياسر خليل) ====== اخي الكريم هاني بدر صاحب ملف Employs v2.1 (اظنه احد الاعضاء واسمه المايسترو) لم يعطل محرر الاكواد وانما قام بوضع حماية عليها ========================== ولعمل ذلك اتبع الصوربداية اذهب الى محرر الاكواد وعلى اسم العمل (في الصورة اسمه Book1.xls) ثم كليك يمين ستظهر لك هذه الصورة قم باختيار الخيار الملون باللون البرتغالي الفاتح وستظهر لك الصورة الثانية قم باتباع الخطوات التي فيها للحصول على حماية لمحرر الاكواد

اخي ابو حنين جربت الملف لكن الكود لا يرحل == الافضل وضع الكود في زر أمر وننتظر مرفق صاحب الطلب لمعرفة ما يريد

السلام عليكم اتمنى ان تعدل اسم الظهور ليكون باللغة العربية ======= ضع مرفق به شرح لما تريد وستجد العون ان شاء الله

السلام عليكم اتمنى ان تعدل اسم الظهور ليكون باللغة العربية ======= ضع مرفق به شرح لما تريد وستجد العون ان شاء الله

لم تنتهي لكن الوقت غير متوفر للشرح بسبب ضغوط العمل ويمكنك ملاحظة ذلك من قلة تواجدي في المنتدى ان شاء الله عند توفر الوقت ساكمل السلسلة

ضع مرفق به المطلوب مع تفصيل لما تريد