مجاهد2013 قام بنشر أغسطس 1, 2018 مشاركة قام بنشر أغسطس 1, 2018 السلام عليكم ممكن مساعدة . التوضيح في المرفق التقرير.xlsx رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر أغسطس 1, 2018 مشاركة قام بنشر أغسطس 1, 2018 (معدل) السلام عليكم ورحمة الله استخدم هذا الكود 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 بواسطه زيزو العجوز 3 رابط هذا التعليق شارك More sharing options...
مجاهد2013 قام بنشر أغسطس 2, 2018 الكاتب مشاركة قام بنشر أغسطس 2, 2018 تمام ألف تحية أستاذ لك مني كل التقدير و الاحترام رابط هذا التعليق شارك More sharing options...
arsalanamin قام بنشر أغسطس 3, 2018 مشاركة قام بنشر أغسطس 3, 2018 كل التقدير و الاحترام رابط هذا التعليق شارك 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.