محمد 2024 قام بنشر أغسطس 25, 2023 مشاركة قام بنشر أغسطس 25, 2023 السلام عليكم خبراء وعمالقة المنتدى . تحية طيبة وعطرة لكم جميعا مرفق ملف يحتوى على بيانات مجموعة من الطلاب احتاج إلى كود VBABook1.xlsx يقوم بترحيل الطلاب من صفحة بيانات إلى سجل القيد ويكون سريع فى الترحيل لأنه للأسف جربت أكثر من كود ولكنهم يأخذون وقت طويل جدا لترحيل البيانات وأسف على الاطالة . أحتاج أيضا كود لترحيل الحالات من صفحة البيانات إلى صفحة الحالات كل حالة بكود خاص بها ولها زر للترحيل ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
محمد 2024 قام بنشر أغسطس 25, 2023 الكاتب مشاركة قام بنشر أغسطس 25, 2023 Book1.xlsx رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر أغسطس 25, 2023 مشاركة قام بنشر أغسطس 25, 2023 اذا اردت بالكود وجب عليك ارفاق ملف xlsm بناء على مرفقك وقلة التفاصيل لا تتوقع احد ان يجيبك . حتى تجد تفاعل اكثر ضع النتائج المتوقعة في الشيتات المستهدفة . عندما تكون الاكواد ضعيفة مع حجم بيانات كبيرة على الرغم من ان بياناتك قليلة جدا عندها استخدم الفلترة هذا مجرد تخمين واذاكان هناك شيء نسيته او شرحته بطريقة خاطئة وجب عليك تطويع الكود بنفسك . Sub CopyData() Application.ScreenUpdating = False Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = ThisWorkbook.Sheets("بيانات") Set ws2 = ThisWorkbook.Sheets("سجل قيد") Set ws3 = ThisWorkbook.Sheets("سجل حالات") With ws1 .Range("A1").AutoFilter 10, "" .AutoFilter.Range.Copy With ws2 .Range("A1").PasteSpecial xlPasteValues End With .Range("A1").AutoFilter End With With ws1 .Range("A1").AutoFilter 10, "<>" .AutoFilter.Range.Copy With ws3 .Range("A1").PasteSpecial xlPasteValues End With .Range("A1").AutoFilter End With Application.ScreenUpdating = True End Sub Book1.xlsm 2 رابط هذا التعليق شارك More sharing options...
محمد 2024 قام بنشر أغسطس 26, 2023 الكاتب مشاركة قام بنشر أغسطس 26, 2023 (معدل) عذرا أخى الفاضل عبدالفتاح في بي اكسيل لقد قمت بترتيب الملف كما أشرت وأضفت كود الترحيل الذى لدى . فمعذرة هل هذا الكود يفى بالغرض أم يوجد ما هو أفضل وأسرع منه . النقطة الأخرى فى شيت سجل القيد أريد كود ترحيل لكل حالة على حسب الزر الخاص بها بناءا على البيان الموجود أمامها فى العمود N . فهل أجد لمطلبى إجابة ؟؟ وشاكر جدا لمجهودكم والرد على أخى الكريم Book111.xlsm تم تعديل أغسطس 26, 2023 بواسطه محمد 2024 رابط هذا التعليق شارك More sharing options...
محي الدين ابو البشر قام بنشر أغسطس 26, 2023 مشاركة قام بنشر أغسطس 26, 2023 (معدل) عليكم السلام وبالاذن ربما Book111_1.xlsm تم تعديل أغسطس 26, 2023 بواسطه محي الدين ابو البشر 2 رابط هذا التعليق شارك More sharing options...
محمد 2024 قام بنشر أغسطس 26, 2023 الكاتب مشاركة قام بنشر أغسطس 26, 2023 شكرا لك أخى محي الدين ابو البشر على الاهتمام والرد جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان