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

بارك الله فيك لا اعرف كيف يتم الشكر لهذا الجود من استاذنا / عبدالله بشير بارك الله في عمرك

جرب التعديل التالي test2.xlsm

شكرا لك اخي 192.168.100.1 192.168.1.1

بارك الله فيك Tutuapp 9Apps

عندي سؤال آخر عند استخدام عمود التاريخ للتحقق هل يقرأه كتنسيف dd/mm/yyyy أم كرقم؟ لأن المتغير عرفناه كرقم تاريخ وليس كتنسيق تاريخ

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

السلام عليكم جرب التعديل التالي Sub sav_PDFall() Dim i As Integer Dim folderPath As String Dim mainSheet As Worksheet Dim tempWorkbook As Workbook Dim firstRun As Boolean Set mainSheet = ThisWorkbook.ActiveSheet folderPath = ThisWorkbook.Path & "\ملاحظةالثانوية 2026" firstRun = True If Dir(folderPath, vbDirectory) = "" Then MkDir folderPath End If Application.ScreenUpdating = False For i = 1 To mainSheet.Range("j3").Value mainSheet.Range("j2") = i If firstRun Then mainSheet.Copy Set tempWorkbook = ActiveWorkbook firstRun = False Else mainSheet.Copy After:=tempWorkbook.Sheets(tempWorkbook.Sheets.Count) End If Next i tempWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=folderPath & "\كشف_جامع_" & mainSheet.Cells(2, 4).Text & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True tempWorkbook.Close SaveChanges:=False Application.ScreenUpdating = True End Sub

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

استاذ بارك الله فيك شكرا استاذنا الفاضل أتمنى لك التوفيق والنجاح

خالص الشكر على الابداع والتميز

سلمت يمينك استاذنا الغالي .. وشكراً جزيلاً لسعة صدرك 🌹🌹

إخواني الأعزاء هذا برنامج يمكن الاستفادة منه في كل مايتعلق بالتعامل مع طلبات الشراء المقدمة للموردين ، ولن أطيل الكلام والشرح ففي قسم المساعدة - HELP بالبرنامج ما يغني عن الشرح وما أريد لفت النظر إليه هو أن كلمة السر للدخول على البرنامج والتعامل مع كل الأوامر المحمية بالبرنامج هي 123 والتي يمكنك تعديلها ، أرجو أن يجد فيه المطلع ما يفيد . مع حبي وتقديري أبو عبدالله PURCHASE ORDER SOFTWARE E01.rar

وعليكم السلام ورحمة الله وبركاته فكرة pdf انه يقوم بانشاء صفحة مؤقتة بها اسماء الموظفين وكل موظف قي ورقة ثم يصدرها الى pdf قم يحذف الورقة عدد الموظفين لديك حوالى 350 موظف بمعنى يتم انشاء حوالى 350 ورقة المقصود مما سبق دكره ان الكود سيأحد بعض الوقت لتنفيذ الامر ويعتمد الامر على مواصفات الجهاز بالنسبة لجهازي تطلب الامر دقيقة ونصف بمواصفات في حدود الجيدة اليك الملف مرتب الفنيين عن شهر يناير 2026 تعديل.xlsm

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

في هذه الحالة يلزم جعل البحث في الاقسام منفصلا بنمذج بحث يخصه هو .. علما انه لن يختلف كثيرا عن الوضع الحالي المرفق بالنسبة للخطأ وظهور name# فسببه هو عدم وجود الحقول في المصدر ضمن الاستعلام دعيني اشرح طريقة البحث في هذا المرفق : 1- عند البحث عن ارقام الكتب يكون مصدر البيانات هي الجداول 2- عند تصفية الاقسام من خلال مربع التحرير يتحول مصدر البيانات الى الاستعلام qrySearch تم اضافة الحقول الناقصة الى الاستعلام تفضلي التعديل بحث في النماذج الفرعية34.rar

السلام عليكم بعض الاجهزة لا تقرأ الـ QR العربي (مو عربي فقط ، وانما ما يقرأ Unicode ، ما يقرأ اي لغة غير الانجليزي/اللاتيني) ، ولا يمكن تعديل هذا الشيء في الجهاز!! فاذا طلبك عمل QR انجليزي فقط ، فتأكد من عدم استخدام الامر eci=24 عند عمل QR : .

وعليكم السلام ورحمة الله وبركاته جرب الكود ويوضع في THISWORKBOOK Private Sub Workbook_Open() Dim ws As Worksheet Application.DisplayFullScreen = True Application.DisplayFormulaBar = False For Each ws In ThisWorkbook.Worksheets ws.Activate With ActiveWindow .DisplayHeadings = False .DisplayGridlines = False End With Next ws End Sub

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

وعليكم السلام ورحمة الله وبركاته جرب الكود حيث قبل التنفيذ، يقوم بحذف أي دوائر سابقة 1الثالث.xlsb

و عليكم السلام ورحمة الله وبركاته __اصناف مشتريات - نسخة2.xlsx

السلام عليكم حقيقة الدحول الى الموقع اصبح بالصدفة قليل ما تجدة يعمل الكود سليم والمشكلة في تنسيق الأرقام قي صفخة table في العمودين b& e اذا اردتها بالأرقام العربية حسب ملفك فقم بتنسيقها الى [$-,201]# وان اردتها بالأرقام الغربية اجعل النتسيق رفم بدون خانات عشرية ملف بتنسيق الارقام العربية [$-,201]# مراقبة ثانوية 2026.xlsm ملف بتنسيق الارقام الغربية مراقبة ثانوية1 2026.xlsm

و عليكم السلام ورحمة الله و بركاته الموضوع سهل جدا من خلال عمل فلترة الموجودة في اكسيل كما هو واضح بالصور. ممكن تستخدم أيا من الملفين واحد بالأكواد و الثاني بالصيغ بس لا يصلح إلا أوفيس 365 أو 2021 فلترة.7z

السلام عليكم ورحمة الله وبركاته اقدم لكم شرح مبسط لطريقة بحث احترافيه في شيت اكسل رابط الفيديو لتحميل ملف العمل https://www.mediafire.com/file/4t7skm26bdj2mhk/salloum.xlsx/file