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

وعليكم السلام ورحمة الله و بركاته تفضل هذا الكود بالمعادلات الدالة VLookup تفي بالغرض VLOOKUP($A11,بيانات!$B$11:$T$150,2,FALSE) ضبط الزر كما في الصورة ترحيل بيانات.zip

وعليكم السلام ورحمة الله و بركاته مرحبا أحمد جرب المرفق ترحيل بيانات.zip

بارك الله فيك . المنتدى يتهلل فرحا بمجرد شعوره بوجودك بارك الله فيك وفى ذريتك الى يوم الدين

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

هل هذا يفي بالغرض؟؟؟ ActiveCell.FormulaR1C1 = Format("=IF(R[0]C15<>"""",R[0]C15+R[0]C16,"""")", "yyyy/dd/mm")

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

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

اخى شاهد المرفق saa.rar

يتم نقل الموضوع لقسم اعلانات الأعضاء حيث أن صاحب الطلب يريد برنامج بمقابل مادي وليس مجاناً برجاء مراعاة ذلك فيما بعد التزاما بقواعد المشاركات ====== الإدارة ======

الملف فى المرفقات بالتوفيق ان شاء الله الملاحظين.rar

أين أنت يا ( كن ذا تصل الى ) من المغربيه وانا فى حاله من والآن أشعر بـ لدرجة أنى عايز اوعى حضرتك تكون ألف مليون عايز أعرف بتاع اللغز ونقولك

ما شاء الله عليكم فعلا عباقرة - زادكم الله من علمه اتقدم بالشكر لكل من : الاستاذ الغالي : ابو تراب الاستاذ الغالي : أبو محمد عباس الاستاذ الغالي : سليم حاصبيا الاستاذ الغالي : YasserKhalil

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

السلام عليكم الشكر واصل للاخ ابو تراب............ حفظه الله وائراءا للموضوع ممكن استخدام هذا الكود التالي بدون تحديد اسماء للبوكس شيك ولا للخلايا تستدل بالخلايا بموضع الشيك بوكس Sub kh_UpdateBoxes() Dim tx As String On Error Resume Next With Sheet1.Shapes(Application.Caller) If .ControlFormat.Value = 1 Then tx = "*" Else tx = "" .TopLeftCell.Offset(1, 0).Value = tx End With On Error GoTo 0 End Sub المرفق 2010 تشيك بوكس.rar

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

اخى الحبيب على حسب ما فهمت تفضل المرفق قائمة منسدلة.rar

السلام عليكم بعد اذن استاذنا ابو عيد تفضل المرفق Book1.rar

يتم ربط جدول بجدول آخر على نفس المستند أو في مستند آخر فاي تغيير للبيانات في الجدول الأول يتم تتغير البيانات نفسها في الجدول المربوط بهذا الجدول أوتوماتيكيا. ولعمل ذلك ننسخ الجدول الاول ثم عن طريق زر الامر "لصق" ننفر على زر لصق خاص وفي مربع الحوار ـ لصق خاص ــ نحدد زر الخيار ( لصق الارتباط ) ثم موافق . ملاحظة : تغيير البيانات أو تعديلها تكون على الجدول الرئيسي يتبعها نفس التغيير والتعديل على جدول أو أكثر ( المنسوخ ) مربوط / مربوطين بالجدول الرئيسي. والسلام عليكم ورحمة الله وبركاته

تفضل اخي العزيز تعديل عالسريع تحياتي,,, Sample.rar

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

الأخ : RHOMA إذا طلب المساواة لا ينفع في تسوية الأسطر ، فأرجو تجربة التالي : 1- اضغط الزر الذي يظهر لك علامات الفقرات على الشاشة ، فكل سطر تظهر فيه هذه العلامة فمعناه أنه هذا السطر يعتبر فقرة كاملة ، فلا يمكن أن تعدل عن طريق المساواة . وإذا أردت تعديله فاسحب إليه الكلام الذي يليه ليشكل فقرة واحدة ، ثم اطلب المساواة لهذه الفقرة فتتساوى . المقصود أن الخلل قد يكون من الكاتب ، لأنه جعل كل سطر بمثابة فقرة مستقلة ، وعليك تعديل ذلك يدوياً ليجعل الكلام المترابط فقرة واحدة ، ومن ثم اطلب المساواة . وشكراً .

إذا كنت تقصد تريده متساوية من الجانبين فاختر ذلك من التنسيق. وإذا في سطر تريده يكتمل للأخير إضغط shift+enter