منير الاسد قام بنشر ديسمبر 25, 2015 قام بنشر ديسمبر 25, 2015 السلام عليكم و رحمة الله و بركاته في المثال اسفله اريد كود بحيث كلماتمت اضافة تاريخ في اي خلية من الخلايا الموجودة في العمود Eان يتم حذف السطر باكمله بارك الله فيكم Classeur1.zip
ياسر خليل أبو البراء قام بنشر ديسمبر 25, 2015 قام بنشر ديسمبر 25, 2015 أخي الكريم مارفيبو ... مش عارف معناها بس أكيد معناها لذيذ الرجاء تغيير اسم الظهور للغة العربية قم بعمل كليك يمين على اسم ورقة العمل ثم اختر الأمر 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 أرجو أن يكون المطلوب إن شاء الله جمعه مباركة عليك
منير الاسد قام بنشر ديسمبر 25, 2015 الكاتب قام بنشر ديسمبر 25, 2015 بارك الله فيك اخي ياسر الكود يعمل م لكن اريد ان لا يقوم الكود بوضيفته الا عندما اضغط على زر و ليس كلما اضفت التاريخ اوتوماتيكيا حمعة مباركة
ياسر خليل أبو البراء قام بنشر ديسمبر 25, 2015 قام بنشر ديسمبر 25, 2015 أخي الكريم لا تنسى أن تقوم بتغيير اسم الظهور للغة العربية إليك الكود التالي ليؤدي المطلوب إن شاء الله 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 تقبل تحياتي
منير الاسد قام بنشر ديسمبر 25, 2015 الكاتب قام بنشر ديسمبر 25, 2015 بارك الله فيك اخي ياسر الكود 100% كيف يمكنني تغيير الاسم الى العربية ؟؟ 1
ياسر خليل أبو البراء قام بنشر ديسمبر 25, 2015 قام بنشر ديسمبر 25, 2015 أخي الكريم يرجى مراجعة التوجيهات من خلال الرابط التالي توجيهات للأعضاء لمعرفة كيفية التعامل مع المنتدى بشكل أفضل التوجيه العاشر على وجه الخصوص تقبل تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.