استدعاء بيانات من شيت

[مجاهد2013]

السلام عليكم

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

التقرير.xlsx

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

السلام عليكم ورحمة الله استخدم هذا الكود

Sub ImportData()
Dim ws As Worksheet, Sh As Worksheet
Dim i As Integer, x As Integer, day As String
Set ws = Sheets("التقرير اليومي")
Set Sh = Sheets("بيانات")
day = ws.Range("G4").Value
ws.Range("E107:L151").ClearContents
For i = 19 To 67 Step 12
If Sh.Cells(3, i).Value = day Then
x = i + 7
Sh.Activate
Sh.Range(Cells(5, i), Cells(49, x)).Copy
ws.Activate
ws.Range("E107").PasteSpecial xlPasteValues
ws.Range("E105") = day
End If
Next
ws.Range("G4").Select
Application.CutCopyMode = False
End Sub

 

تم تعديل أغسطس 1, 2018 بواسطه زيزو العجوز

[مجاهد2013]

تمام ألف تحية أستاذ لك مني كل التقدير و الاحترام

 

[arsalanamin]

كل التقدير و الاحترام