Satır Gizleme

[bezl]

Merhaba,
c5'den c37'ye kadar değerleri sıfır ise satırların gizlenmesi için şöyle bir makro yazdım ama hata veriyor. Sorun ne olabilir acaba

Sub gizle()
  For i = 5 To 37
  If Cells(i, 3).Value = 0# Then
    Rows(i, 3).Select
    Selection.EntireRow.Hidden = True
    Else
    Selection.EntireRow.Hidden = False
  End If
  Next i
End Sub

 

[Merhum İdris SERDAR]

Satır gizleme ve gösterme için aşağıdaki kodları deneyin

Sub gizle()

For i = 5 To 37
If Cells(i, 3).Value = 0# Then
Worksheets("Sheet1").Rows(i).Hidden = True
Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
Next i
End Sub


Sub goster()

For i = 5 To 37
If Cells(i, 3).Value = 0# Then
Worksheets("Sheet1").Rows(i).Hidden = False
Selection.EntireRow.Hidden = True
Else
End If
Next i

End Sub

 

[Levent Menteşoğlu]

Bir ek bilgi verelim. Rows ve Columns komutlarında satır veya sütunu tanımlamak tek değer verilir. Ã?rneğin;

Rows(1) veya Rows("1:1")

Columns(1) veya Columns("A:A") gibi

 

[Merhum İdris SERDAR]

Sayın Leventm,

Verdiğiniz bilgi çok doğru da... Verdiğimiz bu bilgiler soru soranın işine yaradı mı? Hadi Teşekkürü kenarda dursun.

Saygılarımla...

 

[bezl]

cevaplar için çok teşekkür ederim. Ancak soruyu yazdıktan kısa bir süre sonra aşağıdaki şekilde çözdüm.

Sub gizle()
  For i = 4 To 42
    If Cells(i, 3).Value = 0 Then
        Cells(i, 3).Select
        Selection.EntireRow.Hidden = True
    Else
        Cells(i, 3).Select
        Selection.EntireRow.Hidden = False
    End If
  Next i
Range("a1").Select
End Sub

 

[maverick6]

Merhaba,

Hücrede formül varsa nasıl gizleme yapabiliriz. Ekteki örneğe göre AA6 ile AA185 arasında boş olanların gizlenmesini nasıl yaparım.

teşekkürler.