سبب عدم تشغيل زرار الماكرو

[نور وحيد]

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

Desktop.rar

[الصـقر]

اخى الكريم

الملف يعمل معى بشكل طبيعى

هل انت متاكد من ضبط اعدادات الماكرو مستوى الامان منخفض ؟

راجع ايضا المشاركة التاليه واتبع تعليمات الاستاذ ياسر فى ضبط الله للماكرو

وان شاء الله يظبط معك

تقبل تحياتى

 

[نور وحيد]

مع الاسف اختفت رسالتان وظهرت الرساله الموجوده فى الصور

Desktop.rar

[ياسر خليل أبو البراء]

أخي الكريم نور

الملف يعمل معي بشكل طبيعي

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

تقبل تحياتي

 

[نور وحيد]

انا اسف على الازعاج مرفق صوره بالخطا و هل الحل تنزيل نسخه جديده

سطر الخطا.rar

[ياسر خليل أبو البراء]

أخي الكريم

جرب الكود بهذا الشكل

Sub مستطيلمستديرالزوايا6_Click()
    Dim Ls As Long, LR As Long
    Dim Ws As Worksheet
    Set Ws = Sheets("فاتوره")

    Ls = Ws.Cells(Rows.Count, 4).End(xlUp).Row
    LR = Ws.Cells(Rows.Count, 2).End(xlUp).Row + 1
    Application.ScreenUpdating = False
    Range("B7:O" & Ls).Copy
    Ws.Cells(LR, 2).PasteSpecial Paste:=xlPasteValues
    On Error Resume Next
    Range("B7:O" & Ls).SpecialCells(xlCellTypeConstants, 23).ClearContents
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox ("تم بحمد الله ترحيل فاتورة " & u)
End Sub

تقبل تحياتي

 

[نور وحيد]

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

[نور وحيد]

رفع