Makkah.07070 قام بنشر سبتمبر 6, 2020 مشاركة قام بنشر سبتمبر 6, 2020 السلام عليكم ورحمة الله ممكن احد يساعدني بكود يفحص محتوى الخليتين F2 و G2 واذا كان محتوى كل منهما =1 , فإنه يمسح محتواهما ويضع (1) في الخلية H2 واذا كات احدى الخليتين F2 و G2 فارغة فلا يفعل شئ ويكون التطبيق حتى الصف 46 أوفيسنا.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 6, 2020 مشاركة قام بنشر سبتمبر 6, 2020 و اذا كانت لا تساوي 1 وليست فارغة مثلاً "Ok2" & "Ok1" ما العمل ؟؟؟؟ 1 رابط هذا التعليق شارك More sharing options...
Makkah.07070 قام بنشر سبتمبر 6, 2020 الكاتب مشاركة قام بنشر سبتمبر 6, 2020 شكرا لسرعة الاستجابة الخليتين F2 و G2 بالأصل سوف يكون محتواهما إما 1 او فارغة رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر سبتمبر 6, 2020 أفضل إجابة مشاركة قام بنشر سبتمبر 6, 2020 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 1 رابط هذا التعليق شارك More sharing options...
Makkah.07070 قام بنشر سبتمبر 6, 2020 الكاتب مشاركة قام بنشر سبتمبر 6, 2020 اخي سليم الخليتين F2 و G2 يوجد بها معادلات ودوال وعند تنفيذ الماكرو .. يقوم بمسحها ألا توجد طريقة أخرى للإبقاء علليها رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر سبتمبر 7, 2020 مشاركة قام بنشر سبتمبر 7, 2020 ما هذا التناقض في المعطيات: من جهة الخليتين F2 و G2 بالأصل سوف يكون محتواهما إما 1 او فارغة من جهة احرى الخليتين F2 و G2 يوجد بها معادلات ودوال 1- اثناء العمل على ملفك تفحصت الحلايا و لم اجد اي معادلة في كل الصفحة 2 - ما الفائدة من مسح الخلايا تم استعادتها ؟؟؟ 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان