أبو يوسف النجار

شكرا جزيلا مستر محمد بارك الله فيكم تم بحمد الله

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

السلام عليكم ارجو معرفة كيفية ترتيب البيانات بالشيت المرفق بكود البنون اولا ثم البنات وكود للترتيب البنات اولا ولكم جزيل الشكر ترتيب صف.xlsx

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

تم حذف هذا السطر وهذا السطر يحذف صف خالي من البيانات ثم يعيد الترتيب للطلبة .SortFields.Clear

تظهر رسالة خطأ 438

لدي كود لترتيب الطلبة في شيت معين حسب الاسم والنوع والصف وهو يعمل بأوفيس 2016 وهو 32 بت والويندوز 10 عندي ولكن عند بعض الزملاء لا يعمل وهو كود مهم جدا لبرنامجج مهم وآسف لعدم ارفاق الملف لصعوبة ذلك ولكن الكود مرفق والملف أرجو من الخبراء معرفة السبب فممكن من الكود يظهر السبب الكود Sub ترتيبي() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual On Error Resume Next Prompt = "إذا أردت الإستمرار فانتظر لأن الترتيب يأخذ بعض الوقت " Command_buttons = vbYesNo + VbMsgBoxRt1Reading Title = "هل تريد ترتيب البيانات بعد التغيرات الجديدة ؟؟ " project = MsgBox(Prompt, Command_buttons, Title) If project = vbYes Then ActiveWorkbook.Worksheets("master").Sort.SortFields.Clear ActiveWorkbook.Worksheets("master").Sort.SortFields.Add2 Key:=Range( _ "BV8:BV6053"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("master").Sort.SortFields.Add2 Key:=Range( _ "BT8:BT6053"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ xlSortNormal ActiveWorkbook.Worksheets("master").Sort.SortFields.Add2 Key:=Range( _ "C8:C6053"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _ xlSortNormal With ActiveWorkbook.Worksheets("master").Sort .SetRange Range("B8:BW6053") .Header = xlGuess .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End With Call MsgBox(" تم الترتيب بنجاح ", mBox, "الحمد لله ") Application.ScreenUpdating = False End If End Sub ولكم جزيل الشكر

شكرا جزيلا يا أستاذ محمد

أستاذ / محمد الأوفيس 32 بت واويندوز 64 بت والملفات كانت تعمل بكفاءة على هذا الوضع بالملفات القديمة ملفات xlsb وهى مهمة جدا بالنسبة لي وحجمها كبير نسبيا أما الملفات الجديدة فهى تعمل بامتداد xlsb هل أعيد تثبيت الويندوز والمشكلة بالماكرو طبعا ولك جزيل الشكر

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

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

أستاذ / محمد بارك الله فيكم الكودين ضبطو تمام بالرغم من أني كنت أستخدم كل كود في ملف الكود الأول ليستخدمه العميل لمعرفة سريال اللوحة الأم ويرسله لي لأضعه السريال بالكود الثاني بملف البرنامج والذي سأرسله إليه ليعمل على جهازه فقط ولكن برده حضرتك الأخير واتباع الخطوات الأخيره تم المطلوب على امتداد xlsb بنجاح ولكن لو عندك وقت وسماح أن تشرح لي علاقة الكودين معا أعزكم الله وبارك الله فيكم ولكم جزيل الشكر

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

أستاذ / محمد الخطأ عند حفظ الملف بامتداد xlsb أو أى ملف xlsb محفوظ مسبقا ووبنفس الكود بالطبع وسريال اللوحة الأم للجهاز صحيح الملف يتم غلقه وانتحاره دائما وهذا يعني أنه فيه خطأ ولا يتعرف على السريال بالرغم من أن نفس الكود يعمل عندي على الملف بامتداد .xlsm فإن أمكن لو تكرمت ترفع ملف يعمل عليه الكود بامتداد xlsb ولك جزيل الشكر

السلام عليكم لدي مشكلة يأن كود ربط الملف بسريال اللوحة الأم للجهاز وهو من شرح الأستاذ / عماد غازي والملف يعمل بكفاءة على ملفات الاكسل بامتداد .xlsm ولا يعمل على الملف بامتداد .xlsb فهل هذه المشكلة لها حل والكود لابد من وضع سريال اللوحة الأم لدى المستخدم والكود المستخدم هو التالي بشرط لابد من وضع سريال اللوحة الأم لدى المستخدم في احدى الأماكن 1 أو 2 أو 3 من strMB Private Sub Workbook_Open() Dim strMB As String 'Put Your MotherBoard Serial strMB1 = "HP ProDesk 490 G1 MT, FF004080-EE39-11E3-BFF8-A0D3C13F35B2" strMB2 = "HP Compaq 8500 Elite SFF PC, BFDEF800-AF9A-11E0-0000-2C27D742989F" strMB3 = "HP Compaq 8500 Elite SFF PC, BFDEF800-AF9A-11E0-0000-2C27D742989F" Select Case MBSerialNumber Case strMB1 GoTo 1 Case strMB2 GoTo 1 Case strMB3 GoTo 1 Case Else MsgBox ("Data Security Failure. This Workbook Will Close") ActiveWorkbook.Save ActiveWorkbook.Close End Select 1 End Sub مرفق ملف تعرف من خلاله معلومات عن جهازك بالاكسل ومن ضمن المعلومات سريال اللوحة الأم نرجو الافادة لو أمكن لأن الملف حجمه كبير وإذا تم حفظه بامتداد xlsm سيأخذ حجم أكبر ... ولكم جزيل الشكر سريال اللوحة الأم.xlsm