ممكن مساعدة في هذا الملف

[Makkah.07070]

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

ممكن احد يساعدني بكود يفحص محتوى الخليتين F2 و G2

واذا كان محتوى كل منهما =1 , فإنه يمسح محتواهما ويضع (1) في الخلية H2

واذا كات احدى الخليتين  F2 و G2 فارغة فلا يفعل شئ

ويكون التطبيق حتى الصف 46

أوفيسنا.xlsx

[سليم حاصبيا]

و اذا كانت لا تساوي 1 وليست فارغة مثلاً    "Ok2"  & "Ok1"   ما العمل ؟؟؟؟

[Makkah.07070]

شكرا لسرعة الاستجابة

الخليتين F2 و G2 بالأصل سوف يكون محتواهما

إما 1 او فارغة

[سليم حاصبيا]

Try this macro

Option Explicit

Sub One_Or_Nothing()
Const t = 1
Dim i%

Range("H2:H46").ClearContents

For i = 2 To 49
 If Application.CountIf(Range("F" & i).Resize(, 2), t) = 2 Then
 Range("F" & i).Resize(, 2).ClearContents
 Range("F" & i).Offset(, 2) = t
 End If
 Next
End Sub

 

[Makkah.07070]

اخي سليم

 الخليتين F2 و G2  يوجد بها معادلات ودوال

وعند تنفيذ الماكرو .. يقوم بمسحها

ألا توجد طريقة أخرى للإبقاء علليها

 

[سليم حاصبيا]

ما هذا التناقض في المعطيات:
     من جهة الخليتين F2 و G2 بالأصل سوف يكون محتواهما إما 1 او فارغة
     من جهة احرى الخليتين F2 و G2 يوجد بها معادلات ودوال

1- اثناء العمل على ملفك تفحصت الحلايا  و لم اجد اي معادلة في كل الصفحة

2 - ما الفائدة من مسح الخلايا تم استعادتها ؟؟؟