satır gizleme

[yuzun23]

Arkadaşlar ekteki tabloda sarı ile yazılan konuda yardımlarınızı bekliyorum. şimdiden teşekkürler

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub gizle()
For i = 26 To 30
    If Cells(i, "A") = "" Then
        Rows(i).EntireRow.Hidden = True
    Else
        Rows(i).EntireRow.Hidden = False
    End If
Next
End Sub

 

[yuzun23]

Kardeşim teşekkür ederim Allah razı olsun yalnız ben kod özürlüyüm yani bunu ne yapmam lazım nereye eklemem lazım lütfen yardımcı olur musunuz bir daha kimseyi rahatsız etmemek için Ne tür işlemler yapmam lazım yardımcı olur musunuz bazen bu kod bilgileri geliyor nereye ekleyeceğim lütfen

 

[YUSUF44]

Kodları kopyalayın
Excel dosyasında sayfa sekmesine sağ tıklayıp Kod Görüntüle deyin
Açılan VBA sayfasında Insert menüsünden Module seçin
Sağda açılan boş sayfaya kodları yapıştırın

Makronuz hazır

Çalıştırmak için Excel sayfasına bir düğme/nesne/resim ekleyin
Eklediğinize sağ tıklayıp makro ata deyin
Açılan menüde makroyu seçip tamam deyin

Artık o düğmeye/nesneye/resme her tıkladığınızda makro çalışacaktır

 

[yuzun23]

Teşekkür ederim

 

[yuzun23]

yusuf kardeşim cok Teşekkür ederim. becerebildim. peki gizlenen sayfayı nasıl tekrar görünebilir yapabilirim Allah razı olsun

 

[Korhan Ayhan]

Aşağıdaki kodu kullana bilirsiniz.

Sub Satirlari_Goster()
    Rows("26:30").Hidden = False
End Sub

 

[yuzun23]

Aşağıdaki kodu kullana bilirsiniz.

Sub Satirlari_Goster()
    Rows("26:30").Hidden = False
End Sub

TEŞEKKÜR EDERİM KARDEŞİM

 

[Seyit Tiken]

Pratik Alternatif : Hangi hücredeyseniz çift tıklayınız, dolu satırlara göre satırları açar ve gizler. Kodu sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
[A26:A30].SpecialCells(4).EntireRow.Hidden = _
[A26:A30].SpecialCells(4).EntireRow.Hidden = 0
End Sub

 

[yuzun23]

Pratik Alternatif : Hangi hücredeyseniz çift tıklayınız, dolu satırlara göre satırları açar ve gizler. Kodu sayfanın kod bölümüne yapıştırınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
[A26:A30].SpecialCells(4).EntireRow.Hidden = _
[A26:A30].SpecialCells(4).EntireRow.Hidden = 0
End Sub

TEŞEKKÜR