حمود الحارثي قام بنشر أبريل 12, 2019 مشاركة قام بنشر أبريل 12, 2019 (معدل) اسعد الله ايامكم اسادتي الكرام المطلوب دالة تقوم بجلب البيانات من عدتة ورق عمل في نفس الملف الى ورقة عمل الرئيسيه من ( الاسبوع الاوالى الى نهاية السنه للعلم بان في السنه 53 اسبوع ) كلما اضيف اسبوع تلقائي تنتقل البينات الي ورقة العمل الرئيسية وتكون متتاليه مثل ما واضح في الجدول شاكر لكم تعاونكم الدائم وجعله الله في ميزان حسناتكم Sales Rebort.xlsx تم تعديل أبريل 12, 2019 بواسطه حمود الحارثي رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر أبريل 12, 2019 مشاركة قام بنشر أبريل 12, 2019 اتفضل الملف لعله يفى بالغرض Sales Rebort.xlsm اضغط على زر يقوم بتجميع البيانات من الشيتات 2 رابط هذا التعليق شارك More sharing options...
وائل يونس سلامي قام بنشر أبريل 12, 2019 مشاركة قام بنشر أبريل 12, 2019 (معدل) استاذ مصطفى بارك الله بك حل رائع جدا دمت ذخر ولي سؤال لو سمحت هل يمكن تطبيق نفس الاجراء بشرط محدد اذا كرر في عمود محدد في كل الصفحات ( مصدر البيانات ) لك تقديري Qفي الملف المرفق أريد سحب كل السطور من كل الصفحات التي فيها عبارة ( غير محصل ) في العمود إلى ورقة العمل الأخير المسماة ( غير محصل ) كشوف_المشاريع.xlsm تم تعديل أبريل 12, 2019 بواسطه وائل يونس سلامي رابط هذا التعليق شارك More sharing options...
حمود الحارثي قام بنشر أبريل 12, 2019 الكاتب مشاركة قام بنشر أبريل 12, 2019 1 hour ago, mostafa sharaf said: اتفضل الملف لعله يفى بالغرض Sales Rebort.xlsm 40.63 kB · 2 downloads اضغط على زر يقوم بتجميع البيانات من الشيتات لك جزيل الشكر والتقدير استاذي هوه المطلوب رابط هذا التعليق شارك More sharing options...
manlook قام بنشر مايو 5, 2019 مشاركة قام بنشر مايو 5, 2019 شكرا استاذنا انا استقدتا من الكود الترحيل ممكن طلب لو امكن Sub TOTAL() Dim d As Integer, x As Integer Dim i As Byte Range("a1:n20000") = "" For i = 2 To Worksheets.Count If UCase(Sheets(i).Name) <> "Summary" Then d = Sheets("Summary").Range("a" & Rows.Count).End(xlUp).Row With Sheets(i) x = .Range("a" & Rows.Count).End(xlUp).Row .Range("a1:n" & x).Copy Sheets("Summary").Range("a" & d + 1) End With End If Next Sheets("Summary").Select End Sub ان النسخ يكون بالقيم فقط لانو بينسخ المعادلات شاكر ليك مجهودك المتميز رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.