Ali Mohamed Ali

وعليكم السلام اخى الكريم اهلا بك فى المنتدى تفضل الملف بدون حماية لتحليل الاختبارات للمرحلة المتوسطة والثانوية.xls

بعد اذن استاذنا عماد وذلك بكتابة السطر الأول داخل الخلية ثم الضغط على Alt+Enter وكتابة السطر الثانى جزاك الله كل خير

وذلك بجعل التنسيق كما بالصورة بارك الله فيك

لو ممكن رفع ملفك لتدارك الخطأ الذى يحدث معك ومحاولة حله ان شاء الله بارك الله فيك وهل قمت بعمل الفورم وتسمية صفحة من الملف بإسم Main أم لا ؟

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

تفضل كميات1.xlsx

اهلا بك اخى الكريم فى المنتدى تفضل هذا الملف لعله يفيدك تعبئة الكومبوبوكس بأسماء أوراق العمل Fill ComboBox With Sheets Names .xlsm

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

يمكنك فعل هذا أولا بدون اكواد بتتبع الشرح فى هذا الرابط : https://academy.hsoub.com/apps/productivity/office/microsoft-excel/حماية-ملفات-microsoft-excel-من-التعديل-بكلمات-سر-r62/ او بوضع هذا الكود لحماية كل اوراق العمل Sub Protect() Dim ws As Worksheet Dim pwd As String pwd = "" ' Put your password here For Each ws In Worksheets ws.Protect Password:=123, UserInterfaceOnly:=True Next ws End Sub وكود اخر لفك الحماية Sub UnProtect() Dim ws As Worksheet Dim pwd As String pwd = "" ' Put your password here For Each ws In Worksheets ws.UnProtect Password:=123 Next ws End Sub بارك الله فيك

تفضل لك ما طلبت عذرا كميات1.xlsx

تفضل كميات1.xlsx

أهلا بك اخ كريم فى المنتدى وان شاء الله بالتوفيق تفضل لعله يكون مفيد بالنسبة لك https://www.officena.net/ib/topic/72392-افضل-برنامج-صيدليات-فارماكير/?tab=comments#comment-467904

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

تفضل 4.xlsm

يمكنك وضع هذا الكود فى موديول جديد وتحديد به مكان واسم الملف المراد فتحه واستدعائه Sub Open_ExistingWorkbook() Workbooks.Open "C:\WorkbookName.xls" End Sub

تفضل انظر الى الصورة

تفضل الكود يعمل تمام ولكن الملف كبير جدا فتم رفعه على موقع خارجى http://www.mediafire.com/file/g683zj59dqpv13x/الشريطيه+2018م.xlsm

تمام كود استاذنا الكبير سليم يفى بالغرض جربه بارك الله فيك

كلمة السر 1

وعليكم السلام تفضل اخى الكريم دمج رقم مع تاريخ.xlsx

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

عليك بوضع هذا السطر داخل الكود Application.ScreenUpdating = False

اهلا بك فى المنتدى تفضل الفرق بين تاريخين هجرى.xlsm

ممتاز استاذ ابراهيم بارك الله فيك

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