saad abed

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

اخى فضل اطلع على المرفق ربما يكون قريب من الحل كتابة اسم المادة بجانب كلمة لجنة وكلمة احتياطى.rar

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

اخى لعلك تقصد التعامل مع الجداول المحوارية pivot table اليك هذا الرابط يمكن تجد المطلوب http://www.officena.net/ib/index.php?showtopic=37742

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

اخى احمد زمان وصلت الفكره يا فنان وتم تنفيذها والكود سريع ما شاء الله بارك الله فيك واصلح لك بالك واصلح الله لك دنياك واخراك وشكرا لك على الرد السريع اخوك سعد عابد

اخى وحبيبى فى الله احمد زمان رائع رائع رائع بكل معنى الكلمة جزاك الله خيرا وبارك فيك هل من وجهة نظرك اذا اضفت مدى اخر للنسخ اعرف اننى اسميه هل يحدث ثقل للملف اخى وحبيبى عبدالله المجرب انت استاذ بارك الله فيك اخوكم سعد عابد

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

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

اخى هشام جزاك الله خيرا تحياتى سعد عابد

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

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

اخى تومى بارك الله فيك سعد عابد

اخى محمد بارك الله فيك وجزاك الله خيرا سعد عابد

اخى وحبيبى عبدالله المجرب جهد واضح اسال الله ان يديم عليك الصحة وعافيته وستره اللهم امين اخوك سعد عابد

اخوتى اكرر سؤالى عن الاستاذ عادل حنفى واخونا خبور وابوعبدالله اسال الله ان يطمنى عليهم بعد ان اطمنت على الحسامى تحياتى سعد عابد

اخى alidroos جزاك الله خيرا احسنت تم تجربة كل جزئية فى الكود فهو يعمل بكفاءة شكرا لك وبارك الله فيك اخوك سعد عابد

Private Sub Workbook_Open() .xls" thenمرتبات سعد If ActiveWorkbook.NAME = " Sheets("الترحيل").Select UserForm5.Show Else ActiveWorkbook.Close SaveChanges:=False End If End Sub اخوانى الاعضاء الكود يمنع تغيير الاسم ويظهر فورم الدخول ويجعل ورقة الترحيل هى البداية المطلوب اضافة شرط وهو انتهاء الملف عند تاريخ معين فى نفس الكود وشرحة صيغة التاريخ يوم شهر سنة مثلا شكرا لكم اخوكم سعد عابد

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

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

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

اخى عبدالله المجرب اولا وحشنا ووحشتنا ابداعاتك عمل كبير بكود وفكره بسيطة بارك الله فيك فلتره باربع متغيرات نتيجة ممتازة السؤال نقل التقرير فى صفحة منفصلة التغيير فى الكود هكذا ام توجد اضافات اخرى تحياتى سعد عابد Private Sub CommandButton1_Click() Application.ScreenUpdating = False Range("rng").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=sheet1.Range( _ "O1:R2"), CopyToRange:=sheet2.Range("G1:K1"), Unique:=False ActiveWindow.SmallScroll Down:=-3 Range("K2").Select Application.ScreenUpdating = True End Sub

اخى حسن حل الاستاذ هشام ممتاز وبسيط نشكره عليه اذا اردت استخدام الكود افتح الملفين الملف المرسل والملف اللى انت شغال عليه اضغط alt+f11 اسحب مديول رقم 1 الى ملفك انسخ المفتاح المكتوب علية اضغط لحذف السطور الى ملفك اضغط على المفتاح كليك يمين اختار تعيين ماكرو اختار test اخوك فى الله سعد عابد Book1.rar

اخى هذا الكود يحذف السطور الفارغة لعل هذا ما طلبت اخوك سعد عابد Sub test() Dim Lastrow As Long Dim i As Long Application.ScreenUpdating = False With ActiveSheet Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row For i = Lastrow To 2 Step -1 If Application.CountA(.Rows(i)) = 0 Then .Rows(i).Delete End If Next i End With Application.ScreenUpdating = True End Sub

اخوانى اعضاء المنتدى اشتقت اليكم كثيرا ويعلم الله هذا الغياب علمنى ان لى اخوة فى الله ارجو الله الا اغيب عنهم او يغيبو عنى اللهم امين اخوكم سعد عابد