طلب كود اخفاء

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

طلب  كود او دالة  لاخفاء الصفوف الفارغة بشكل تلقائي

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

[الشهابي]

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

هذا كود لأستاذنا الكبير عبد الله باقشير 

وقد قمت بتطبيقه على ملفك في ورقة ( البنك ) حيث يعتمد على الفراغ في صفوف العمود (B)

Private Sub Worksheet_Activate()
  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
 End Sub

والعفو

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

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

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

هذا كود لأستاذنا الكبير عبد الله باقشير 

وقد قمت بتطبيقه على ملفك في ورقة ( البنك ) حيث يعتمد على الفراغ في صفوف العمود (B)

Private Sub Worksheet_Activate()
  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
 End Sub

والعفو

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

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

الكود يعمل وجربة على كل الصفحات

لكن هناك مشكلة ضغيرة وهي اهتزاز الشاشة اثناء التنقل بين الصفحات

هل فيه كود يوقف اهتزاز الشاشة ؟

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

[الشهابي]

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

أضف السطر التالي في أول الكود 

  Application.ScreenUpdating = False

والسطر التالي في آخر الكود 

 Application.ScreenUpdating = True

ليصبح الكود بهذا الشكل 

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

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

 

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

أضف السطر التالي في أول الكود 

  Application.ScreenUpdating = False

والسطر التالي في آخر الكود 

 Application.ScreenUpdating = True

ليصبح الكود بهذا الشكل 

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

بارك الله فيك أخي . . 

وجعله في ميزان حسناتك  . .

جاري التجربة . . .

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

بارك الله فيك

الشهابي

بعد التجربة شغال  وكله تمام

شكرا لك اخي

وبارك الله فيك

تحياتي . .

 

[حمادة عمر]

بارك الله فيك

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

اخي الحبيب / الشهابي

كل عام وانتم بخير ... لا تحرمنا من مشاركتك الغالية

[حمادة عمر]

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