مخفی کردن سطر های Blank در یک جدول

[a.dal65]

ممنون از پاسخت با کلی جستجو تو گوگل هم یه نمونه پیدا گردم

Sub sbUnHideRows()
Rows("4:204").EntireRow.Hidden = False
End Sub

[a.dal65]

آقا مبین به یه مشکلی بر خوردم .
توی کدی که زحمتشو کشیدین ستون b1 تاb204 رو چک میکنه اگه هر جای خالی بود از اون ردیف به بعد رو hide میکنه.
میشه یه ستون دیگه رو هم چک کنه (در بعضی مواقع اون ستون اطلاعاتش بیشتر)
به این فایل یه نگاه بندازید بی زحمت منظورمو متوجه میشید.

[mobinsaffarpour]

دوست عزیز باسلام.

از نظر شدن میشه. اما شما همیشه یکی از ستونهای فایلتون حاوی اطلاعات هست و به نظر بنده نیازی به اجرای این کار نیست.

یک سوال ؟

دلیل اینکه ردیف های خالی در فایلتون وجود داره چی هست ؟؟؟ چرا باید ردیفی ایجاد بشه که بعدش بخواد مخفی بشه؟؟؟

[a.dal65]

دلیلش اینه که من از تاریخ 1 تا 6 فروردین 10 تا چک دارم در صورتیکه تو همون تاریخ 20 تا چک دادم
و کد بر اساس ستون 10 تا چک عمل میکنه
اگه باز هم منظورمو متوجه نشدید فایل نمونه بزارم
ممنون

[iranweld]

با سلام

کد hide را بدین صورت اصلاح کنید

Sub Hide()
Application.ScreenUpdating = False
Dim A As Range

z1 = Sheets("فرم").Cells(Sheets("فرم").Rows.Count, "b").End(xlUp).Row
z2 = Sheets("فرم").Cells(Sheets("فرم").Rows.Count, "f").End(xlUp).Row

If z1 >= z2 Then

    With ActiveSheet.Range("B1:B126")
        Do
            Set A = .Find("", LookIn:=xlValues, LookAt:=xlWhole, _
                    MatchCase:=False)
            If A Is Nothing Then Exit Do
            A.EntireRow.Hidden = True
        Loop
    End With
    
    Else
    
    With ActiveSheet.Range("f1:f126")
        Do
            Set A = .Find("", LookIn:=xlValues, LookAt:=xlWhole, _
                    MatchCase:=False)
            If A Is Nothing Then Exit Do
            A.EntireRow.Hidden = True
        Loop
    End With
    
    End If
    
    Application.ScreenUpdating = True
    
End Sub 

به روش دیگر

Sub Hide()

Application.ScreenUpdating = False

   Range("A4").Select
   
   Do Until ActiveCell.Offset(1, 0) = ""
   
    ActiveCell.Offset(1, 0).Select
    
    
   Loop
   
  Z1 = ActiveCell.Row+1
   
    Range("E4").Select
   
   Do Until ActiveCell.Offset(1, 0) = ""
   
    ActiveCell.Offset(1, 0).Select
    
    
   Loop
   
Z2 = ActiveCell.Row+1
      
   If Z1 >= Z2 Then

   Rows(Z1 & ":" & Z1).Select
    Range(Selection, Cells(250, 1)).Select
    Selection.EntireRow.Hidden = True
   
    Else
    
    Rows(Z2 & ":" & Z2).Select
     Range(Selection, Cells(250, 1)).Select
    Selection.EntireRow.Hidden = True
    
    End If
    
     Rows("251:256").EntireRow.Hidden = False
     Range("F256").Select
    
    
   Application.ScreenUpdating = True
    
End Sub 

[امين اسماعيلي]

ba drod

babate adame dastresi be keyboard farsi mazerat,
ye moredi ke to code nevisia say konin royat konin ine ke az name code sheet ha estefade konin , masalan agar be tore sahvi name sheet morede nazar dar mesale yad shode avaz beshe be moshkel bar mikhorin.

mahigiri o yad bedin na mahiiiiiiiiiiiiii, ghobone dasteton , fadaye hameye zahmai ke mikeshin

movafagh va piroz bashin