(تمت الاجابة) إدراج تاريخ بين تاريخين

[احمد العدوى]

المرفق

إدراج تاريخ بين تاريخين.rar

[احمد العدوى]

برجاء الإهتمام بهذا الموضوع

[طارق محمود]

السلام عليكم

تفضل أخي الكود التالي في حدث الصفحة

Private Sub Worksheet_Change(ByVal Target As Range)

x = Target.Value

If Target.Column <> 10 Or IsDate(x) = False Then Exit Sub

    Sdate = [A2]			    'start date

    Ldate = [A10000].End(xlUp)  'last date

If x < Sdate Or x > Ldate Then MsgBox ("Out of Range!  Date is out of range"): Exit Sub


For r = 2 To [A10000].End(xlUp).Row - 3

    y1 = Cells(r, "A"): y2 = Cells(r + 3, "A")

    If y1 < x And y2 > x Then

	    o = 1

	    If (x - y1) / (y2 - y1) > 0.5 Then o = 2

	    With Cells(r + o, "A")

		    .Value = x

		    .Interior.ColorIndex = 3

		    .Font.Bold = True

	    End With

	    Exit Sub

    End If

Next r


End Sub

[طارق محمود]

مرفق الملف وبه الكود

إدراج تاريخ بين تاريخين.rar

[احمد العدوى]

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

بارك الله فيك ياطارق باشا

رائع و أكثر من رائع

نشكرك على حسن اهتمامكم

وأنت إسم غالى لأن إبنى الأكبر إسمه طارق

[احمد العدوى]

سوف أضيف الكود لموضوعى وسأرسله إنشاء الله لتتابعه معى طبعاً لو تكرمتم وبعد إذنكم

[احمد العدوى]

برجاء التكرم بتنفيذ الكود على الملف

ولكم كل شكرى وتقديرى

ومرفق الملف مكتملاً

[احمد العدوى]

الملف المرفق

Copy of كود التدرج.rar

[basem said]

كود رائع استاذ طارق

ما شاء الله

[طارق محمود]

السلام عليكم

مرفق الملف وقد تم تغيير مواضع الأعمدة كما تريد

العمود A أصبح E و العمود J أصبح I

وتم حذف الأسطر التي ليس بها بيانات بغرض تقليل حجم الملف

(عندي مشكلة في رفع الملفات)

تفضل المرفق بالرابط

http://www.4shared.com/rar/RKA0GhlN/2__online.html

[احمد العدوى]

رائع

وبارك الله فيك ياطارق باشا وجزاك الله خيراً

ولكن لو تكرمتم لى طلب اخر

كود لإخفاء أى صف ليس مدون به تاريخ ولايؤثر على المعادلات

وجزاكم الله خيراً

[عبدالله المجرب]

رائع

وبارك الله فيك ياطارق باشا وجزاك الله خيراً

ولكن لو تكرمتم لى طلب اخر

كود لإخفاء أى صف ليس مدون به تاريخ ولايؤثر على المعادلات

وجزاكم الله خيراً

تم اضافة حل في طلبك بهذا الخصوص

كل الشكر على التحف التي جاد بها الاستاذ طارق

[احمد العدوى]

نشكر الأستاذ طارق على ماتفضل به علينا وأنت ياأبو أحمد

لكم شكرى وتقديرى