Makro ile Aynı Anda Farklı Satır Aralarını Gizleme

[Barfly]

Herkese selam,

Aşağıdaki kodu kullanarak sadece E13 ve E20 arası hücrelerde sıfır olanları gizletebiliyorum. Ben hem 13/20 hem de 29/36 arası satırları sorgulasın istiyorum. 20/29 arası satırlara bakmamalı. Yani 13 den 36 ya sorgulatamam. Konuyla ilgili yardımlarınızı rica ederim.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
For Satır = 13 To [A20].End(1).Row
If Cells(Satır, "E").Value = 0 Then
Rows(Satır).EntireRow.Hidden = True
End If
Next
End Sub


Saygılarımla,

 

[leumruk]

Merhaba,
Kodun içineikinci bir döngü ekleyerek sorun çözülebilir:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
For Satır2 = 36 To 29 Step-1
If Cells(Satır2, "E").Value = 0 Then Rows(Satır2).EntireRow.Hidden = True
Next

For Satır = 20 To 13 Step-1
If Cells(Satır, "E").Value = 0 Then Rows(Satır).EntireRow.Hidden = True
Next
End Sub

 

[Barfly]

Sayın leumruk,

Tam istediğim şekilde çalışıyor, ilginiz için teşekkür ederim.

Saygılarımla,

 

[leumruk]

Sayın leumruk,

Tam istediğim şekilde çalışıyor, ilginiz için teşekkür ederim.

Saygılarımla,

Ria ederim. İyi çalışmalar.