اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

في المثال اسفله اريد كود بحيث كلماتمت اضافة تاريخ في اي خلية من الخلايا الموجودة في العمود 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

تقبل تحياتي

رابط هذا التعليق
شارك

أخي الكريم

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

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

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

تقبل تحياتي

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information