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

بسم الرحمن الرحمن الرحيم السلام عليكم ورحمة الله وبركاته حاله من الواقع العملى-- بالاكسيل بافتراض ان لدى جدول ديون العملاء المستحقه وهذه الديون قد تصل الى 5 سنوات كما فى مجال العقارات .وتوفر لدى جدول ببيانات العملاء والاقساط كما فى الجدول والمطلوب منك هو استخراج بيانات اقساط شهر مايو لعام 2015 الدوال المستخدمه فى الحل دالة : MONTH دالة : YEAR دالة :IF دالة : SMALL دالة : ROW دالة: MATCH دالة : INDEX دالة:IFERROR المعادلة المستخدمه (معادلة صفيف CSE ) { =IFERROR(INDEX(B$10:B$24;MATCH(SMALL(IF((MONTH($C$10:$C$24)=$F$10)*(YEAR($C$10:$C$24)=$G$10);ROW($C$10:$C$24);"");ROW($A1));ROW($C$10:$C$24);0));"")} معادله.rar

بعد إذن أخى" سليم " وجزاكم الله على كل مجهودكم التى تبذلوة فى المنتدى ولأخى السائل أستخدم هذه الصيغة بفرض أن البيانات فى الخلية " A1 " إستخدم هذه الصيغة وأسحبها لأسفل ستحقق المطلوب بإذن الله =ROUNDDOWN(A1/0.5,0)*0.5 تقبلوا تحياتى تقريب رقم.rar

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

الرائعون كالأحجار الكريمة لا نصنعهم بل نبحث عنهم

دققت النظر في ملفك المرفق وأرفقت لك الحل التالي عله يكون المطلوب متابعة.rar

أسعد الله أوقاتكم بكل خير فيما يلي الدرس الثاني والثلاثون من الدورة المميزة مهارات اكسيل 2013 أتمنى لكم مشاهدة ممتعة ومفيدة استخدام دالة VLOOKUP المتداخلة لانشاء عمليات بحث معقدة انتظرونا غداً في الدرس الثالث و الثلاثين ( انشاء واستخدام الجداول الرسمية Formal Tables والعمليات المختلفة عليها) لمشاهدة باقي دروس دورة الاكسيل 2013 المنشورة يرجى فتح ا لرابط التالي: دمتم بخير أخوكم م/نضال الشامي Google+ Twitter

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اخواني الأعزاء هذه باقة من مواضيع خاصة ببرامج الأكسس والتي ترتبط بباقي حزمة الأوفيس أو منتجات ميكروسوف أو أي برنامج يتم التعامل معه عن طريق الأكسس مثل : الوورد MSWord الباوربوينت MSPowerPoint الاكسل MSExcel الأوتلوك MSOutlook أس كيوال SQL الفيجوال بيسك Visual Basic... الخ من باقي الحزمة أو البرامج الأخرى أولا / مواضيع تتناول برنامح الباوربوينت : أعرض سجلات الأكسس بواسطة الباوربوينت PowerPoint 2003 يربط مع الاكسس ثانيا / مواضيع تتناول برنامح الاكسل : نقل البيانات من اكسيل الى اكسس استدعاء البيانات من الاكسيس الي الاكسيل استيراد بيانات من ال Excel تحويل بيانات Excel إلى قاعدة بيانات Access ربط ملفات الDBF مع الاكسل كيفية تحديث الربط بين الاكسس والاكسل كيف افتح ملف اكسل داخل الأكسس كيفية عمل ربط مع ملف اكسيل/Textمتغير الاسم كيف أصدر بيانات جدول إلى الأكسل ؟ "مثال" لإستيراد أوراق أكسيل إلى أكسيس طريقة استيراد البيانات من ملف اكسل استفسار عن الاستيراد استيراد من الأكسيل للأكسيس الإستيراد من أكسل كيف نقل بيانات من اكسل الى اكسس كيف اربط مايكروسوفت اكسل مع آكسس استيراد بيانات من ال Excel ربط ملفات الDBF مع الاكسل ثالثا / مواضيع تتناول برنامح الوورد : ربط التاريخ في الآكسس بالوورد كيف اطبع ملف وورد بوساطة زر امر في نموذج اكسس نسخ سجلات مختاره من نموذج الى الوورد مشكلة في تصدير التقرير إلى الوورد كيف أصمم التقرير في الوورد ومن ثم نقله الى الاكسس؟ كيفية الدمج بين الوورد والاكسس؟ استفسار عن طريقة طباعة سجل بـ WORD هدية لأعضاء المنتدى دالات الاكسس بملف وورد ماهي طريقة الدمج بين الوورد والأكسس ربط ملفات وورد Word مع أكسس فتح ملف معين(word)عن طريق الاكسيس مع التصدير اليه هل يمكن جعل ملفات Wordوpdf ضمن قاعدة البيانات استيراد ملف وورد كيف أفتح ملف على الوورد من داخل الأكسيس ربط نموذج وورد مع بيانات أكسس كيف اطبع ملف وورد بوساطة زر امر في نموذج اكسس جلب البيانات من ملف وورد رابعا / مواضيع تتناول برنامح الأوتلوك : التحكم فى الاوتلوك 2003 من الاكسيس 2003 خامسا / مواضيع تتناول برنامح الـSQL : كيفية ربط قاعدة بيانات اكسيس بأس كيو ال SQL برنامج Access To MySQL برنامج Advanced-SQL-Code-Collection تحويل قاعدة اكسيس الى MYSQL مثال علي إستخدام لغة ADO داخل أكسيس كتاب SQL for Microsoft Access اصدار 2005 برنامج تحويل قاعدة بيانات الأكسس إلى my sql ؟ كيفية ربط قاعدة بيانات اكسيس بأس كيو ال SQL سادسا / مواضيع تتناول برنامح الريجستري : كيفية التعامل مع الـ Registry ريجستري - كيفية التعامل مع الـ Registry ريجستري - تسجيلات الويندوز - Windows Registry سابعا/ مواضيع تتناول برنامح الفيجوال بيسك : طريقة ربط الأكسس بالفيجول ربط قاعدة البيانات أكسس بالفيجوال بيسك؟؟ طلب فى فيجوال بيسيك مشروع Visual Basic قاعدة البيانات معطوب مشكلة بمشروع VB +Access عند التشغيل مشروع لتحويل اكسس الى فيجوال اوامر الفيجول علي مستوي الاكسيس والاكسيل نقل البيانات من الفيجوال بيسك.نت إلى الأكسس؟ لمهتمين بالفيجوال - برنامجين مع الكود ثامنا/ مواضيع تتناول برنامح الاوراكيل : كيف اربط بين القاعدة وجداول الاوراكل ADO قاعدة بيانات بالاكسيس اريد احولها الى اولاراكل تاسعا/ مواضيع تتناول برنامح النوت باد أو الملفات النصية البسيطة : استيراد ملف نصي تحميل معلومات من ملف تيكستTEXT وما يستجد من مواضيع ستدرج تباعاً بإذن الله

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكني اردت ان اجعل المواضيع الاساسية في عمل اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ( اعانني الله علي اكمالها كما ينبغي ) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء وفي الدرس القادم سنتعرف علي بعض الاكواد المعاونة لشاشة الادخال او بمعني ادق اكواد نحتاجها مع شاشة الادخال مثل (تنسيق التكست بوكس ، الترقيم التلقائي في تكست معين ، تنسيق التاريخ في التكست بوكس .... ) واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 3 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال 1.rar فيديو 1 .. طريقة عمل شاشة ادخال 1.rar الملف الفيديو الثاني والثالث في المشاركة التالية حيث لم يمكنني اضافتهم هنا

http://www.samysoft.net/fmm/fimnew/basmla/24235235.gif أسعد الله أوقاتكم بكل خير فيما يلي الدرس الواحد والثلاثون من الدورة المميزة مهارات اكسيل 2013 أتمنى لكم مشاهدة ممتعة ومفيدة دالة البحث VLOOKUP الجزء الثالث استخدام دالة VLOOKUP عبر أكثر من ورقة عمل ويتخلل الدرس تصحيح الأخطاء الناتجة عن دالة VLOOKUP انتظرونا غداً في الجزء الرابع من دالة VLOOKUP (استخدام دالة VLOOKUP المتداخلة لانشاء عمليات بحث معقدة ) لمشاهدة باقي دروس دورة الاكسيل 2013 المنشورة يرجى فتح ا لرابط التالي: دمتم بخير أخوكم م/نضال الشامي Google+ Twitter

أحبائي المهتمين في منتدى الإكسيل.. أرفق إليكم طريقة تشغيل ملف اليوتيوب عن طريق الفورم الشرح في رابط الفيديو تشغيل اليوتيوب.rar

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

أخي وحبيبي في الله وأستاذنا جمال عبد السميع عوداً حميداً .. فينك يا كبير .. ليك وحشة والله ، يا ترى ايه أخبارك وغايب عننا ليه ؟ تقبل ودي وحبي واحترامي وتحياتي :fff:

بارك الله فيك أخي الحبيب ياسر هذا في وجهة نظري الحل لمشكلة اللغة العربية وإن شاء الله يفي بالغرض

أخى الفاضل قم بتغيير إعدادات اللغة فى الويندوز إدخل على Control Panel ثم Change Keyboards or other input methods ثم الإختيار الأخير administrative ثم Change System Locae ثم إختار اللغة العربية وأعد تشغيل الجهاز وجرب

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

أخي ياسر خليل أبو البراء جعل الله لك من اسمك نصيباً فيسر لك أمورك و جعل لك أفضل الأخلاء و جعل لك براءة من النار جزاكم الله خيراً أحبكم في الله أخي

الاستاذ الدكتور ياسر خليل هل بالامكان تطبيق عكس الفكرة بالكود أيضا وعلى نفس الملف بمعنى عمل شيتين أخرين الأول به سجل والثانى به الفورم وعند إستدعاء اى رقم يمتلىء الفورم ببيانات ذلك الرقم الرجاء التفضل وبالكود وبدون معادلة vlookup

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

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

والله ليك وحشة يا ريفي ايه أخبارك يا كبير ... مشكور على الموضوع المتميز كعادتك دائماً تقبل تحياتي

أخي الكريم أنا لا أفهم لغة المحاسبة على الإطلاق ..وضح ورقة العمل المطلوب العمل عليها ، أعتقد أنها ورقة العمل "كشف حساب" وأعتقد أنك تريد ترحيل البيانات إلى هذه الورقة ؟ لكن من أي ورقة تريد الترحيل ؟؟ هل الترحيل من ورقة واحدة أم من عدة أوراق ؟ يرجى الإفادة يا صاحب السعادة

Forms![main form name]![subform control name].Form![text] جرب دا طبعا مع تغيير المسميات

مشكور أخي الحبيب أبو حنين على مرورك العطر وعلى كلماتك الطيبة وجزيت خيراً ولك بمثل ما دعوت

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

استعمل هذه المعادلة (على فرض ان الارقام في العامود الاول ابتداءً من A 1) =ROUND(A1,2) و اسحب نزولاً

السلام عليكم مرحبا اخي الكود فعلا هيحمي كل أوراق ملف الإكسل مرة واحدة كما أشار الأستاذ ياسر وممكن بدون أكود من تبويب Review تختار Protect Sheet هتظهر نافذه هتضع علامه في الخيارات التي ترغب في استثنائها من الحماية ثم تكتب كلمة السر وتضغط اوكي وتعيد إدخال كلمة السر مرة أخرى وسيتم حماية الورقة ويمكن إعادة الكره في الأوراق المرغوب حمايتها أو كما ذكرنا استخدام الكود هيحمي كل الأوراق مرة واحدة والتالي كودين كود للحماية وكود لفك الحماية عن طريق أزرار تعملها في أي شيت يعجبك كود الحماية والباسورد مكتوبه في الكود 123 يمكنك تغيرها زي ما تحب Sub protectsht() For Each MySheet In ActiveWorkbook.Sheets MySheet.Protect _ Password:="123", _ DrawingObjects:=True, _ Contents:=True, _ Scenarios:=True, _ UserInterfaceOnly:=True Next MySheet End Sub كود فك الحماية Sub unprotectsht() For Each MySheet In ActiveWorkbook.Sheets MySheet.Unprotect _ Password:="123" Next MySheet End Sub

دائما انت مبدع ونحن في انتظار المفاجئة بالموضوع الجديد وهو الشاشة باللمس

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

تفضل اخينا وائل ولاحظ :الفكرة تمت بانشاء اجراء mm يستقبل قيم الكود حسب خاصية tag لزر الامر ! بمعنى مثلا تريد اضافة زر امر للمانجو .. اتبع الخطوات التالية : 1. تنشئ زر الامر طبيعي وتغير العنوان زي ماتحب 2. تذهب لخاصية tag لزر الامر وتكتب الكود للصنف وهنا 1003 نقصد المانجو ( طبعا هذا مش معقول انه لكل زر اكتب رقم لكود ولكن هذا السيناريو تبعك ولكن نفذته بطريقة تسهل العمل ) وللطريقة الافضل علينا الانتظار حتى اجهز الفكرة وبموضوع جديد وعند فرصة الوقت ان شاء الله ! 3. تذهب لحدث عند النقر وتلصق الجملة التالية وهي عبارة عن مناداة الاجراء وتمرير قيمة tag للزر الحالي Call mm(Me.ActiveControl.Tag) طبعا اصبح تكرار العمل لكل صنف اسهل بكثير من ماكنت انت حتعمله من تكرار في الاكواد وتعديلات داخل الاكواد ! بالتوفيق TT.rar

الأخ الكريم الطاير إذا لم يكن يعجبك الحل بالتنسيق الشرطي (رغم أنه أفضل في هذه الحالة) إليك الحل بالأكواد عله ينال إعجابك Sub HighlightBetweenTwoDates() 'يقوم الكود بتظليل الخلايا طبقاً لتاريخين : تاريخ بداية وتاريخ نهاية '------------------------------------ Dim R As Range 'إعلان المتغير من النوع ثابت ليمثل بداية التاريخ المراد التعامل معه Const myDate As Date = #6/1/2015# 'بدء التعامل مع النطاق المستخدم بدايةً من الصف الخامس لنهاية الصفوف المستخدمة With Intersect(ActiveSheet.UsedRange, Rows("5:" & Rows.Count)) 'إزالة خلفية الألوان بدايةً من العمود السابع وحتى آخر عمود في النطاق المستخدم .Columns("G").Resize(, .Columns.Count).Interior.ColorIndex = xlNone 'حلقة تكرارية لكل خلية من خلايا العمود الخامس For Each R In .Columns("E").Cells 'إذا كانت الخلية داخل الحلقة التكرارية عبارة عن تاريخ وكذلك الخلية المجاورة لها في العمود السادس If (IsDate(R.Value)) * (IsDate(R(, 2).Value)) Then 'R(, DateDiff("D", myDate, R.Value) + 3) 'يمثل هذا الجزء بداية النطاق المراد تظليله ، ويتم حساب فرق الأيام بين تاريخ الخلية والتاريخ الثابت مضافاً إليه 3 ليبدأ من العمود السابع 'Resize(, DateDiff("D", R.Value, R(, 2).Value) + 1) 'يمثل هذا الجزء الامتداد لنقطة البداية بحساب فرق الأيام بين التاريخ في العمود السادس والتاريخ في العمود الخامس R(, DateDiff("D", myDate, R.Value) + 3).Resize(, DateDiff("D", R.Value, R(, 2).Value) + 1).Interior.ColorIndex = 14 Else 'سطر للخروج من الحلقة التكرارية Exit For End If 'الانتقال للخلية التالية في العمود الخامس Next End With End Sub تقبل تحياتي Highlight Vacation Periods.rar

حسب معلوماتي لا يوجد حل للأسف

جرب هذا الشيء m.rar

عزيزي انظر التنسيق الشرطي ! بالتوفيق New Microsoft Access قاعدة بيانات.rar

يمكنك ادراج مربعات نصوص بالتقرير على حسب ما تريد جمعه وبمصدر عنصر التحكم اضف الكود التالى =Sum([اسم الحقل المراد جمعه])

أخي الفاضل ياسين أبو وسام كان من المفترض طبقاً للتوجيهات إرفاق الملف الخاص بالكود عموماً أنا كنت قد جهزت الملف بالفعل ، وفي انتظار موضوعك الجديد (اعذرني للتقيد بالتوجيهات) إليك الكود بعد تعديلات جوهرية فيه ليتناسب مع طلبك الجديد Sub TransferData() Dim WS As Worksheet, SH As Worksheet Dim X As Long, I As Long, Arr Set WS = Sheets("ترحيل"): Set SH = Sheets("MP LIST") X = SH.Cells(Rows.Count, 2).End(3).Row + 1 Application.ScreenUpdating = False If Not SH.Range("B:B").Find(WS.Range("G9"), , , xlWhole, , False) Is Nothing Then MsgBox "تم إدراج رقم الموظف من قبل", vbInformation: Exit Sub Else Arr = Array("G9", "G10", "G11", "G14", "G15", "G16", "G17", "G18", "G19", "G20", "G22", "G24", "G25", "G26", "G27", "G28", _ "I28", "G30", "", "", "", "G32", "", "", "", "G13", "I13", "G44", "H44", "I44", "G47", "H47", "I47", "", "G34", _ "G35", "G36", "G37", "G38", "G39", "G40", "J41", "G49") For I = LBound(Arr) To UBound(Arr) If Arr(I) <> "" Then Arr(I) = WS.Range(Arr(I)).Value If IsEmpty(Arr(I)) Then MsgBox "البيانات غير كاملة يرجى إكمال كافة الحقول": Exit Sub Next I With SH .Cells(X, 1) = .Cells(X, 1).Row - 2 .Cells(X, 2).Resize(, UBound(Arr) + 1) = Arr End With 'WS.Range("G9:J11,G13:H13,I13:J13,G14:J20,G22:J22,G24:J27,G28:J28,G30:J30,G32:J32,G34:J40,G44:J44,G47:J47,G49:J49").ClearContents MsgBox "تم الترحيل بنجاح", vbInformation End If Application.ScreenUpdating = True End Sub أرجو أن يكون المطلوب بالنسبة لهذا السطر 'WS.Range("G9:J11,G13:H13,I13:J13,G14:J20,G22:J22,G24:J27,G28:J28,G30:J30,G32:J32,G34:J40,G44:J44,G47:J47,G49:J49").ClearContents خاص بمسح البيانات بعد الترحيل ..تم وضع تعليق لإلغاء تنفيذه لتجربة الكود قم بتغيير رقم الموظف لتجربة الكود .. تقبل تحياتي Transfer Data Using Arrays YasserKhalil.rar

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

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

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

أخي الكريم ياسين ابو وسام إليك الملف التالي عله يفي بالغرض Sub TransferData() Dim WS As Worksheet, SH As Worksheet Dim X As Long Set WS = Sheets("ترحيل"): Set SH = Sheets("MP LIST") X = SH.Cells(Rows.Count, 2).End(3).Row + 1 Application.ScreenUpdating = False With SH .Cells(X, 1) = .Cells(X, 1).Row - 2 .Cells(X, 2).Resize(, 3) = Application.Transpose(WS.Range("G9").Resize(3)) .Cells(X, 5).Resize(, 7) = Application.Transpose(WS.Range("G14").Resize(7)) .Cells(X, 12) = WS.Range("G22") .Cells(X, 13).Resize(, 5) = Application.Transpose(WS.Range("G24").Resize(5)) .Cells(X, 18) = WS.Range("I28") .Cells(X, 19) = WS.Range("G30") .Cells(X, 23) = WS.Range("G32") .Cells(X, 27) = WS.Range("G13") .Cells(X, 28) = WS.Range("I13") .Cells(X, 29) = WS.Range("G44") .Cells(X, 30) = WS.Range("H44") .Cells(X, 31) = WS.Range("I44") .Cells(X, 32) = WS.Range("G47") .Cells(X, 33) = WS.Range("H47") .Cells(X, 34) = WS.Range("I47") .Cells(X, 36).Resize(, 7) = Application.Transpose(WS.Range("G34").Resize(7)) .Cells(X, 43) = WS.Range("J41") .Cells(X, 44) = WS.Range("G49") End With Application.ScreenUpdating = True End Sub تقبل تحياتي Draft Transfer Data.rar

ارفق ملفك للإطلاع عليه .. قم بحذف أية بيانات قد تكون حساسة واستبدلها بأية بيانات مثلا الاسماء خليها اسم 1 ، اسم 2 وهكذا

السلام عليكم و رحمة الله و بركاته .. khezzaniprg.rar

لا تيأس .. العلم يؤخذ بالصبر والمثابرة

جميل جدا با برنس تنسيق متقاطع.rar

بارك الله فيك اخي الفاضل علي حسن ثناؤك. وهذا من فضل ربي ثم هذا المنتدي الرائع. وهذا يا اخي طلبك بأذن الله. 1111_4.rar

انقر Enter بعد ادخال كلمة المرور تم تخصيص المداخل الوارد.rar

اخي العزيز يمكنك اظهار قيمة مربع النص وذلك بالاشارة الى مسار مربع النص في التقرير كما يلي : - اذا افترضنا ان النموذج اسمه Form1 ومربع النص في النموذج اسمه Text1 - اذهب الى مربع النص في التقرير وفي مصدر البيانات لهذا العنصر اكتب الجملة =Forms!Form1!Text1 - ملاحظة هامة لاظهار البيانات يجب فتح التقرير اثناء ما يكون النموذج مفتوح. تحياتي,,,

تفضل اخوي حل مبسط يمكن تطبيقه على الفورمز كذالك مع تعديل الماكرو OpenReport.zip

أخي الكريم/ فيصل الحربي أنظر إلى مشاركتي أعلاه ، فقد أستبدلت الملف بالوين رار كذلك أرفق ملف ثالث لم أستطع إرفاقه في السابق. والله الموفق . ACCESS_PROPERTY.zip