محمد محمد حمودة

جزاك الله خيرا كثيرا

ما المقصود بالرقم 6....والرقم 5

جزاك الله خير الجزاء ممكن شرح هذه العباره r = (v * 6) + 5

السلام عليكم ورحمة الله ممكن بعد اذنكم شرح مبسط لهذا الكود....خاصة السطر الاخير والذي قبله ولكم جزيل الشكر Sub Test() Dim s As Worksheet Dim t As Worksheet Dim v As Variant Dim r As Long Set s = Sheets("تسجيل البيانات") Set t = Sheets("الكشوف النهائية") v = t.Range("P1").Value If Not IsNumeric(v) Or IsEmpty(v) Or v > 4 Then t.Range("B14").Resize(6, 4).ClearContents: Exit Sub r = (v * 6) + 5 t.Range("B14").Resize(6, 4).Value = s.Range("A" & r).Resize(6, 4).Value End Sub