Find_cells _address

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

اخواني في المنتدى

اليكم هذا الموضوع(ليس سؤال) ربما يكون مفيداً عندما تدعو الحاجة

find cell.address.zip

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

أخي الحبيب سليم

بارك الله فيك وجزاك الله خير الجزاء في الدنيا والآخرة

عمل رائع وجميل جداً

 

ما رأيك بتعديل بسيط لن يؤثر في عمل الكود

أرى أنك تكثر من التحديد والتحديد لا قيمة له ... قم بالإطلاع على الكود بالشكل التالي

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

 

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

اخي ياسر

أكثر من رائع جزاك الله خيراً

[saad abed]

اخى سليم

مشرفنا الغالى ياسر خليل

نقاش الأساتذة يتعلم منه التلاميذ امثالى

شكرا لكم

 

[محمد الريفى]

السلام عليكم

 فليسمح لى اخى الاستاذ سليم بهذه المعادله

لمعرفة الخلية الغير فارغه

=IF(A2<>"";CELL("address";A2);"")

لمعرفة الخلية الفارغه

=IF(A2="";CELL("address";A2);"")

تقبلوا منى تحياتى

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

 شكراَ اخي محمد على هذه المغادلة 

لكن اذا اردت ان تشمل كل النطاق من 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 بواسطه سليم حاصبيا

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

أخي الحبيب سليم

أرى أن معادلة الأخ محمد الريفي أبسط وتؤدي نفس الغرض

لما اللجوء إلى معادلة صفيف ومعادلة طويلة بهذا الشكل ... قد يكون الأمر له فائدة أخرى غابت عنا ، يرجى ذكر الفائدة

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

الفاائدة استبدال المعادلتين (واحدة في كل عامود )الى معادلة واحدة تكتب في الخلية B2 , ولا تنفذ الا على عامودين فقط  اينما وضعتها

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

صحيح إذا عرف السبب بطل العجب

لم أجرب المعادلة على العمودين .. جربتها على عمود واحد فقط ..

بارك الله فيك وجزاك الله خير الجزاء

[أبوبسمله]

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