طلب تعديل على الكود

[محمود عبدالعزيز]

السلام عليكم

شباب

ممكن شرح للكود  + تعديل عيله

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
  Dim MyRng As Range
Dim Col As Range
Range("b3:b16").EntireRow.Hidden = False
For Each Col In Range("b3:b16")
If CStr(Col) = "" Or Col.Value = 0 Then
If MyRng Is Nothing Then Set MyRng = Col Else _
              Set MyRng = Union(MyRng, Col)
  End If
Next
If Not MyRng Is Nothing Then MyRng.EntireRow.Hidden = True
Application.ScreenUpdating = True
 End Sub

هو الان يخفي الصفوف الفارغة من الصف 3 الى 16الصف

 

لكن انا ابغي اعدل عليه ويكون من الصف 3 الى الصف 1500 مثلاً

 

[الـعيدروس]

السلام عليكم

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Dim My_a As Range
Dim R As Range
'***********************
' My_a ' حطينا المدى في متغير المسمى
' b3:b1500 'التحديد الحالي من
' بالامكان تغيره الى اي صف تريد
Set My_a = Range("b3:b1500")
'***********************
' حلقه تكراريه من اول صف للمدى الى اخر صف
For Each R In My_a
'الصف شرط اذا الخليه صفريه او فارغه يخفي الصف  والعكس إظهار
 If R.Value = 0 Or R = Empty Then R.EntireRow.Hidden = 1 _
 Else R.EntireRow.Hidden = 0
 ' نهاية الحلقه
Next
Application.ScreenUpdating = True
End Sub

[محمود عبدالعزيز]

جاري التجربة

[محمود عبدالعزيز]

لم يعمل اخي

ممكن تطبقة على الملف

طلب اضافة دالة+.rar

[محمود عبدالعزيز]

جاري الانتظار

[حمادة عمر]

السلام عليكم 

الاستاذ القدير / عباد ... ابو نصار

بارك الله فيك

وحمد الله ع السلامة

طال غيابك يا غالي عنا

كل عام وانتم بخير ...

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / محمود عبدالعزيز

بارك الله فيك

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

وتم تطبيق كود الاستاذ / عباد عليه في صفحة المبيعات

حيث يقوم باخفاء كل الصفوف الفارغة في الشيت بمجرد فتح الشيت وتنشيطه

 

اما بالنسبة للكود المرفق منكم في المشاركة الاولي

سيكون الكود بالشكل التالي .... وتم تطبيقه في الملف المرفق علي صفحة البنك كمثال

ليعمل الكود حتي الصف 1500

ويمكنك اخي الكريم زيادة المدي في الكود كما تريد كما هو في الكود التالي

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
  Dim MyRng As Range
Dim Col As Range
Range("b3:b1500").EntireRow.Hidden = False
For Each Col In Range("b3:b1500")
If CStr(Col) = "" Or Col.Value = 0 Then
If MyRng Is Nothing Then Set MyRng = Col Else _
              Set MyRng = Union(MyRng, Col)
  End If
Next
If Not MyRng Is Nothing Then MyRng.EntireRow.Hidden = True
Application.ScreenUpdating = True
 End Sub

وذلك يتم بالتغيير في السطر

Range("b3:b1500").EntireRow.Hidden = False

وكذلك السطر

For Each Col In Range("b3:b1500")

ويتم تغيير الرقم 1500 بدلا من الرقم 16 في الكود الاول الي اي مدي او اي صف تريده مثلا 10000

ليعمل معك بالشكل المطلوب

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

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

 

 

 

طلب اضافة دالة++++.rar

[حمادة عمر]

رمضـــان كـــريـــم

[محمود عبدالعزيز]

السلام عليكم

الاخ الكريم / محمود عبدالعزيز

بارك الله فيك

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

وتم تطبيق كود الاستاذ / عباد عليه في صفحة المبيعات

حيث يقوم باخفاء كل الصفوف الفارغة في الشيت بمجرد فتح الشيت وتنشيطه

 

اما بالنسبة للكود المرفق منكم في المشاركة الاولي

سيكون الكود بالشكل التالي .... وتم تطبيقه في الملف المرفق علي صفحة البنك كمثال

ليعمل الكود حتي الصف 1500

ويمكنك اخي الكريم زيادة المدي في الكود كما تريد كما هو في الكود التالي

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
  Dim MyRng As Range
Dim Col As Range
Range("b3:b1500").EntireRow.Hidden = False
For Each Col In Range("b3:b1500")
If CStr(Col) = "" Or Col.Value = 0 Then
If MyRng Is Nothing Then Set MyRng = Col Else _
              Set MyRng = Union(MyRng, Col)
  End If
Next
If Not MyRng Is Nothing Then MyRng.EntireRow.Hidden = True
Application.ScreenUpdating = True
 End Sub

وذلك يتم بالتغيير في السطر

Range("b3:b1500").EntireRow.Hidden = False

وكذلك السطر

For Each Col In Range("b3:b1500")

ويتم تغيير الرقم 1500 بدلا من الرقم 16 في الكود الاول الي اي مدي او اي صف تريده مثلا 10000

ليعمل معك بالشكل المطلوب

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

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

 

 

 

طلب اضافة دالة++++.rar

جزاك الله خير

اخي انا عملت كذا من قبل ولما يضبط معي ممكن لانه الملف فيه مشله بمانه لم يعمل عندك ايضا

على العموم  جاري التجربه

[محمود عبدالعزيز]

اخي بعد التجربة

طبقته على صفحة المدينون

يظهر لي انه فيه خطاء في السطر

If CStr(Col) = "" Or Col.Value = 0 Then

ماذا يعني هذا

[محمود عبدالعزيز]

شاهد المرفق جربتة في صفحة المدينون

طلب اضافة دالة555555555.rar

[محمود عبدالعزيز]

جاري الانتظار

[محمود عبدالعزيز]

جاري الانتظار

[محمود عبدالعزيز]

جاري الانتظار

[محمود عبدالعزيز]

جاري الانتظار

[محمود عبدالعزيز]

جاري الانتظار

[بن علية حاجي]

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

 

أخي الكريم، أعتقد أن الكود يعمل جيدا في ورقتي "المبيعات" و "المدينون" إذا تم تعديل تنسيق خلايا العمود B في الورقتين من تنسيق "التاريخ" Date إلى التنسيق "التلقائي" Standard...

 

أرجو أن تفيدك هذه المعلومات (في الانتظار)...

 

أخوك بن علية

 

الملف المرفق: طلب اضافة دالة555555555.rar

تم تعديل يوليو 1, 2013 بواسطه بن علية حاجي

[محمود عبدالعزيز]

جاري التجربة