مساعدة في كود حذف السطر

[منير الاسد]

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

في المثال اسفله اريد كود بحيث كلماتمت اضافة تاريخ في اي خلية من الخلايا الموجودة في العمود Eان يتم حذف السطر باكمله

بارك الله فيكم

Classeur1.zip

[ياسر خليل أبو البراء]

أخي الكريم مارفيبو ... مش عارف معناها بس أكيد معناها لذيذ

الرجاء تغيير اسم الظهور للغة العربية

قم بعمل كليك يمين على اسم ورقة العمل ثم اختر الأمر View Code والصق الكود التالي وجرب إدخال تواريخ في العمود الخامس E

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Row > 8 And Target.Column = 5 Then
        If IsDate(Target.Value) Then Target.EntireRow.Delete
    End If
End Sub

أرجو أن يكون المطلوب إن شاء الله

جمعه مباركة عليك

 

[منير الاسد]

بارك الله فيك اخي ياسر

الكود يعمل م لكن اريد ان لا يقوم الكود بوضيفته الا عندما اضغط على زر و ليس كلما اضفت التاريخ اوتوماتيكيا

حمعة مباركة

[ياسر خليل أبو البراء]

أخي الكريم لا تنسى أن تقوم بتغيير اسم الظهور للغة العربية

إليك الكود التالي ليؤدي المطلوب إن شاء الله

Sub DeleteEntireRow()
    Dim Cel As Range, I As Long
    For I = 35 To 9 Step -1
        If IsDate(Cells(I, "E").Value) Then Cells(I, "E").EntireRow.Delete
    Next I
End Sub

تقبل تحياتي

[منير الاسد]

بارك الله فيك اخي ياسر 

الكود 100%

كيف يمكنني تغيير الاسم الى العربية ؟؟

[ياسر خليل أبو البراء]

أخي الكريم

يرجى مراجعة التوجيهات من خلال الرابط التالي

توجيهات للأعضاء لمعرفة كيفية التعامل مع المنتدى بشكل أفضل

التوجيه العاشر على وجه الخصوص

تقبل تحياتي