نزار سليمان عيد

وجزاك الله خيرا اخي اكرم هذه فرصة للاطمئنان عنك وتسعدنا بمشاركاتك الجميلة والبناءة لمنتدى الاكسيل مع الشكر ابو خالد

السلام عليكم جهد مشكور للاخ justice وجزاك الله خيرا بخصوص التنبيه لتكرار رقم بالمرفق طريقتين اختر مايناسبك مع الشكر ابو خالد _________________________________.rar

السلام عليكم جهد مشكور للجميع وعلى تنوع الافكار والحلول ما قمت بتوضيحه اخي justice هو مادفعني للمشاركة ولكن توضيحك كافي مع الشكر ابو خالد

السلام عليكم لااعتقد ان الملف بطئ من هذه الدالة ويمكنك ارسال ملف مشابه لعمل ماكرو بنفس الدالة اذا اردت مع الشكر ابو خالد

السلام عليكم اخي احمد بخصوص دالة Hloolup هي دالة مشابهة لدالة Vloolup والفرق بينهما هو ان دالة Vlookup تتعامل مع الاعمدة وHloolup تتعامل مع الصفوف صيغة الدالة =HLOOKUP(E2,B3:E4,2,FALSE) وبالاسفل شرح لمعطيات الدالة E2 الخلبة المراد البحث بواسطتها B3:E4 المدة (هنا عبارة عن صفين للتوضيح الفكرة) 2 السطر المراد البحث فيه ( هل سطر 3 او سطر 4) False ارجاع نتيجة البحث اذا لم تتوفر القيمة الى N/A# ان شاء الله الشرح واضح وللمزيد انظر للمرفق مع الشكر ابو خالد HLOOKUP.rar

السلام عليكم استاذ طارق اسعدني مرورك وجزاك الله خيرا

السلام عليكم أراد رجل أن يبيع بيته وينتقل إلى بيت أفضل فذهب إلى أحد أصدقائه وهو رجل اعمال وخبير في أعمال التسويق.. وطلب منه أن يساعده في كتابه إعلان لبيع البيت وكان الخبير يعرف البيت جيداً فكتب وصفاً مفصلاً له أشاد فيه بالموقع الجميل والمساحة الكبيرة ووصف التصميم الهندسي الرائع ثم تحدث عن الحديقة وحمام السباحة.... الخ.. وقرأ كلمات الإعلان علي صاحب المنزل الذي أصغى إليه في اهتمام شديد وقال.. أرجوك أعد قراءه الإعلان!! وحين أعاد الكاتب القراءة صاح الرجل يا له من بيت رائع . لقد ظللت طول عمري أحلم باقتناء مثل هذا البيت ولم أكن أعلم إنني أعيش فيه إلي أن سمعتك تصفه ثم أبتسم قائلاً من فضلك لا تنشر الإعلان فبيتي غير معروض للبيع!!! ============ ========= ========= هناك مقولة قديمه تقول أحصي البركات التي أعطاها الله لك واكتبها واحدة واحدة وستجد نفسك أكثر سعادة مما قبل.. إننا ننسى أن نشكر الله تعالى لأننا لا نتأمل في البركات ولا نحسب ما لدينا.. ولأننا نرى المتاعب فنتذمر ولا نرى البركات. قال أحدهم : إننا نشكو لأن الله جعل تحت الورود أشواك..وكان الأجدر بنا أن نشكره لأنه جعل فوق الشوك وردا ...!! ويقول آخر: تألمت كثيراً عندما وجدت نفسي حافي القدمين .... ولكنني شكرت الله بالأكثر حينما وجدت آخر ليس له قدمين ============ ========= ========= ===== اسألك بالله كم شخص تمنى لو انه يملك مثل سيارتك,بيتك,جوالك,شهادتك,وظيفتك,.. كم من الناس يمشون حفاة وانت تقود سيارة كم من الناس ينامون في الخلاء وانت في بيتك كم شخص يتمنى فرصة للتعليم وانت تملك شهادة كم عاطل عن العمل وانت موظف كم كم كم كم الم يحن الوقت لان تقول يارب لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك مع الشكر ابو خالد

السلام عليكم مرحبا بك اخي الكريم بخصوص ماذكرته يجب تخفيض مستوى امان الماكرو وذلك من ادوات ماكرو ثم الامان تختار المستوى المنخفض او المتوسط مع الشكر ابو خالد

السلام عليكم نعم يمكن ذلك باتباع الخطوات التالية 1- فتح ملف الوورد 2- اظهار شريط الاستدعاء من الاكسيل وهو عن طريق عرض (View) ثم ادوات (Tools bar) ثم ربط البيانات (Mail Merge) 3- سيظهر لك شريط الاستدعاء 4- تختار من الشريط فتح مصدر البيانات (open Data Source) 5- تختار الملف الموجود بالاكسيل وبه البيانات ومن ثم الورقة التي بها البيانات 6- تختار من شريط الاستدعاء ادخال حقول الاستدعاء (Insert Merge Field) 7- سيظهر قائمة بمحتويات السطر الاول من الورقة (اي مسمى كل عمود) 8- تضع على النموذج الذي لديك بالوورد كل مسمى عمود مايقابله على النموذج 9- تختار من شريط الاستدعاء انقل الى صفحة جديدة وبه العدد الذي تريده من الصفحات فثلا ملف الاكسيل به 100 موظف وتريد ان ترسل فقط لعشرة موظفين فهنا تحدد من 1 الى 10 وهكذا لو كان كل المائة موظف تختار الكل All ان شاء الله يكون الشرح وافي واذا اردت المزيد من التوضيح اعلمني لكي اجهز لك ملف مع صور الخطوات اعلاه مع الشكر ابو خالد

السلام عليكم تمت الاجابة على مشاركتك على الرابط ادناه http://www.officena.net/ib/index.php?showt...mp;#entry132782 مع الشكر ابو خالد

السلام عليكم اخي الكريم ماطلبته ينطبق على كل برامج الاوفيس ( اكسيل ، وورد ، باوربوينت) ولعمل ذلك قم بعمل التالي: 1- من قائمة عرض (View) 2- تختار رسم (Drawing) 3- سيظهر لك شريط الادوات 4- تختار من هذا الشريط ادخال Organization Chart واذا الشرح لم يفي بالمطلوب فسوف اجهز لك ملف وارسله لك لتوضيح الشرح اعلاه مع الصور مع الشكر ابو خالد

السلام عليكم اخواني الكرام ان شاء الله الرابط ادناه يفيدكم وهو من احد اعمال استاذي الفاضل هادي سالم http://www.officena.net/ib/index.php?showtopic=13962&hl= وايضا الرابط التالي http://www.officena.net/ib/index.php?showt...amp;hl=userform مع الشكر ابو خالد

السلام عليكم انظر للرابط ادناه وهو من عمل اخي الحبيب عادل جزاه الله خيرا http://www.officena.net/ib/index.php?showt...;hl=علامة+مائية مع الشكر ابو خالد

السلام عليكم جزاك الله خيرا اخي محمد

السلام عليكم الله اكبر ماشاء الله على التألق والتميز مبدع دوما بارك الله فيك اخي الحبيب اخوك ابو خالد

السلام عليكم جهد مشكور للجميع ومعلومة رائعة من شخص رائع وجزاك الله خيرا اخي احمد مع الشكر ابو خالد

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

بخصوص الطلب اعلاه انسخ الكود ادناه وعدل الوقت بدلا من 15 ثانية للوقت الذي ترغب فيه Private Changed As Boolean Private Sub Workbook_Open() Changed = False Application.OnTime Now + TimeValue("00:00:15"), procedure:="ThisWorkbook.Auto_Close" End Sub Private Sub Workbook_SheetChange(ByVal Sh As Object, _ ByVal Source As Range) Changed = True End Sub Private Sub Auto_Close() If Changed = False Then ThisWorkbook.Close SaveChanges:=True End If Changed = False Call Application.OnTime(Now + TimeValue("00:00:15"), "ThisWorkbook.Auto_Close") End Sub مع الشكر ابو خالد

جزاك الله خيرا اخي justice ووفقك الله تمنياتي لك بدوام التوفيق والنجاح اخي طارق حسب الشرح بالملف يتم تصغيير المكبر Zoom الى اقل من 40% ليظهر لك اسم المدى مع الشكر ابو خالد

السلام عليكم غير زي ماتحب ولن يؤثر على الكود باذن الله مع الشكر ابو خالد

السلام عليكم جزاك الله خيرا اخي الحبيب وجعله في موازين حسناتك آمين آمين آمين مع الشكر ابو خالد

واياك اخي الكريم بالنسبة لزيادة المدى تذهب الى شاشة الكود بالضغط على Alt و F11 معا ستظهر لك شاشة الاكواد ستجد الجزئية التالية وهو الكود الخاص بالصفحة الاولى [B516:C65536,E516:F65536].ClearContents For R = 3 To 512 If Application.WorksheetFunction.CountIf([E3:E512], Cells(R, 2)) = 0 Then With Columns(2).Rows(65536).End(xlUp) .Offset(1, 0) = Cells(R, 2) .Offset(1, 1) = Cells(R, 3) End With End If Next For R = 3 To 512 If Application.WorksheetFunction.CountIf([B3:B515], Cells(R, 5)) = 0 Then With Columns(5).Rows(65536).End(xlUp) .Offset(1, 0) = Cells(R, 5) .Offset(1, 1) = Cells(R, 6) End With End If Next Duplicated MsgBox "!ÃäÊåÊ ÚãáíÉ ÇáãÞÇÑäÉ Èíä ÇáÌÏæáíä ÈäÌÇÍ æÊã æÖÚ ÇáäÊÇÆÌ Ýí åÐå ÇáÕÝÍÉ", vbInformation, "äÊíÌÉ ÇáãÞÇÑäÉ" End Sub Sub Compare2() On Error Resume Next Sheet2.[B3:C65536,E3:F65536].ClearContents For R = 3 To 512 If Application.WorksheetFunction.CountIf(Sheet1.[E3:E512], Sheet1.Cells(R, 2)) = 0 Then With Sheet2.Columns(2).Rows(65536).End(xlUp) .Offset(1, 0) = Sheet1.Cells(R, 2) .Offset(1, 1) = Sheet1.Cells(R, 3) End With End If Next For R = 3 To 512 If Application.WorksheetFunction.CountIf(Sheet1.[B3:B512], Sheet1.Cells(R, 5)) = 0 Then With Sheet2.Columns(5).Rows(65536).End(xlUp) .Offset(1, 0) = Sheet1.Cells(R, 5) .Offset(1, 1) = Sheet1.Cells(R, 6) End With End If Next Duplicated2 MsgBox "!ÃäÊåÊ ÚãáíÉ ÇáãÞÇÑäÉ Èíä ÇáÌÏæáíä ÈäÌÇÍ æÊã æÖÚ ÇáäÊÇÆÌ Ýí ÇáÕÝÍÉ ÇáËÇäíÉ", vbInformation, "äÊíÌÉ ÇáãÞÇÑäÉ" End Sub بالسطر الثاني من الكود اعلاه تجد تحديد المدى من 3 الى 512 هنا تتم زيادة المدى ويجب ان تاخذ في اعتبارك زيادة المدى الآخر لنفس الصفحة والذي يبدأ في الكود اعلاه من سطر 516 الى آخر الصفحة فلو زدت المدى من سطر 3 الى سطر 1000 ضع في اعتبارك زيادة المدى الآخر مثلا من 1015 الى آخر الصفحة وهنا الكود الخاص بالصفحة الثانية Sub Duplicated() Set MyRange1 = [K516:K1000] Set MyRange2 = [H516:H1000] [H516:I1000,K516:L1000].ClearContents For R = 3 To 512 If Application.WorksheetFunction.CountIf([E3:E512], Cells(R, 5)) > 1 Then With Columns(8).Rows(65536).End(xlUp) .Offset(1, 0) = Cells(R, 5) .Offset(1, 1) = Cells(R, 6) End With End If Next For R = 3 To 512 If Application.WorksheetFunction.CountIf([B3:B512], Cells(R, 2)) > 1 Then With Columns(11).Rows(65536).End(xlUp) .Offset(1, 0) = Cells(R, 2) .Offset(1, 1) = Cells(R, 3) End With End If Next For Each Cell In MyRange1 A = Application.WorksheetFunction.CountIf([B3:B512], Cell) B = Application.WorksheetFunction.CountIf([E3:E512], Cell) C = A - B If Application.WorksheetFunction.CountIf(MyRange1, Cell) > C Then Cell.ClearContents Cells(Cell.Row, Cell.Column + 1).ClearContents End If Next For Each Cell In MyRange2 A = Application.WorksheetFunction.CountIf([B3:B512], Cell) B = Application.WorksheetFunction.CountIf([E3:E512], Cell) C = B - A If Application.WorksheetFunction.CountIf(MyRange2, Cell) > C Then Cell.ClearContents Cells(Cell.Row, Cell.Column + 1).ClearContents End If Next [H516:I592].Sort [H516], xlAscending [K516:L592].Sort [K516], xlAscending End Sub Sub Duplicated2() Set MyRange1 = Sheet2.[K3:K512] Set MyRange2 = Sheet2.[H3:H512] Sheet2.[H3:I512,K3:L512].ClearContents For R = 3 To 512 If Application.WorksheetFunction.CountIf(Sheet1.[E3:E512], Sheet1.Cells(R, 5)) > 1 Then With Sheet2.Columns(8).Rows(65536).End(xlUp) .Offset(1, 0) = Sheet1.Cells(R, 5) .Offset(1, 1) = Sheet1.Cells(R, 6) End With End If Next For R = 3 To 512 If Application.WorksheetFunction.CountIf(Sheet1.[B3:B512], Sheet1.Cells(R, 2)) > 1 Then With Sheet2.Columns(11).Rows(65536).End(xlUp) .Offset(1, 0) = Sheet1.Cells(R, 2) .Offset(1, 1) = Sheet1.Cells(R, 3) End With End If Next For Each Cell In MyRange1 A = Application.WorksheetFunction.CountIf(Sheet1.[B3:B512], Cell) B = Application.WorksheetFunction.CountIf(Sheet1.[E3:E512], Cell) C = A - B If Application.WorksheetFunction.CountIf(MyRange1, Cell) > C Then Cell.ClearContents Sheet2.Cells(Cell.Row, Cell.Column + 1).ClearContents End If Next For Each Cell In MyRange2 A = Application.WorksheetFunction.CountIf(Sheet1.[B3:B512], Cell) B = Application.WorksheetFunction.CountIf(Sheet1.[E3:E512], Cell) C = B - A If Application.WorksheetFunction.CountIf(MyRange2, Cell) > C Then Cell.ClearContents Sheet2.Cells(Cell.Row, Cell.Column + 1).ClearContents End If Next Sheet2.[H3:I512].Sort [H3], xlAscending Sheet2.[K3:L512].Sort [K3], xlAscending End Sub وهنا يتم نفس التغيير مع الشكر ابو خالد

جزاك الله خيرا اخي احمد بالنسبة لوضع البيانات يتم وضعها بالصفحة الاولى من سطر 3 الى سطر 512 ويمكنك زيادة المدى من خلال الكود كما انه يوجد لديك عدد اثنان زر ماكرو واحد للتصفية بنفس الصفحة والاخر لعمل المقارنة بالصفحة الثانية او الذهاب مباشرة للصفحة الثانية بعد اضافة البيانات في الصفحة الاولى والضغط على زر نتيجة المقارنة لتظهر البيانات اخي احمد حافظ اولا الغي عملية تجميد الصف التي بالملف لكي تتمكن من وضع البيانات بالعمود B,C E,F من السطر 3 وارجو منك الاطلاع على الكود واي جزئية تريد شرحها انا والاخوة حاضرين مع الشكر ابو خالد

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

السلام عليكم انظر للرابط ادناه هل يفيدكم http://www.officena.net/ib/index.php?showtopic=21541 مع الشكر ابو خالد