أحمد يوسف

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

وعليكم السلام دائماً وأبداً لابد من احتواء اى مشاركة على ملف يدعمها والا ستكون المشاركة ناقصة وغير كاملة ونبهنا كثير جداً على هذا الأمر ... على كل حال يمكنك استخدام هذا الكود

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

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

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

بارك الله فيك استاذى الكريم ...ولكن دائماً وأبداً لابد من تدعيم المشاركة بملف العمل حتى تكتمل الإستفادة للجميع 

 Ali994m

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

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