Ali Mohamed Ali

وعليكم السلام -يمكنك استخدام هذا الكود لحذف جميع صفحات الملف الفارغة Sub RemoveBlankSheets_AllWorkbooks() Dim wb As Workbook Dim sht As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each wb In Application.Workbooks For Each sht In wb.Worksheets If WorksheetFunction.CountA(sht.Cells) = 0 And _ wb.Sheets.Count > 1 Then sht.Delete Next sht Next wb Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub تفضل-فمثلا لو عندك بارتشن D عليك بعمل فولدر داخله وسميه Data او غير كما تشاء في الكود-تفضل وفى الخلية D3 يكون موجود اسم الملف Sub Test() Dim FP As String, FN As String FP = "D:\Data\" FN = Range("D3").Value ActiveWorkbook.SaveAs Filename:=FP & FN & ".xls" End Sub

وعليكم السلام ...... تفضل مستحقات.xlsx

وعليكم السلام-تفضل دمج جميع صفحات الملف فى صفحة واحدة.xlsm

أحسنت أستاذ مجدى بارك الله فيك

وعليكم السلام تفضل لك ما طلبت بيان.xlsm

جزاك الله كل خير وزادك الله من فضله

أحسنت أستاذ مجدى بارك الله فيك

وعليكم السلام كان عليك من البداية استخدام خاصية البحث في المنتدى تفضل https://www.officena.net/ib/topic/50240-برنامج-حضانة/?tab=comments#comment-307830 https://www.officena.net/ib/files/file/259-سجل-قيد-التلاميذ-لجميع-المراحل-رياض-أطفال-ابتدائي-إعدادي/ https://www.officena.net/ib/topic/80536-برنامج-تسجيل-بيانات-لروضة-أطفال-الاصدار-الثاني/

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

اهلا بك في المنتدى عليك برفع الكود داخل ملف

السلام عليكم اخى الكريم-كان عليك من البداية رفع ملف لما تطلب ولكم يمكنك وضع هذا الكود داخل حدث التكست بوكس Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii >= 0) Or (KeyAscii <= 127) = False Then keycode = vbNullString End Sub

تفضل https://www.officena.net/ib/topic/42985-برنامج-الحسابات-العامة-والضرائب-excel-vba/?tab=comments#comment-247636

ملفك من البداية كان ثقيل جدا وربما كان به فيروس ونصحتك بضبط الملف

تفضل مكرر.xlsx

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

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

تفضل تم الحل والإجابة المطلوبة من قبل الأستاذ أبو نور ولاحظ التغيير فى الملف بنفسك إيصال قبض وسند صرف.xlsm

وعليكم السلام أين الملف ؟!!!!!!!!!!!!!!

لا يمكن افضل من هذا -فكان عليك من البداية ضبط الملف قبل رفعه بالمشاركة نظام البصمة2.xlsx

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

بارك الله فيك أستاذ مجدى وجزاك الله كل خير

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

أخى الكريم MAAAS ,معادلة الأستاذ سليم رائعة وتعمل بكل دقة له منا كل المحبة والإحترام يمكن قد حدث معك مشكلة وخطأعند نقل المعادلة من ملف الى اخر ,فهذه معادلة مصفوفة وليس معادلة عادية اى لابد بعد كتابة المعادلة الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات فاذا كان هناك مشكلة أخرى غير هذا تحدث معك فعليك برفع صورة او الملف الذى به المشكلة لمعاينة المشكلة والعمل على حلها

أحسنت أستاذ سليم بارك الله فيك

وعليكم السلام-تفضل ربط اكثر من عمود بقاعدة بيانات.xlsx