نور وحيد قام بنشر أبريل 5, 2016 قام بنشر أبريل 5, 2016 الملف به زر ترحيل الى صفحة المبيعات و المشتروات و المرتجع وكان يعمل بصور طيبه حتى نزلت نسخه جديدة من ويندز 7 ففؤجت بعدم عمل الترحيل وظهور الرسائل المصاحبه للملف الاصلى اسف انى دخلت فى الموضوع مباشرتا الا ان الامر يشكل مشكله بالنسبه لى فعزرا فارجو توضيح الخطا و كيفيه اصلاحه حتى يتم تلافى ذلك عند نزول نسخه جديدة Desktop.rar
الصـقر قام بنشر أبريل 5, 2016 قام بنشر أبريل 5, 2016 اخى الكريم الملف يعمل معى بشكل طبيعى هل انت متاكد من ضبط اعدادات الماكرو مستوى الامان منخفض ؟ راجع ايضا المشاركة التاليه واتبع تعليمات الاستاذ ياسر فى ضبط الله للماكرو وان شاء الله يظبط معك تقبل تحياتى
نور وحيد قام بنشر أبريل 5, 2016 الكاتب قام بنشر أبريل 5, 2016 مع الاسف اختفت رسالتان وظهرت الرساله الموجوده فى الصور Desktop.rar
ياسر خليل أبو البراء قام بنشر أبريل 5, 2016 قام بنشر أبريل 5, 2016 أخي الكريم نور الملف يعمل معي بشكل طبيعي يرجى تحديد السطر الذي يظهر فيه الخطأ ..عند طهور الخطأ انقر كلمة Debug وضع السطر الذي يظهر معك باللون الأصفر هنا في الرد تقبل تحياتي
نور وحيد قام بنشر أبريل 5, 2016 الكاتب قام بنشر أبريل 5, 2016 انا اسف على الازعاج مرفق صوره بالخطا و هل الحل تنزيل نسخه جديده سطر الخطا.rar
ياسر خليل أبو البراء قام بنشر أبريل 6, 2016 قام بنشر أبريل 6, 2016 أخي الكريم جرب الكود بهذا الشكل 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 تقبل تحياتي
نور وحيد قام بنشر أبريل 6, 2016 الكاتب قام بنشر أبريل 6, 2016 الاستاز ياسر خليل بعد التحية الكود لا يرحل الا الى المشتروات واذا تغيرت الفاتوره الى المبيعات او المرتجع تخفى البيانات فقط دون ترحيل للبيانات
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.