أحمد يوسف

وعليكم السلام-تفضل 1مرتبات.xlsx

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

وعليكم السلام - تفضل

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

وعليكم السلام دائماً وأبداً لابد من احتواء اى مشاركة على ملف يدعمها والا ستكون المشاركة ناقصة وغير كاملة ونبهنا كثير جداً على هذا الأمر ... على كل حال يمكنك استخدام هذا الكود Sub StopDeleteRowCols() Dim xBarControl As CommandBarControl For Each xBarControl In Application.CommandBars.FindControls(ID:=293) xBarControl.Enabled = False Next For Each xBarControl In Application.CommandBars.FindControls(ID:=294) xBarControl.Enabled = False Next End Sub

تفضل لك ما طلبت تم وضع كود الأستاذ ابراهيم داخل الملف ... وعمل دالة معرفة لتحويل التاريخ الهجرى الى ميلادى بعمود اخر فليس هناك طريقة أو كود أخر لتحويل التاريخ على نفس العمود , أتمنى ان ينال إعجابك Private Function dateGregorian(sDate As String) As String Dim vVal As Variant Dim dtHijiri As Date VBA.Calendar = vbCalHijri If sDate <> vbNullString Then On Error GoTo XIT dtHijiri = DateValue(sDate) + 1 VBA.Calendar = vbCalGreg dateGregorian = dtHijiri End If Exit Function XIT: dateGregorian = vbNullString End Function export 1.xlsm

أخى الكريم ... بالفعل تم تعديل الملف بمشاركة الأستاذ محي شوفها بنفسك , فالأمر لا يتطلب كل هذا وانت تستخدم كود خاطىء , فالكود الصحيح الوارد بمشاركة الأستاذ محي هو Sub test() Dim a As Variant, i Dim ar Dim x x = 1 For Each ar In Columns("c:c").SpecialCells(2).Areas a = ar.Offset(1, 3).Resize(ar.Count - 1, 2) With CreateObject("scripting.dictionary") For i = 1 To UBound(a) If a(i, 1) <> 0 Then If Not .exists(a(i, 1)) Then .Add a(i, 1), a(i, 2) Else .Item(a(i, 1)) = .Item(a(i, 1)) + a(i, 2) End If End If Next Cells(x, 11) = "Item NO": Cells(x, 12) = "Pack Qty": Cells(x, 13) = "TOTAL" Cells(x + 1, 13) = WorksheetFunction.Sum(.items) Cells(x + 1, 11).Resize(.Count, 2) = Application.Transpose(Array(.keys, .items)) For i = 1 To IIf(.Count = 1, 1, .Count): Cells(x + 1, 11).Offset(i - 1, -1) = i: Next x = x + UBound(a) + 2 End With Next End Sub

بارك الله فيك استاذ محي كود ممتاز nany4mg لا يوجد مشكلة كانت حاجة بسيطة وكان يجب عليها إكتشافها بنفسك وهى .... عليك بإستبدال هذا السطر بالكود , بطريق الخطأ من الأستاذ محي تم كتابة i مرتين كما ترى وهذا المتغير لم يكن متعرف بالكود For ii = 1 To IIf(.Count = 1, 1, .Count): Cells(x + 1, 11).Offset(ii - 1, -1) = ii: Next على ان يكون هكذا For i = 1 To IIf(.Count = 1, 1, .Count): Cells(x + 1, 11).Offset(i - 1, -1) = i: Next وبكده نكون وصلنا لكل طلباتك ويجب غلق المشاركة

بسيطة -تفضل وبكده تم تلبية كل طلباتك ويجب غلق المشاركة NEW2.xlsm

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

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

وعليكم السلام-تفضل ويبدو المشكلة لديك انت فالملف يعمل معى بكل كفاءة عليك بحل المشكلة بنفسك مثال فقدان التنسيق1.xlsx

أحسنت استاذ ياسر بارك الله فيك وجزاك الله خير الثواب

عبد العزيز محمد أين انت من كل هذه الإجابات الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙

Officawy Gded أين انت من هذه الإجابة الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙

هشــــام الســـورى أين انت من هذه الإجابة الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙

الدهشوري أين انت من هذه الإجابة الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙

hitech أين انت من هذه الإجابة الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙

alexandrien أين انت من هذه الإجابة الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙

Roaaya أين انت من كل هذه الإجابات الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙

أحسنت استاذ ملاك عمل رائع

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

nany4mg أين انت من هذه الإجابة الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙

الوئام أين انت من هذه الإجابة الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!!

shoaip أين انت من هذه الإجابة الممتازة؟!!! لم أرى اى ضغط على الإعجاب من طرفك , وهل جزاء الإحسان الا الإحسان ؟!!!! أين الضغط على الإعــــجـــــاب , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!! 💙