Gizle - Goster Butonu

[mustafaine1]

Arkadaslar Merhaba, ekli dosyadaki pembe bolumdeki kirmizi satirlari otomatik gizle goster yapmak istiyorum, ilginize simdiden tesekkurler...

 

[Ömer]

Merhaba,

Option Explicit
 
Sub Gizle()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To [B65536].End(3).Row
    If Cells(i, "b").Interior.ColorIndex = 3 Then
        Rows(i).EntireRow.Hidden = True
    End If
Next i
Application.ScreenUpdating = True
End Sub
 
 
Sub Göster()
Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

Bu şekilde denermisiniz..

.

 

[Orion1]

Dosyanız ektedir.
Ctrl+t gizle
Ctrl+f göster

Sub gizle()
Dim myarr()
myarr = Array("2", "5", "17", "22", "28", "33", "35", "41", "46")
For i = 0 To 8
    Rows(myarr(i)).Hidden = True
Next
End Sub
Sub göster()
Dim myarr()
myarr = Array("2", "5", "17", "22", "28", "33", "35", "41", "46")
For i = 0 To 8
    Rows(myarr(i)).Hidden = False
Next
End Sub

 

[mustafaine1]

Sayin hocalarim ıkısıde cok guzel ornekler, ikisinide kaydettim kendim icin yalniz istegim 1 ile 46 satirlari arasinda degisebilen sekilde bos olan hiucreleri gizlemek o yuzden o satirlari boyadim ben..

Option Explicit
 
Sub Gizle()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To [a65536].End(3).Row
    If Cells(i, "a").Value = "" Then
        Rows(i).EntireRow.Hidden = True
    End If
Next i
Application.ScreenUpdating = True
End Sub
 
Sub Göster()
Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
Application.ScreenUpdating = True
End Sub

Omer Hocam orneginizi bu sekilde editledim yalniz takdir edersiniz sayfanin sonuna kadar gizleme yapiyor a65536 yazdigimizdan onu account transfer yazan bolume kadar yapmanin imkani varmidir acaba ?

Ayrica bi ornekte yanlis hatirlamiyorsam gormustum toggle butonla gizle dediginizde buyonun ismide goster oluyordu, yada ben ornegi yanlis anlamistim

 

[Ömer]

Sayfaya bir ToggleButton oluşturduktan sonra aşağıdaki kodları butona atayın.
Veri düzenine göre kırmızı işaretlediğim bölgeyide eklemekte fayda var diye düşündüm.

Option Explicit
 
Private Sub ToggleButton1_Click()
Dim i As Long, c As Range, say As Variant
Application.ScreenUpdating = False
If ToggleButton1.Value = False Then
say = Application.Match("ACCOUNT TRANSFERS", [A:A], 0)
    For i = 1 To say
        If Cells(i, "a") = "" [COLOR=red]And Cells(i, "d") = ""[/COLOR] Then
            Rows(i).EntireRow.Hidden = True
        End If
    Next i
ToggleButton1.Caption = "[B]Göster[/B]"
Else
Cells.EntireRow.Hidden = False
ToggleButton1.Caption = "[B]Gizle[/B]"
End If
Application.ScreenUpdating = True
End Sub

.

 

[mustafaine1]

Hocam mukemmel bisey varsa o sizsiniz, hem benim icin ogrenilici bir kod kumesine dondu baslik hem istedigim oldu, ikinizede ayri ayri cok tesekkur ederim ellerinize saglik..

 

[mustafaine1]

Hocam bir soru daha ekliyeyim ben say variatinizin degerini offset etmeye calistim fakat basaramadim 6 hane geri offset yapmak istiyorum bunu nasil yaparim..

 

[Ömer]

 For i = 1 To say - 6

Bu şekilde deneyin.

.

 

[mustafaine1]

Hala neden range olarak dusundugumu anlayamıyorum, cok fazla tecrube edinmem lazim cok tesekur ederim tekrar elinize saglik..

 

[Ömer]

Rica ederim, iyi çalışmalar..