Satır gizle-göster makrosu

[ilhaan]

İyi Akşamlar. Çok uğraşmama rağmen satır gizle ve göster makrosunu oluşturamadım. Aslında makro olmasa da olur. Commanbuton yardımı ile de satır gizle ve göster olabilir. Ancak bir yerde rastlamıştım. Buton yardımı ile gizlendiğinde buton yazısı göster, satırlar gösterildiğinde ise buton yazısı gizle ibaresi mevcuttu. Yardımlarınız için şimdiden teşekkürler...

 

[1Al2Ver]

Merhaba,

Dosyanıza bakmadım, ama bu işi ToggleButton ile yapabilirsiniz,

Aşağıdaki kodlar, H7:H53 aralığını gösterir ve gizler, ilgili sayfanın kod bölümüne yazınız,

Hücre aralığını kendinize göre düzenleyebilirsiniz.

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
ToggleButton1.Caption = "Göster"
Range("H7:H53").NumberFormat = ";#,##0.00;"
Else
ToggleButton1.Caption = "Gizle"
Range("H7:H53").NumberFormat = "#,##0.00;"
End If
End Sub

 

[ilhaan]

Yardımlarınız için teşekkürler.

 

[1Al2Ver]

2 ayrı düğme ile Gizle Göster makroları, C9:C85 aralığı için, aralıkları kendinize göre düzenleyebilirsiniz,

Sub Gizle()
For Each t In Range("C9:C85").Cells
If t.Value = "" Then 'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
Next t
End Sub

Sub Göster()
For Each t In Range("C9:C85").Cells
If t.Value = "" Then 'boş hücreleri gösterir
t.EntireRow.Hidden = False
End If
Next t
End Sub

 

[ilhaan]

Arkadaşlar ToggleButton ile gizle ve göster komutunu yapabildim ancak satırları kodlayamadım. Ben cd213 ile cd236 arasındaki bölümde isim var ise gösterecek yok ise bu satırları silecek. Tekrar yardımlarınızı bekliyorum. Şimdiden teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Kullandığınız kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub ToggleButton1_Click()
    Dim Satır As Long
    
    Application.ScreenUpdating = False
    
    If ToggleButton1 = True Then
        Rows("213:236").EntireRow.Hidden = False
        
        For Satır = 213 To 236
            If Cells(Satır, "CD") = "" Then
                Rows(Satır).Hidden = True
            End If
        Next

        ToggleButton1.Caption = "GÖSTER"
    
    Else

        Cells.EntireRow.Hidden = False
        ToggleButton1.Caption = "GİZLE"

    End If
 
    Application.ScreenUpdating = True
End Sub

 

[FASEN]

Makro istedeği

Arkadaşlar ekteki örnek dosyada gerekli açıklamaları yaptım. Yardımcı olur musunuz?

(A ve B sütününda AL-SAT değerleri mevcut C sütununda ise bunun kar-zararları hesaplatılacak.)

Şimdiden teşekkürler..

 

[hakan006]

selamlar

Arkadaşlar ekli dosyada forumda yazılan kodlara bakarak birşeyler yapmaya çalıştım ama olmadı. yardımcı olabilirseniz sevinirim

 

[Korhan Ayhan]

Yazım hatası yapmışsınız. Aşağıdaki gibi deneyin.

Sub Gizle()
    For Each t In Range("A1:A6, A8:A12, C15:C18")
    If t.Value = "0" Then 'boş hücreleri gizler
    t.EntireRow.Hidden = True
    End If
    Next t
End Sub

 

[hakan006]

teşekkür ederim

 

[hakan006]

arkadaşlar merhaba.aşağıdaki formülde hücre boş ise satırı gizliyor. ancak hücreye değer gelince göster yaptığımda satır geri gelmiyor. yani hücreye "1,2,3......vb" rakamlar gelince göster çalışmıyor. yardımcı olursanız çok sevinirim.
Sub Gizle()
For Each t In Range("C9:C85").Cells
If t.Value = "" Then 'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
Next t
End Sub


Sub Göster()
For Each t In Range("C9:C85").Cells
If t.Value = "" Then 'boş hücreleri gösterir
t.EntireRow.Hidden = False
End If
Next t
End Sub

 

[Korhan Ayhan]

Merhaba,

Yine yanlış yorum yapmışsınız. Hücre boş değilse diyorsunuz fakat kod satırında "eşittir boş ise" koşulunu sorguluyorsunuz. Bu durumda makro istediğiniz sonucu vermiyor.

Kırmızı renkli bölümü düzeltirseniz sorun düzelecektir.

If t.Value [COLOR="Red"]<>[/COLOR] "" Then 'boş hücreleri gösterir

 

[hakan006]

arkadaşlar aşağıdaki kodlarda hücrede değer yok ise gizle komutu çalışıyor ve satır gizleniyor. ancak hücreye "1,2,3,4..125...vb.." rakamlar gelince göster komutu çalışmıyor.nasıl yapabilirim bunu yardımcı olursanız çok sevinirim.
Sub Gizle()
For Each t In Range("C9:C85").Cells
If t.Value = "" Then 'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
Next t
End Sub

Sub Göster()
For Each t In Range("C9:C85").Cells
If t.Value = "buraya ne yazmalıyım?" Then 'boş hücreleri gösterir
t.EntireRow.Hidden = False
End If
Next t
End Sub

 

[hakan006]

Korhan bey vermiş olduğunuz formülde gizle komutu çalışıyor ancak bide göster komutu yapmak istiyorum yani gizlenen tüm satırları göstermesini istiyorum aşağıdaki gibi yaptım ama olmadı "0" değeri yerine 1,2,3...124vb değer gelince göstermiyor nasıl yazabilirim yardımcı olursanız çok sevinirim.
Sub Göster()
For Each t In Range("A1:A6, A8:A12, C15:C18")
If t.Value = "0" Then 'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
Next t
End Sub

 

[Korhan Ayhan]

Merhaba,

13 nolu mesajınızda "buraya ne yazmalıyım" diye belirttiğiniz satırı silin ve benim verdiğim satırı yazıp deneyin.

 

[hakan006]

arkadaşlar merhaba acil yardımınız gerekli. koşula göre satır gizle ve göster butonu yapmak istiyorum. hücre değeri "0 veya değer yok ise" satır gizlenecek "1,2,3...vb" değer var ise satır gösterilecek. yardımcı olursanız çok sevinirim.

 

[hakan006]

merhaba

Korhan bey başını ağrıtıyorum ama ben bu işi beceremdim. örnek tablo gönderiyorum bakmanız mümkünmü acaba. tşkler

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Düğme3_Tıklat()
    For Each t In Range("C2:C8, B11:B17").Cells
    If t.Value <> "0" Then 'boş hücreleri gösterir
    t.EntireRow.Hidden = False
    End If
    Next t
End Sub

 

[leylaz]

Arkadaşlar satır gizle kodumuzu koruması açık olan bir sayfada çalıştıramıyorum. Çalışma sayfasını koru izinleri seçeneklerinde satır gizle opsiyonuda yok.

Sayfa koruma aktifken satır gizleme işlemini nasıl yapabilirim?

 

[Emir Hüseyin Çoban]

Arkadaşlar satır gizle kodumuzu koruması açık olan bir sayfada çalıştıramıyorum. Çalışma sayfasını koru izinleri seçeneklerinde satır gizle opsiyonuda yok.
Sayfa koruma aktifken satır gizleme işlemini nasıl yapabilirim?

. . .

İnceleyiniz.
http://www.excel.web.tr/f48/sayfayy-korumaya-alynca-makro-hata-veriyor-t139280.html

. . .