نجوم المشاركات

السلام عليكم ورحمة الله وبركاته إخواني الأعزاء في المنتدى الأغر أقدم لكم حيلة بسيطة جداً .. ألا وهي : نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق يعني عندنا نطاق بيانات ، عايزين ناخد صورة من هذه البيانات وفي نفس الوقت تكون الصورة مرتبطة بأي تغير يحدث في النطاق الشرح داخل الفيديو على هذا الرابط مرفق لكم الملف لتقوموا بالتطبيق عليه ، دا للي مهتم بالتطبيق ! كان معكم أخوكم أبو البراء في حلقة Take Away دمتم في رعاية الله Test.rar

الاخ مختار شكرا لكلاماتك اضافة بسيطة نتمنى تعجبك Enter Password to run a Macro.rar

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قد يكون موضوع الكسر موضوع شائك وفيه خلاف ، ولكن ربما يكون مفيد لصاحب العمل نفسه ، حيث أنه معرض لنسيان الباسورد الذي تم وضعه على محرر الأكواد .. الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون AddIns وبدون الاستعانة بأية برامج مجانية أو مدفوعة !! كسر محرر الأكواد بالأكواد نفسها (قنبلة الموسم) وعلى رأي المثل : علمته رمي السهام فلما اشتد ساعده رماني .. الكود قليل الأصل !! محفظش الجميل للبيئة اللي هو منها ، لأنه كسر بيئة محرر الأكواد !!! Sub HackVBA() Open "C:\Users\Future\Desktop\Test.xls" For Binary As #1 Put #1, 1, Replace(Input(LOF(1), 1), "DPB=", "DPX=", , 1) Close Workbooks.Open "C:\Users\Future\Desktop\Test.xls" End Sub المطلوب فقط أن تغير مسار الملف المراد كسره داخل الكود ، والمسار يوضع بين أقواس تنصيص .. أترككم مع الفيديو عله ينال إعجابكم وتستفيدوا منه إن شاء المولى .. ولا تنسونا من اللايكات على اليوتيوب !!!!! ....أكرر اللايكات على اليوتيوب ..فضلاً لا أمراً تقبلوا تحيات أخوكم أبو البراء

السلام عليكم ورحمة الله وبركاته جائني علي الخاص الرسالة التالية من أخونا الفاضل (رجب محمد) ===================================== عندي شيت اكسل يحتوي على بيانات اكثر من عشرين الف اسم وقد حاولت ان اطبع كل عشرين اسم في صفحة مستقلة الطريقة التي اتبعها دائما هو عمل بيج بريك للصفحة وظبط الهوامش كما تعلم حضرتك وهذا يتم في ملف صغير يحتوي على عدد قليل من الاسماء اما الملف الاكبر فقد تعبت فيه لان عند الطباعة يظهر في صفحة عدد مثلا ثلاثون وفي صفحة اخري خمسون هل هناك طريق بسيطة لعمل ذلك الرجاء الرد سريعا ولكم جزيل الشكر =================================== إنتهت الرسالة ولم يكن أخونا رجب يستطيع رفع الملف المهم نصحته باستخدام الكود التالي Sub Macro1() LR = Sheet1.[A99999].End(xlUp).Row For r = (15 + 19) To LR Step 20 ' يمكنك استبدال الرقم 15 برقم أول سطر بعد العناوين ActiveSheet.HPageBreaks.Add Before:=Cells(r, 1) Next End Sub وبعد إرسال الملف لي واستئذانه في نشره هذا هو الملف مرفق بعد عمل اللازم (ليس به معلومات تضر بمصلحة العمل) بيج بريك.rar

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

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

الاخ الكريم مصطفى فينك بقالك فترة مختفي (لعله خير) إليك الملف التالي رغم أنك لم توضح بالتفصيل طلبك ، ولكني حاولت التدقيق في الطلب حتى فهمت مرادك Sub CopySheets() Dim I As Long Dim WS As Worksheet, SH As Worksheet Set WS = Sheets("نسخ"): Set SH = Sheets("بداية") Application.ScreenUpdating = False For I = 3 To 10 If blnWorksheetExists(SH.Cells(I, "B")) Then GoTo 1 WS.Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = SH.Cells(I, "B").Value ActiveSheet.Range("B2").Value = SH.Cells(I, "B").Value 1 Next I SH.Activate Application.ScreenUpdating = True End Sub Function blnWorksheetExists(strWorksheet As String) As Boolean On Error Resume Next blnWorksheetExists = Not (ThisWorkbook.Worksheets(strWorksheet) Is Nothing) On Error GoTo 0 End Function تقبل تحياتي Copy Sheet Based On Range Values YasserKhalil.rar

بارك الله فيك استاذي ياسر يشهد الله اني احبك بالله .

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

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

اخي الكريم شاهد هذا الملف لعله يفي بالغرض. التفقيط عربي وانجليزي.rar

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

الأخ الحبيب رشراش علي مشكور على كلماتك الرقيقة الأخ أستيكة (همسحك بأستيكة لو مغيرتش اسمك للغة العربية ههه) جزيت خيراً على مرورك الكريم مشكور على مرورك الطيب والعطر أخي الكريم غسان بارك الله فيك وجزاك الله خيراً

أخي الأستاذ ياسر (أبو البراء) ..بارك الله فيك وفي مجهودك الطيب.. وعاشت ايدك ..اللهم ارزقنا حسن الفهم وحسن العمل..

انا كنت عارف ان الباش محمد ماغاب اليومين الاخيرين الا ووراه حاجة من طول الغيبات جاب الغنايم اكيد ابوعبير هيوزع شربات والا عصير^_^ اسمعوا يا اخوانا: انتو معزمين بكرة الجمعة بعد صلاة العص عند الخ ابوعبير............

الأخ الحبيب اللبيب: ياسر (أبو البراء) والله أخجلتني بكريم ردك وهديتك وكرمك، وتسلم عيونك وبمناسبة ترقيتك، أتمثل بـقول الشاعر: ليست الألقاب هي التي تكسب المجد .. بل الناس من يكسبون الألقاب مجداً تحياتي لك.. ولكل الأحبة في منتدانا العامر بأمثالكم.

هدية رائعة من استاذ واخ رائع !! واكرر اعجابي باتجاه التري فيو من اليمين لليسار ( عربي )

وهاي المرفق 54.1.TreeView_RTL.mdb.zip

الأخ الحبيب الغالي مختار جزيت خيراً على الكود الرائع فقط جزئية بسيطة جداً لم تعجبني ..ألا وهي وجود امتداد الملف في اسم الملف المصدر قم بتغيير السطر إلى fName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1)) & " " & .Range("C10").Value تقبل تحياتي

الشكر فيما فعلت قليل , رفع الله قدرك وجزاك الله خير ونفع بك .

جرب الكود ده Sub MOKHTAR_SaveAsPDF() Dim fName As String With Worksheets("Exemple facture chifrée") fName = ThisWorkbook.Name & .Range("C10").Value End With ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\" & Environ("UserName") & "\Desktop\" & fName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False End Sub الملف هيكون اسمه باسم الملف والخلية C10 تحياتى

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

أخي وحبيبي في الله حسام مشكور على مرورك العطر وعلى كلماتك الطيبة (كلماتك لي بمثابة البنزين للعربية ومش أي بنزين دا بنزين 92 ..) تقبل تحياتي

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

السلام عليكم اولا هذه الملفات ليست لى بل هى من ابداع الاستاتذه الكبار فى هذا الصرح الكبير وصرح اخر كبير اتمنى من الله ان يعود الينا وهوا الفريق العربي للبرمجه ومجموعه كبيرة من المواقع وهى موجوده بمكتبتى واحببت ان اضغها هناا ليستفيد منها طلاب العلم مثلى ولخوفى عليها من الضياع ____________________ مع خالص شكرى وتقديرى الى الاساتذة الكبار اصحاب هذه الامثله جعلها الله فى ميزان حسناتهم يوم القيامة ( اللهم بارك لهم فى علمهم وفى رزقهم وفى اهلهم يا اكرم الاكرمين يا الله ) تسعة أمثله للبحث منها مثال للبحث بطريقتين لأبو هاجر.rar مثال من تصميم أحد الأخوة فيه عدة أمثلة على نماذج و تقارير مختلفة.rar FileSize-مثال مهم جدا يعرض لك حجم المكونات الفعلية للبيانات.rar ربط قاعدة البيانات حسب الاختيار (المثال بعد التعديل).rar ChooseReportFromList2_2k-مثال على كيفية اختيار اسم التقرير المطلوب من لائحة ListBox.rar مثل الصلاحيات.rar CtlGroups-مثال للتحكم بخصائص مربعات النص من خلال أزرار الاختيار ف يالنموذج.rar sHIFT-مثال للتحكم في خصائص تشغيل أي ملف أخر , مثل السماح باظهار صفحة بيانات الملف أو استخدام المفاتيح الرئيسية او اظهار شريط الأدوات أو ... الخ.rar Tree- مثال على البنية الشجرية - تصميم أبو هادي - أوفسينا.rar findrecord2k--مثال مفيد جدا لمن يحتاج المساعدة في بناء الاستعلامات بسهولة كبيرة.rar Animation2k-مثال رائع على استخدام خاصية المؤقت في النموذج Timer لصنع ساعة - أشكال متحركة مختلفة.rar Atomatic_Record_Scrolling-مثال يجعل النموذج ينتقل تلقائيا من سجل للسجل الذي يليه - استخدام المؤقت في النموذج.rar AutoBkUp2K-- مثال لعمل نسخ احتياطي تلقائي لقاعدة البيانات.rar UpdateDirect2k - مثال على الاستيراد و التصدير المبرمج.rar

جزاك الله خيرا عمل رائع بالتوفيق

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

ربما كان المطلوب شرط البيع.rar

مشكورة جهودك

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

هل يمكن ارفاق الملف مرة اخرى وياحبذا لو على سيرفر الموقع يكون افضل

تفضل اخي هل هذا ماتبحث عنه برنامج بحث.rar برنامج بحث.rar

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

بعض اعمال الاستاذه الكبيره زهره بارك الله فيها المواضيع الممزة لها بالمنتدى http://www.officena.net/ib/index.php?showtopic=10405 za_arrangement_UP.rar zaAccessDiaryDaily_v.2.rar za-Aziz03-END.rar zaChangeResolution2006_UP.rar za-Database2-LAST- من والى المدرسة 2.rar za-Database2-UP- التحويل من والى المدرسة.rar za-ditingup-UP.rar za-ditingup-UP_2.rar za-NA-Copy-Report -عدد نسخ التقرير المطلوبة للطباعة.rar za-Nadih-Last.rar za-Nadih-Last-4.rar za-SplitName- تقسلم الاسم 2.rar za-SplitName12-UP - تقسيم الاسم.rar za-SplitName12-UP.rar za-Students-Rank-END.rar za-Students-Rank-ENDs.rar za-Students-Rank-العشرة الاوائل.rar zaTextEffectScrollingUP - نص متحرك.rar za-Translate v 1.1-برنامج الترجمة.rar za-توزيع الاسم.rar

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

ونكمل بأمر الله SubQuery2k- مثال على استخدام الاستعلام الفرعي داخل الاستعلام لاستخراج قيم تجميعية.rar SynchronizedSubforms2k - مثال على كيفية مزامنة نموذجين فرعيين ضمن نموذج رئيسي.rar TimeDiff- مثال على كيفية حساب الفرق في الوقت و التاريخ.rar TimeDiffrent- مثال يعرض الفرق بين تاريخين بالساعه.rar Unbound2k -مثال لاضافة حقول غير منضمة الى الجدول و الى قائمة لائحة ListBox.rar WipeEffects - مثال لاغلاق النموذج بعدة طرق انسايبية.rar مثال على كيفية اضافة أقساط المتبرعين لعدد 12 شهرا بطريقة اتوماتيكية.rar مثال كيفية اضافة صورة للموظف او طالب وايضا اظهارها في التقرير 2003.rar مثال كيفية اضافة صورة للموظف او طالب وايضا اظهارها في التقرير.rar مثال لاخفاء شاشة الأكسس الرئيسية عند فتح الملف.rar مثال لعرض الأرقام الشاغرة بين رقمين.rar

الجذء الثانى animation- مثال لكيفية فتح النموذج بعدة طرق انسيابية -.rar AuditTrail2k-مثال لضبط و رقابة سجلات الملف.rar AutonumberProblem2k-مثال بسيط لعمل ترقيم تلقائي مبرمج من خلال ادخال البيانات من النموذج فقط حيث سيتم اضافة رقم تلقائي لكل سجل جديد.rar calendarsolution-مثال على نموذج فيه زر يفتح التقويم.rar CascadingComboBoxes2K-مثال لكيفية تصفية مربع تحرير و سرد بناء على قيمة مقابلة من مربع تحرير و سرد آخر.rar ChangeBackColor-مثال للتحكم بلون خلفية النموذج و تغييرها من نفس النموذج.rar clipboard2k-مثال لكيفية النسخ و اللصق من و الى الحافظة.rar CndFrmt-مثال لكيفية تلوين السجل الحالي في النموذج المستمر بلون مختلف.rar ConditionalFormatting2k-مثال على التنسيق الشرطي بعدة طرق مختلفة للنماذج.rar CrosstabReport2k-مثال على صنع تقرير مبني على استعلام جدولي محوري CrossTab_Query.rar CurrentTab2k-مثال للتنقل بين حقول الصفحات Tab Pages من خلال زر أمر.rar FormSubform2k---مثال يبين كيفية توظيف الدوال لاستخراج نتائج بيانات النموذج الفرعي من خلال النموذج الرئيسي.rar HighLightComd-مثال لنموذجين فيهما عدة أزرا أمر , بمجرد تحريك الفأرة فوق أحد الأزرار يتغير لون نصه الى الأخضر.rar MultiReport - مثال لطباعة عدة تقارير دفعة واحدة.rar MultiReport up - مثال لطباعة عدة تقارير دفعة واحدة - النسخة الصح.rar NumberLettrs-مثال لتحويل الأرقام الى حروف - كتابة الرقم كتابة من أجل التفقيط.rar Openargs2k-مثال فيه فائدة كبيرة على طريقة استخدام قرائن فتح النموذج OpenArg بشكل بسيط و متعدد.rar Openargs2k-مثال فيه فائدة كبيرة على طريقة استخدام قرائن فتح النموذج OpenArg بشكل بسيط و متعدد.rar OrderListBox2k -مثال على كيفية التحكم بترتيب عناصر لائحة ListBox من خلال زر أمر.rar ParaQueryDelete2k -مثال لتشغيل استعلام حذف سجلات بناء على قيمة معينة مختارة في النموذج.rar ParaQuerySelect2k -مثال قريب للمثال السابق لكن لتشغيل استعلام اختيار حسب قيمة معينة و ليس حذف.rar ProgressBar2000--مثال على استخدام شريط التقدم الأزرق Progress Bar.rar ReadWriteWord - مثال على كيفية ارسال بيانات الى ملف وورد , و فتح ذلك الملف بعد انشائه.rar Rotateit_مثال لالتفاف مربع نص من اليمين الى اليسار أو بشكل آخر.rar search_form1- مثال على البحث المتقدم في أكثر من حقل.rar Search-مثال على البحث مع تجاهل التشابه في الحروف.rar SequenceDancing-مثال على استخدام المؤثرات البصرية في جعل الكائنات تتحرك باشكال هندسية.rar StringStuff2k - مثال على كيفية تغيير تنسيقات الحقول.rar SubForm3Levels2k - مثال على نموذج يحوي نماذج فرعية بثلاثة مستويات.rar SubformReference2k - مثال على كيفية الاشارة من النموذج الرئيسي الى اي عنصر من عناصر النموذج الفرعي.rar

جزاك الله خيرا اخي الكريم/مختار وانا بجد والله نفسي اعرف أسوق العربية ادعولي .. بتعلم اليومين دول واعرف أسوق كدة زي الأستاذ مختار .. والأستاذ صلاح .. والأستاذ عبد العزيز تقبلوا خالص تحياتي

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

منعت من الموقع بأن أسجل أعجابى بكلامكما فقد وصلت للحد الأقصى اليوم لكن الأهم هو أن تحب الاكسل فيحبك و كمان يعطيك محبة الناس الحمد لله

جزاك الله خيرا

اخي الفاضل ممكن تشرح اكتر

الله يبارك فيكما استاذ غسان العبيدي واستاذ ياسر خليل ويمدكما بالصحة والعافيه ويجعل الله أعمالكما في كفة حسناتكما آمين .. يارب العالمين

أخي الحبيب غسان إليك الملف المجاني .. وعيوني للأخوة الأعضاء Functions 2013-EN-US (free-unlocked).rar

للاسف غير مجانى

الاخ محمد الريفي بارك الله فيك وجزاك الله خيرا الأخ إبراهيم أبو ليلة الحل كان ع السريع إليك الملف التالي عله ينال إعجابك وينال رضاك Unique List No Blanks YasserKhalil.rar

الأخ الحبيب أحمد مرجان نعتذر عن التأخير في تقديم المساعدة (وكل تأخيرة فيها عطلة للناس بس أكيد فيها خيرة بردو) إليك الكود التالي (وعشان غرامة التأخير مرفق شرح لكل أسطر الكود عشان تقدر تعدل بما يناسبك إن شاء الله) Sub ImportDataFromClosedWBUsingVLOOKUP() 'تعريف المتغيرات Dim WBK As Workbook Dim Rng As Range Dim LastRow As Long 'إيقاف تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إيقاف خاصية رسائل التنبيه Application.DisplayAlerts = False 'ليساوي المصنف المسمى 1 والموجود في نفس مسار المصنف الحالي [WBK] تعيين قيمة للمتغير 'يقوم هذا السطر أيضاً بفتح المصنف في المسار المذكور Set WBK = Workbooks.Open(ThisWorkbook.Path & "\1.xlsx") 'تعيين قيمة للنطاق المراد جلب البيانات منه من المصنف المسمى 1 Set Rng = Range("A2:C" & Cells(Rows.Count, 1).End(xlUp).Row) '[Sheet1] بدء التعامل مع المصنف الحالي في ورقة العمل With ThisWorkbook.Sheets("Sheet1") 'تحديد رقم صف آخر خلية بها بيانات في العمود الأول LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row 'وضع معادلة دالة البحث في العمود الثاني والحصول على النتيجة من العمود الثاني في المصنف 1 With .Range("B2").Resize(LastRow - 1) .Formula = "=IFERROR(VLOOKUP(A2," & Rng.Address(, , , True) & ",2,False),"""")" .Value = .Value End With 'وضع معادلة دالة البحث في العمود الثالث والحصول على النتيجة من العمود الثالث في المصنف 1 With .Range("C2").Resize(LastRow - 1) .Formula = "=IFERROR(VLOOKUP(A2," & Rng.Address(, , , True) & ",3,False),"""")" .Value = .Value End With End With 'إغلاق المصنف المأخوذ منه البيانات بدون حفظ WBK.Close SaveChanges:=False 'إعادة تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub وبكدا نكون دفعنا غرامة التأخير والحمد لله تقبل تحياتي Import Data From Closed WB Using VLOOKUP YasserKhalil.rar

اخى شوقى والله كل يوم بيظهر عمالقة حتى نقتنع بان العالم العربى بخير اعمالك مميزة يسر الله كل امورك

الاخ/ mahmoud شكرا للتهنئة بالعيد الان كيفية تحويل الارقام من الانجليزية للعربية بالاكسل اكسل 2003 و 2010 تحويل الارقام للعربية.rar