احمد 505

شكراً جزيلا أبو أحمد بارك الله فيك تمت العملية بنجاح

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

السلام عليكم ورحمة الله وبركاته الملف المرفق ساعدني فيه الاستاذ عبدالله بشير والاستاذ حجازي مشكورين والملف مكون من ورقة اكسل فيها مسميين الرئيسية تلقائي ولكن فضلاً أريد بعض التعديلات حيث تكون الارقام بالعربي والتواريخ هجري عربي في الورقة الرئيسية اريد يكون الناريخ هجري بنفس صيغة الخلية E من اليمين الى اليسار مثال 1446/08/25 وتكون الارقام بالعربي والورقة تلقائي أريد أي رقم في التكست بوكس يكون عربي أريد أي تاريخ في التكست بوكس يكون هجري وعربي مثال 1446/08/25 وتكون الارقام بالعربي طلب تحويل ارقام التكست بوكس الى عربي.xlsb

الاساتذة الكرام السلام عليكم ورحمة الله وبركاته عذراً واجهت مشكلة أن الأرقام التي بالتكست بكس تتحول جميعها الى الإنجليزي وأنا أرغب ببعضها عربي والبعض بالإنجليزي فماهو الحل بارك الله فيكم تبادل معلوات ورقتين(2) (2).xlsb

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

الاستاذ عبدالله بشير اشكرك على المجهود الجميل والملف يعتمد على الاكواد ولكن لايزال عندي المشكلة في خانة رقم الموضف ليست في تكست بوكس مثل الاسم والتاريخ بل هو موجود في الخليتين B + A اريد الرقم مثل باقي المربعات ليسهل عليه الوزن على الفاتورة الاصلية اشكرك

أشكرك الاستاذ عبدالله بشير عبدالله سيتم تجربة الملف مع الشكر والتقدير الاستاذ hegazee اشكر لك مجهودك استاذي الكريم ولكن 1- الملف الاخير رقم (2) لم استطيع تنزيله 2- ارجوا تعديل خانة الرقم الى تكست بوكس وليس على خلية الاكسل مباشرة اذا امكن

اشكرك اخي حجازي على الرد لكن عندما انزل الملف واغير الرقم 12 الى اي رقم اخر المعادلات لا تعمل يعطيني NAME#

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

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

السلام عليكم ورحمة الله وبركاته اساتذتي الكرام ارجوا الاطلاع على المرفق وعمل اخفاء لكلمة DUE اخفاء كلمة DUE.xlsx

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

السلام عليكم ورحمة الله وبركاته الأساتذة الكرام قمت بإضافة أكواد على module 3 وعند الإنتهاء ظهرت لي رسالة انه فيه كمية كبيرة من الأكواد ارجوا من الله ثم منكم النظر يا احبايبي في هذه المشكلة. اشكركم NEW 1.rar

أشكرك أستاذ علي فعلا هي المطلوب

السلام عليكم ورحمة الله وبركاته فضلا اريد تعديل على المعادلة هذة لحساب عدد الأيام بين تاريخين المطلوب في حال حذفت تاريخ احد العمودين (A) او (B) أريد يكون العمود (C) فارغاً المشكلة اذا حذفت تاريخ العمود (A) النتيجة (ارقام غريبة) في العمود (C) واذا حذفت تاريخ العمود (B) النتيجة (!NUM#) في العمود (C) وشكرا .... تـــم تعديل رفع الملف بدون ضغط , من فضلك ممنوع رفع الملف مضغوط طالما حجمه صغير وذلك تجنباً لإهدار وقت الأساتذة ‫معادلة حساب تاريخين - نسخة.xls

الاستاذ سليم الملف كبير جدا ولو اردت رفعة يجب احذ شيتات كيرة ومربوطة بأكواد ممكن ما عاد تشتغل المطلوب النسخ السطر السادس الي يبدا بـ (ورقة 60) ارجوا يبدا النسخ من a وليس من e تم ينسخ من e الى amr واللصق السطر السابع الي يبدا بـ (ALLINFO) يبدا اللصق من a ويترك d + c تم يلصق من e الى amr شكرا لتجاوبكم أستاذي الكريم Private Sub CommandButton2_Click() ir = TextBox1.Text yr = TextBox2.Text Application.ScreenUpdating = False ALLINFO.Unprotect "0" .Range("e" & ir & ":amr" & ir).Copyورقة 60 ALLINFO.Range("e" & yr & ":amr" & yr).PasteSpecial Application.CutCopyMode = False .Range("a" & ir & ":amr" & ir).Deleteورقة 60 Application.ScreenUpdating = True ALLINFO.Protect "0" 64 "تم الاسترجاع", MsgBox UserForm2.Hide end sub

السلام عليكم أرجوا التعديل على الكود هذا يا كرام الكود الان يلصق من العمود e الى amr المطلوب يبدا اللصق من a ويترك d + c تم يلصق من e الى amr Private Sub CommandButton2_Click() ir = TextBox1.Text yr = TextBox2.Text Application.ScreenUpdating = False ALLINFO.Unprotect "0" æÑÞÉ60.Range("e" & ir & ":amr" & ir).Copy ALLINFO.Range("e" & yr & ":amr" & yr).PasteSpecial Application.CutCopyMode = False æÑÞÉ60.Range("a" & ir & ":amr" & ir).Delete Application.ScreenUpdating = True ALLINFO.Protect "0" MsgBox "Êã ÇáÇÓÊÑÌÇÚ", 64 UserForm2.Hide End Sub

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

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

السلام عليكم ورحمة الله وبركاته الرجاء منكم احبتي نقل يوزر فورم بالكود تبعه من ورقة تفريغ واسترجاع الى ورقة نسخة المطلوب من ورقة تفريغ واسترجاع 1- نذهب الى ALL-INFO ثم ننقل ايقونة تفريغ بكودها الى ALLINFO في ورقة نسخة بجانب ايقونة تحديث 2- نذهب الى REMOVED ثم ننقل ايقونة استرجاع البيانات بكودها الى إزالة في ورقة نسخة وشكرا تفريغ واسترجاع 1.rar نسخة.rar

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

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

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

السلام عليكم ورحمة الله وبركاته اساتذتي الكرام تم سحب المعادلة IF(ALLINFO!A2=0;"";ALLINFO!A2) من الصف الثاني الى الأخير وأثناء العمل والتعديلات تم حذف محمد + عمر مصطفى 29 + مهنة علي بوهجي المطلوب هل من طريقة أو معادلة بحيث أعيد ترتيب المعادلات من دون ان اسحب الصفوف من جديد لان الجدول متداخل ترقيم معادلة.xlsx

اشكرك استاذ سليم على التوضيح تم التطبيق General"";[=0] ونجحت المهمة اشكرك