كيف عمل دالة لمسح محتويات خلية آخرى

[الصقر الحر]

السلام عليكم

كيف يمكن عمل دالة لمسح محتويات خلية آخرى بناء على شرط معين

 

[خالد الرشيدى]

اخى الكريم

طلبك غير واضح قم بادراج ملف اكسيل  موضح فية طلبك تماماً ... وان شاء الله تجد المساعدة

تقبل تحياتى 

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

ربما كود بهذا الشكل يفي بالغرض

Sub Test()
    If Range("A1").Value = "No" Then Range("B1").ClearContents
End Sub

 

[الصقر الحر]

الأخ خالد الرشيدى

مرفق ملف اكسيل

مسح محتوى.rar

[خالد الرشيدى]

اخى الكريم

لا يمكن لمعادلة مسح محتويات خلية اخرى  ولهذا لابد من استخدام الاكواد

وقد افادك   استاذنا القدير / ياسر خليل     بالكود المطلوب

تقبل تحياتى

[الصقر الحر]

الأساتذة الأفاضل

 اشكركم أولا على الاهتمام وسرعة الاستجابة وجزاك الله خيرا

المشكله انى اريد مسح المحتوى بمجرد الأختيار

ولو استخدمت الكود محتاج تشغيله بعد الأختيار

 

[خالد الرشيدى]

اخى الكريم

يمكن جعل الكود ينشط تلقائى عند تغير قيمة الخلية المرادة هنا D5

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
        If Target.Address = "$D$5" Then
             If Target.Value = 4 Then Range("F5").ClearContents        
        End If 
       
End Sub

جرب المرفق

  مسح محتوى_2.rar 

 

تم تعديل أغسطس 26, 2015 بواسطه خالد الرشيدى

[الصقر الحر]

الله ينور عليك أستاذنا الفاضل

لو حبينا بقا نطب الكود على العمود من d6:d115  ويقوم بمسح المقابل له العمود F6:f115

كيف يكون الكود

معلش تعبتك معاى

 

[خالد الرشيدى]

استبدل الكود السابق بهذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
       If Not Intersect(Target, Range("D6:D115")) Is Nothing Then
             If Target.Value = 4 Then Target.Offset(, 2).ClearContents
        End If
       
End Sub

 

[الصقر الحر]

الف شكر جزاك الله كل خير وزادك الله من علمه

الكود جميل جدا مشاء الله ويعمل بشكل جميل جدا

الف شكر