Satır Gizleme ve gösterme

[mab82]

Merhaba Arkadaşlar. Bir makro çalışması buldum ancak anlamadığım için düzenleme yapamadım.

İstediğim olay örnek dosyada daha açıklayıcı.

A:A sütunundaki 1 değeri olan satırların gizlenmesi. Bu 1 değeri EĞER fonksiyonu ile gelmektedir. Hızlı bir şekilde gizleme yapan bir dosya buldum ancak istediğim koşula getiremedim. Yardımlarınızı bekliyorum.


Saygılarımla. . .

 

[Mahir64]

Merhaba

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

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

 

[halit3]

Merhaba Arkadaşlar. Bir makro çalışması buldum ancak anlamadığım için düzenleme yapamadım.

İstediğim olay örnek dosyada daha açıklayıcı.

A:A sütunundaki 1 değeri olan satırların gizlenmesi. Bu 1 değeri EĞER fonksiyonu ile gelmektedir. Hızlı bir şekilde gizleme yapan bir dosya buldum ancak istediğim koşula getiremedim. Yardımlarınızı bekliyorum.


Saygılarımla. . .

SAYIN Black Lord kodu yazmış bende yazmıştım boşa gitmesin
alternatif olsun

Sub Gizle()
For i = 1 To Cells(Rows.Count, "a").End(3).Row
If Cells(i, "a").Value = 1 Then
Rows(i).EntireRow.Hidden = True
End If
Next
End Sub
Sub göster()
Cells.EntireRow.Hidden = False
End Sub

 

[mab82]

çok teşekkür ederim. istediğim kodlama bu ancak benim merak ettiğim bu işlem tek tek satır satır gizleme olayını daha seri bir şekilde yapamazmıyız? yani butona bastığımız anda gösterdiği gibi gizleme işlemini de hızlı bir şekilde nasıl yaptırabiliriz ?

Teşekkürler, Saygılar...