استدعاء بيانات من sheets متعددة باستخدام تاريخ

[yara ahmed]

السلام عليكم

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

وهو

المطلوب استدعاء البيانات من Sheets الملونة بالاخضر اى كان عددها

هنا بالتاريخ from to

وهذا Sheet DataReport هو النتيجة المتوقع الحصول عليها عند تنفيذ الماكرو

thank you so much

استدعاء GreenSheets.xlsm

[ابراهيم الحداد]

السلام عليكم ورحمة الله

جربى هذا الكود

Sub ImportData()
Dim ws As Worksheet, Sh As Worksheet
Dim p As Integer, x As Integer, LR As Long
Dim C As Range, A, B
Application.ScreenUpdating = False
Set Sh = Sheets("DataReport")
A = Sh.Range("K2"): B = Sh.Range("L2"): p = 1
LR = Sh.Range("B" & Rows.Count).End(xlUp).Row
For Each ws In ThisWorkbook.Worksheets
x = ws.Tab.ColorIndex
If x = 10 Then
For Each C In ws.Range("A6:A" & ws.Range("A" & Rows.Count).End(xlUp).Row)
If C >= B And C <= A Then
p = p + 1
Sh.Range(Sh.Cells(p, 2), Sh.Cells(p, 9)).Value = ws.Range(ws.Cells(C.Row, 2), ws.Cells(C.Row, 9)).Value
End If
Next
End If
Next
Application.ScreenUpdating = True
End Sub

 

[yara ahmed]

 

ااشكرك استاذ أحمد يوسف

شكرك استاذابراهيم الحداد

حضرتك كلك زوق وفعلا الكود يعمل وعند اضافة صفحات يعمل 

ينقص الكود عند تغير التاريخ يظل ماتم استدعائه سابقا موجود لا يتم استدعاء البيانات فى التاريخ الجديد فقط بل يتم استدعاء كافة البيانات مرة اخرى

وكذلك لم يتم استدعاء اسم sheet الى العمود a الاسم الملون بالاخضر

ارفقت لحضرتك الملحوظات شاكرة كرمك وزوقك بارك الله فيك

استدعاء GreenSheets.xlsm