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

[kashef]

بعد إذنكم أريد معادلة أو كود لاخفاء الصف إذا كانت خلية معينة فارغة فى هذا الصف ويفضل أن تكون معادلة

[رجب جاويش]

أخى الفاضل

اخفاء صف أو عمود تماما يكون عن طريق الكود وليس المعادلات

أما اذا كنت تقصد اخفاء البيانات الموجوة فى الصف فقط ( أى جعل لون الخط بنفس لون الخلفية ) فان ذلك يكون عن طريق التنسيق الشرطى بالمعادلات

فاختر ما تريد

لكن بعد ارفاق ملف به مثال لما تريد

حتى يتم العمل عليه

[kashef]

جزاك الله خيرا على ردك .. وهذا هو الملف والمطلوب موجود فى آخر الجدول فى الملفkashef.zip

[رجب جاويش]

تفضل أخى

Sub RG_Hide()
Dim LR As Integer, i As Integer
LR = Cells(Rows.Count, 2).End(xlUp).Row
'=======================================
Application.ScreenUpdating = False
For i = LR To 5 Step -1
    If Cells(i, 2).Value = "--------" Or IsEmpty(Cells(i, 2)) Then
        Rows(Cells(i, 2).Row).Hidden = True
    End If
Next
Application.ScreenUpdating = True
End Sub
Sub RG_Show()
Cells.Rows.Hidden = False
End Sub

kashef1.rar

[kashef]

جزاك الله خيرا ........بس بعد إذنك لو ينفع كود أكتبه مكان المعادلة بدون أزرار

[حمادة عمر]

السلام عليكم

الاخ الكريم / kashef

بارك الله فيك

وبعد اذن الاستاذ العملاق الفارس / رجب جاويش ... جزاه الله خيرا

اليك اخي ما طلبت ( علي حسب فهمي للطلب الاخير ) هو نفس كود الاستاذ / رجب ولكن يتم استدعاؤه في حاله تغيير اي بيانات في الورقة

تلقائيا بدون ازرار

ويمكنك ذلك بوضع الكود التالي في حدث الورقة sheet1  كالتالي

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Call RG_Hide
Application.ScreenUpdating = True
End Sub

ارجو ان يفي بطلبك

جزاك الله خيرا

[kashef]

أنا آسف لأنى مبتدأ أضع الكود ازاى فى sheet1

[حمادة عمر]

اليك المرفق

 

kashef1+.rar

[حمادة عمر]

الاخ الكريم

اليك فيديو مرفق لتوضيح كيفية الدخول علي حدث الصفحة ( الشيت 1 ) ووضع الكود المذكور فيه

ارجو ان يفي بطلبك

جزاك الله خيرا

 

 

wwww.rar

[kashef]

و الله يا أ / حمادة أنا مش عارف أشكرك أنت             و أ / رجب إزاى .....جزاكما الله عنى خيرا

[رجب جاويش]

أخى الحبيب / حمادة عمر

تسلم ايديك

دائما لك لمسات نهائية سحرية

جزاك الله كل خير

[رجب جاويش]

أخى الفاضل /kashef

لا شكر على واجب أخى الفاضل

فهذا واجبنا نخو إخوتنا فى هذا المنتدى العريق

[حمادة عمر]

أخى الحبيب / حمادة عمر

تسلم ايديك

دائما لك لمسات نهائية سحرية

جزاك الله كل خير

 

شهادة لي من استاذ عملاق مثلك استاذ / رجب

تقبل خالص تحياتي وشكري وتقديري

جزاك الله خيرا

[حمادة عمر]

و الله يا أ / حمادة أنا مش عارف أشكرك أنت             و أ / رجب إزاى .....جزاكما الله عنى خيرا

 

أخى الفاضل /kashef

لا شكر على واجب أخى الفاضل

فهذا ما تعلمناه من اساتذتنا في المنتدي امثال العملاق / رجب جاويش

ان يكون هذا هو واجبنا نخو إخوتنا فى هذا المنتدى العريق

ردا لدينهم وجميلهم علينا دائما

وبالطبع لم افعل شيئا سوي تقديم الطريق اليك فالكود والموضوع والابداع للقدير / رجب جاويش

جزاك الله خيرا

[أبو أنس80]

جزاء الله خير

الله طول عمرك

[مجدى يونس]

الاخ رجب

عمل جميل فعلا

[مجدى يونس]

الاخ حمادة

دائما فى كل المواضيع ...

شباب .... وحماس .... وافكار جميلة

[رجب جاويش]

الأستاذ الفاضل / مجدى يونس

شكرا جزيلا على هذا المرور العطر

[حمادة عمر]

السلام عليكم

الاخ الكريم / shakhawan

بارك الله فيك

جزاك الله خيرا

[حمادة عمر]

السلام عليكم

الاخ القدير / مجدى يونس

بارك الله فيك

مرور طيب وكريم وكلمات اجمل من النسيم العليل

جزاك الله خيرا

[kashef]

طيب معلش أنا بتقل عليكم و لكن للفائدة العامة ....هل  يمكن عمل ذلك بمعادلة vba يمكن استدعاءها وكتابتها فى الخانة المراد فيها عمل ذلك ؟