ابو حمادة قام بنشر ديسمبر 11, 2018 مشاركة قام بنشر ديسمبر 11, 2018 ملف تجربه Test01.xlsx.rar ولكم منى جزيل الشكر رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر ديسمبر 12, 2018 مشاركة قام بنشر ديسمبر 12, 2018 السلام عليكم ورحمة الله استخدم هذا الكود Sub DataDate() Dim ws As Worksheet, C As Range Dim LR As Long, i As Integer, x As Integer Dim Dt Set ws = Sheets("ADD") LR = ws.Range("B" & Rows.Count).End(xlUp).Row Dt = ws.Range("S2") For Each C In ws.Range("E2:P2") If C.Value = ws.Range("R2") Then x = C.Column End If Next i = 3 Do While i <= LR If ws.Cells(i, "C") <= Dt And ws.Cells(i, "D") >= Dt Then ws.Cells(i, "R") = ws.Cells(i, x) End If i = i + 1 Loop End Sub 1 رابط هذا التعليق شارك More sharing options...
ابو حمادة قام بنشر ديسمبر 12, 2018 الكاتب مشاركة قام بنشر ديسمبر 12, 2018 2 ساعات مضت, ابراهيم الحداد said: السلام عليكم ورحمة الله استخدم هذا الكود Sub DataDate() Dim ws As Worksheet, C As Range Dim LR As Long, i As Integer, x As Integer Dim Dt Set ws = Sheets("ADD") LR = ws.Range("B" & Rows.Count).End(xlUp).Row Dt = ws.Range("S2") For Each C In ws.Range("E2:P2") If C.Value = ws.Range("R2") Then x = C.Column End If Next i = 3 Do While i <= LR If ws.Cells(i, "C") <= Dt And ws.Cells(i, "D") >= Dt Then ws.Cells(i, "R") = ws.Cells(i, x) End If i = i + 1 Loop 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.