أبو إلياس السوري قام بنشر يوليو 9, 2015 مشاركة قام بنشر يوليو 9, 2015 (معدل) السلام عليكم ورحمة الله وبركاته عند ترحيل البيانات (نظرا لكثرة البيانات) يجمد البرنامج ويأخذ وقت طويل لتنفيذ المهمة .. هل هناك أي حل ؟؟؟ طلب ثانوي ..:: هل من الممكن نسخ الخلية بدون تنسيق ..يعني أريد الترحيل بدون تنسيق ويكون نفس تنسيق القديم للخلية المرحل إليها.... 1.rar تم تعديل يوليو 9, 2015 بواسطه أبو إلياس السوري رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 9, 2015 مشاركة قام بنشر يوليو 9, 2015 عسى ان يكون المطلوب بالنسبة للسرعة (الامر يستغرق 1.5 ثانية) تم تبديل الملف لان الاصلي يحتوي على فيروس ناجح راسب.rar 2 رابط هذا التعليق شارك More sharing options...
أبو إلياس السوري قام بنشر يوليو 9, 2015 الكاتب مشاركة قام بنشر يوليو 9, 2015 عسى ان يكون المطلوب بالنسبة للسرعة (الامر يستغرق 1.5 ثانية) تم تبديل الملف لان الاصلي يحتوي على فيروس يارك الله فيك ... الملف الأصلي يحتي على فيروس ؟!!!! أنا أستخدم أفاست ماهو المضاد عندك أخي؟؟؟ الملف سريع ماشاء الله .... ولكن لو تلاحظ أن الملف الأساسي كان لا يرحل كل البيانات في كل الأعمدة بل يقوم بترحيل العمود الثاني والرابع والأخير .. والملف الذي أرفقته أنت يرحل كل الأعمدة ... فهل يمكن تعديله ؟؟؟ من ناحية السرعة سريع جدا .....بارك الله فيك ... وبالنسبة للطلب الثاني .:: هل يمكننا النسخ بدون تنسيق ؟؟ رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 9, 2015 مشاركة قام بنشر يوليو 9, 2015 لا توجد عندي نسخة للملف الاصلي لان الجهاز رفض ان يفتحه رابط هذا التعليق شارك More sharing options...
أبو إلياس السوري قام بنشر يوليو 9, 2015 الكاتب مشاركة قام بنشر يوليو 9, 2015 (معدل) لا توجد عندي نسخة للملف الاصلي لان الجهاز رفض ان يفتحه مش مشكلة جزاك الله خيرا ..ومشكلة الفيروس غريبة .. لعل وعسى أحد الأخوة يحل مكلة البطئ بنفس طريقة الملف الأصلي... وهناك مشكلة أخرى أيضا في الملف الذي أرفقته أخي ... الملف الأصلي كان يرحل تلقائيا إلى اسم الصفحة المشابهة,,, هل هناك طريقة للنسخ والترحيل بدون تنسيق ؟؟ تم تعديل يوليو 9, 2015 بواسطه أبو إلياس السوري رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 9, 2015 مشاركة قام بنشر يوليو 9, 2015 تم التعديل بدون تنسيق 1ناجح راسب.rar رابط هذا التعليق شارك More sharing options...
أبو إلياس السوري قام بنشر يوليو 9, 2015 الكاتب مشاركة قام بنشر يوليو 9, 2015 تم التعديل بدون تنسيق طريقتك ممتازة وسريعة ونسخت بدون تنسيق ولكنني حاولت أن أطبقها على الملف الأصلي ولكن عبثا لم أستطع فهل هناك أحد يستطيع المساعدة؟؟؟؟ رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر يوليو 10, 2015 أفضل إجابة مشاركة قام بنشر يوليو 10, 2015 أخي الكريم جرب الكود بهذا الشكل Sub FilterData() Dim LR As Long, SH As Worksheet Application.ScreenUpdating = False For Each SH In ActiveWorkbook.Sheets If SH.Name <> "الرئيسية" Then With Sheets("الرئيسية") .Rows(3).AutoFilter .Rows(1).AutoFilter 8, "=" & SH.Name LR = .Range("A" & .Rows.Count).End(xlUp).Row If LR > 1 Then Union(.Range("B2:B" & LR), .Range("E2:E" & LR), .Range("H2:H" & LR)).Copy SH.Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues End If .Rows(1).AutoFilter End With End If Next SH Application.ScreenUpdating = True End Sub تم التعديل على الكود الأصلي ليقوم بعمل نسخ للقيم فقط بدون نسخ التنسيقات 1 رابط هذا التعليق شارك More sharing options...
أبو إلياس السوري قام بنشر يوليو 10, 2015 الكاتب مشاركة قام بنشر يوليو 10, 2015 أخي الكريم جرب الكود بهذا الشكل Sub FilterData() Dim LR As Long, SH As Worksheet Application.ScreenUpdating = False For Each SH In ActiveWorkbook.Sheets If SH.Name <> "الرئيسية" Then With Sheets("الرئيسية") .Rows(3).AutoFilter .Rows(1).AutoFilter 8, "=" & SH.Name LR = .Range("A" & .Rows.Count).End(xlUp).Row If LR > 1 Then Union(.Range("B2:B" & LR), .Range("E2:E" & LR), .Range("H2:H" & LR)).Copy SH.Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlValues End If .Rows(1).AutoFilter End With End If Next SH Application.ScreenUpdating = True End Sub تم التعديل على الكود الأصلي ليقوم بعمل نسخ للقيم فقط بدون نسخ التنسيقات إبداع كالعادة سلمت يداك وبارك الله في علمك وأعطاك علما من عنده 3 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان