نجوم المشاركات

السلام عليكم هل يمكننى عمل pivot table للتجميع من أكثر من شيت وملف وجزاكم الله خير

KhezzaiVisuFShape.rar

تفضل بناء حدث على الوحدات النمطية ادراج العلاوة السنوية والاجازة الشهرية.rar

تفضل هذا حل افضل بعد عمل زيادات اخرى تقبل تحياتى معادلات الى اكواد 2015.zip

اخى سيف هذه محاوله مبدأيه منى تقبل تحياتى معادلات الى اكواد 2015.rar

السلام عليكم جزاكم الله خير ، وفقكم الله وزداكم رفعة وعلما هذا هو المطلوب السلام عليكم

الحل السابق كان محصورا في الأسطر من 2 إلى 12 فقط وهذا حل ديناميكي يبدا من السطر 2 ويمتد إلى جميع الأسطر البحث وترحيل الاسماء المكررة 2.rar

تفضل أخي الكريم ... كل مافي هذا المثال تعلمته من أساتذتي الكرام في هذا الصرح الرائع ... البريد الوارد والصادر 30.rar

أستاذي الكريم ابو القبطان جزانا الله واياك كل الخير وشاكر لدعواتك وكلماتك الرقيقة ...باسورد ال VBA ( الله أكبر ولله الحمد 12345 ) بدون أقواس وبدون مسافات هكذا اللهأكبروللهالحمد12345 في انتظار اضافتك المميزة ليكتمل العمل ... كما اتمنى ان يسهم اى اخ فاضل في هذا العمل سواء بفكرة او اضافة حتى يخرج في أبهي صورة وأدعوا الله ان يكون صدقة جارية لنا في الحياة وبعد الممات خالص تحياتي

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

ابن مصر الرائع ، ما شاء الله عليك .. جعل الله عملك الممتاز هذا في ميزان حسناتك ، وجعلك الولد الصالح البار الذي يستجاب له ورجاء .. إن امكن فتح الـ vba فقد نحتاح تغيير بعض المسميات ( قمت بتجميل اول مشاركة لك ، وانتظر الاكتمال ) وسيكون بهذا العمل بإذن الله ( العلم النافع + الصدقة الجاريه + وانت الولد الصالح ) تقبل تحياتنا

وعليكم السلام أرفق ملفك الذي تريد التعديل عليه أو اتبع هذه المشاركة وستجد الكثير من الأمثلة للإخوة الأفاضل http://www.officena.net/ib/index.php?showtopic=16877

الملف في المرفقات ارجوا ان يكون هو المطلوب حساب الساعات.rar

السلام عليكم لقد طلب مني في العديد من المرات فيديو يشرح تحويل ملف الاكسل الى ملف تنفيذي لذي قمت بتحميل و تعلم برنامج تصوير شرحات الفيديو (ميغلاش شيئ عن اعضاء المنتدى) هذا اول فيديو اقوم به لذى ارجو ان لاتلومني على قلت خبرتي الفكرة من تحويل ملف الاكسل الى مل تنفيذي هي انه بعد التحويل منحتاجش تفعيل الماكرو لكي تشتغل الاكود ومنه جميع اكواد الحماية التى نعرفها راح تنفع وتعمل عملها تابعو الشرح وارجو ان يكون مفهوم البرنامج المستعمل في الشرح XLtoEXE.rar تحياتي للجميع

الاخ الحبيب رفيع إليك شرح الكود الأول - وكفاية عليا كدا - .. Sub FilterProduct() 'تعريف المتغيرات Dim ws As Worksheet Dim lr, lr2, lr3 As Long Dim i, y As Integer '[Data]لورقة العمل التي باسم[ws]تعيين المتغير Set ws = ThisWorkbook.Sheets("Data") 'تعيين رقم آخر صف به بيانات في العمود الأول lr = ws.Cells(Rows.Count, 1).End(xlUp).Row 'إيقاف خاصية إهتزاز الشاشة Application.ScreenUpdating = False 'بدء التعامل مع ورقة العمل With ws 'مسح النطاق الذي تظهر فيه النتائج .Range("K3:M1000").ClearContents 'حلقة تكرارية للعمود الثاني والثالث والرابع والخامس For y = 2 To 5 '[K]متغير لتحديد أول خلية فارغة لطبع النتائج بها في العمود lr2 = .Cells(Rows.Count, 11).End(xlUp).Row + 1 'حلقة تكرارية في الصفوف ابتداءً من الصف الثالث وحتى آخر صف به بيانات ، مع التخطي 6 خطوات For i = 3 To lr Step 6 'إذا كانت الخلية التي يظهر بها الثمن ليست فارغة وأكبر من واحد If .Cells(i + 2, y).Value <> "" And .Cells(i + 2, y) > 1 Then 'تساوي أسماء الأصناف في صفوف الأصناف[K]الخلايا في العمود .Cells(lr2, 11).Value = .Cells(i, y).Value 'تساوي الكميات في صفوف الكمية[L]الخلايا في العمود .Cells(lr2, 12).Value = .Cells(i + 1, y).Value 'تساوي الأسعار في صفوف الثمن[M]الخلايا في العمود .Cells(lr2, 13).Value = .Cells(i + 2, y).Value 'زيادة المتغير بقيمة واحد للانتقال إلى خلية فارغة جاهزة لطبع النتائج بها lr2 = lr2 + 1 'إذا لم يتحقق الشرط Else 'يبقى المتغير بنفس القيمة بدون زيادة lr2 = lr2 End If Next i Next y End With 'إعادة تفعيل خاصية إهتزاز الشاشة Application.ScreenUpdating = True End Sub أرجو أن يكون الشرح واضح وصريح ومش محتاج توضيح الحلقات التكرارية المتشابكة أو المتداخلة دي لا يتقنها إلا محترف مثل ابن مصر سلمت يمناك يا ابن مصر

اخى الفاضل وبعد إذن أساتذتي الكرام أ.سليم وأ.الجموعي، جرب الملف المرفق لربما به طلبك تحياتي Transfer-Products.rar

السلام عليكم بعد إذن الأخ جموعي إليك المطلوب بزيادة طفيفة في الأكواد CC002.rar

م/ اشرف اعتقد ان هذا التصميم يحتاج إلى تعديل حيث يجب ان يتم تصميم فواتير وارد وصادر يتم تجميع هذه الفواير ليعطى الرصيد تلقائى لكل صنف

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