سليم حاصبيا قام بنشر يوليو 31, 2015 مشاركة قام بنشر يوليو 31, 2015 اخواني في المنتدى اليكم هذا الموضوع(ليس سؤال) ربما يكون مفيداً عندما تدعو الحاجة find cell.address.zip 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يوليو 31, 2015 مشاركة قام بنشر يوليو 31, 2015 أخي الحبيب سليم بارك الله فيك وجزاك الله خير الجزاء في الدنيا والآخرة عمل رائع وجميل جداً ما رأيك بتعديل بسيط لن يؤثر في عمل الكود أرى أنك تكثر من التحديد والتحديد لا قيمة له ... قم بالإطلاع على الكود بالشكل التالي Sub FindEmptyCell() Dim LR&, R& Application.ScreenUpdating = False LR = Cells(Rows.Count, 1).End(3).Row If LR < 2 Then LR = 2 Range("B2:C" & LR + 1).ClearContents For R = 2 To LR With Range("A" & R) If IsEmpty(.Value) Then .Offset(0, 1) = .Address Else .Offset(0, 2) = .Address End If End With Next Application.ScreenUpdating = True End Sub 3 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر يوليو 31, 2015 الكاتب مشاركة قام بنشر يوليو 31, 2015 اخي ياسر أكثر من رائع جزاك الله خيراً 1 رابط هذا التعليق شارك More sharing options...
saad abed قام بنشر يوليو 31, 2015 مشاركة قام بنشر يوليو 31, 2015 اخى سليم مشرفنا الغالى ياسر خليل نقاش الأساتذة يتعلم منه التلاميذ امثالى شكرا لكم 1 رابط هذا التعليق شارك More sharing options...
محمد الريفى قام بنشر أغسطس 1, 2015 مشاركة قام بنشر أغسطس 1, 2015 السلام عليكم فليسمح لى اخى الاستاذ سليم بهذه المعادله لمعرفة الخلية الغير فارغه =IF(A2<>"";CELL("address";A2);"") لمعرفة الخلية الفارغه =IF(A2="";CELL("address";A2);"") تقبلوا منى تحياتى 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 1, 2015 الكاتب مشاركة قام بنشر أغسطس 1, 2015 (معدل) شكراَ اخي محمد على هذه المغادلة لكن اذا اردت ان تشمل كل النطاق من B2 :c100 بمعادلة واحدة (صفيف) اكتب هذه في B2 و اسحب يساراً و نزولاً (لا نتس Ctrl+Shift+Enter) =IF(OR(ROWS(B$2:B2)+1>MAX(--($A$2:$A$100<>"")*ROW($A$2:$A$100)),COLUMNS($A1:A1)>2),"",CHOOSE((COLUMNS($A1:A1)),IF($A2<>"",CELL("address",$A2),""),IF($A2="",CELL("address",$A2),""))) تم تعديل أغسطس 1, 2015 بواسطه سليم حاصبيا 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 1, 2015 مشاركة قام بنشر أغسطس 1, 2015 أخي الحبيب سليم أرى أن معادلة الأخ محمد الريفي أبسط وتؤدي نفس الغرض لما اللجوء إلى معادلة صفيف ومعادلة طويلة بهذا الشكل ... قد يكون الأمر له فائدة أخرى غابت عنا ، يرجى ذكر الفائدة 2 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أغسطس 1, 2015 الكاتب مشاركة قام بنشر أغسطس 1, 2015 الفاائدة استبدال المعادلتين (واحدة في كل عامود )الى معادلة واحدة تكتب في الخلية B2 , ولا تنفذ الا على عامودين فقط اينما وضعتها 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أغسطس 1, 2015 مشاركة قام بنشر أغسطس 1, 2015 صحيح إذا عرف السبب بطل العجب لم أجرب المعادلة على العمودين .. جربتها على عمود واحد فقط .. بارك الله فيك وجزاك الله خير الجزاء 1 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر مارس 1, 2016 مشاركة قام بنشر مارس 1, 2016 جزاكم الله كل خير اخوانى الكرام وزادكم الله من فضله وعلمه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان