المطلوب دالة تقوم بجلب البيانات من عدتة ورق عمل الى ورقة عمل الرئيسي

[حمود الحارثي]

اسعد الله ايامكم اسادتي الكرام

المطلوب دالة تقوم بجلب البيانات من عدتة ورق عمل في نفس الملف  الى ورقة عمل الرئيسيه  من ( الاسبوع الاوالى الى نهاية السنه للعلم بان في السنه 53 اسبوع ) كلما اضيف اسبوع تلقائي تنتقل البينات الي ورقة العمل الرئيسية وتكون متتاليه مثل ما واضح في الجدول

 

 شاكر لكم تعاونكم الدائم وجعله الله في ميزان حسناتكم

Sales Rebort.xlsx

تم تعديل أبريل 12, 2019 بواسطه حمود الحارثي

[وجيه شرف الدين]

اتفضل الملف لعله يفى بالغرض

Sales Rebort.xlsm

اضغط على زر يقوم بتجميع البيانات من الشيتات

[وائل يونس سلامي]

استاذ مصطفى 

بارك الله بك 

حل رائع جدا 

دمت ذخر 

ولي سؤال لو سمحت 

هل يمكن تطبيق نفس الاجراء بشرط محدد اذا كرر في عمود محدد في كل الصفحات ( مصدر البيانات )

لك تقديري

  Qفي الملف المرفق أريد سحب كل السطور من كل الصفحات التي فيها عبارة ( غير محصل ) في العمود 

إلى ورقة العمل الأخير المسماة ( غير محصل )

 

كشوف_المشاريع.xlsm

تم تعديل أبريل 12, 2019 بواسطه وائل يونس سلامي

[حمود الحارثي]

1 hour ago, mostafa sharaf said:

اتفضل الملف لعله يفى بالغرض

Sales Rebort.xlsm 40.63 kB · 2 downloads

اضغط على زر يقوم بتجميع البيانات من الشيتات

لك جزيل الشكر والتقدير استاذي هوه المطلوب

[manlook]

شكرا استاذنا انا استقدتا من الكود الترحيل 

ممكن طلب 

لو امكن 

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

ان النسخ يكون بالقيم فقط لانو بينسخ المعادلات 

 

شاكر ليك  مجهودك المتميز