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

[a.dal65]

اساتید من یه جدول دارم که میخوام وقتی توی جدولم هر چند تا سطر خالی موند (blank بود) اونها رو مخفی کنم.
(با یه ماکرو این کارو انجام بدم)
توی انجمن سرج کردم چیزی پیدا نکردم
ولی توی گوگل بود و نتونستنم کارمو راه بندازم
کسی میتونه کمک کنه ؟
how to auto hide row - Recherche Google

[amir_ts]

با سلام
دو تا CommandButton اضافه کنید به ترتیب داخل قسمت کد نویسی این کدها رو بنویسید.داخل یک CommandButton نام macro1 را بنویسید.

sub macro1()
range("b2").select
do while activecell.row < 100
if activecell.value = "" and activecell.offset(0,1).value = "" then
Selection.EntireRow.Hidden = True
endif
activecell.offset(1,0).select
loop
end sub 

Cells.Select
    Selection.EntireRow.Hidden = Fals 

e

[a.dal65]

ممنون امیر جان
تست کردم بدرستی کار کرد
فقط نتونستم توی فایل اصلیم (روی دکمه بررسی) پیاده کنم.

[amir_ts]

دوست عزیز دکمه بررسی رو پاک کنید و از قسمت DEVELOPER قسمت INSERT و در آخر ACTIVE X CONTOROLS یک command button اضافه کنید و داخل اون کد رو بنویسید.

[mobinsaffarpour]

سلام دوست عزیز . اگر یک محدوده خاص را در نظر دارید می توانید از فایل پیوست استفاده نمائید.

[amir_ts]

فایل پیوست شد.

[a.dal65]

سلام دوست عزیز . اگر یک محدوده خاص را در نظر دارید می توانید از فایل پیوست استفاده نمائید.

حالا اگه بخوام همین رنجی که hide شده رو با یه دکمه دیگه unhide کنم از چه دستوری استفاده کنم ؟

فایل پیوست شد.

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

[amir_ts]

با سلام
برای تغیر باید از تب developer قسمت Design mode رو بزنید تا بتونید هر تغیری بدید.

[generalsamad]

با سلام
و با اجازه دوستان

نوع دکمه ایجاد شده از نوع Active X بوده

برای اینکه بتونید روی دکمه راست کلیک کنید باید اون Design کنید
طبق شکل این قسمت رو فعال کنید

[mobinsaffarpour]

تقدیم به شما دوست عزیز

[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