AccessTr.neT
Satır Gizleme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Satır Gizleme (/konu-satir-gizleme.html)

Sayfalar: 1 2


Satır Gizleme - iznik - 07/11/2020

I sütunundaki değer 15 ve 15 den büyük olduğunda o satırı nasıl gizleyebilirim? Yardımlarınız için teşekkür ederim.


Re: Satır Gizleme - feraz - 07/11/2020

Sub test()
    Dim i As Long
    With ThisWorkbook.Sheets("Sayfa 1")
        Application.ScreenUpdating = False
        .Range("A2:A" & Rows.Count).EntireRow.Hidden = False
        For i = .Cells(Rows.Count, "i").End(3).Row + 1 To 2 Step -1
            If .Cells(i, "i").Value <= 15 Then .Cells(i, "i").EntireRow.Hidden = True
        Next
         Application.ScreenUpdating = True
    End With
End Sub



RE: Satır Gizleme - iznik - 07/11/2020

(07/11/2020, 14:51)feraz yazdı:
Sub test()
    Dim i As Long
    With ThisWorkbook.Sheets("Sayfa 1")
        Application.ScreenUpdating = False
        .Range("A2:A" & Rows.Count).EntireRow.Hidden = False
        For i = .Cells(Rows.Count, "i").End(3).Row + 1 To 2 Step -1
            If .Cells(i, "i").Value <= 15 Then .Cells(i, "i").EntireRow.Hidden = True
        Next
         Application.ScreenUpdating = True
    End With
Cevabınız için teşekkür ederim. Ancak kodu kodlatıp makro olarak eklediğimde çalışmadı.


RE: Satır Gizleme - feraz - 07/11/2020

(07/11/2020, 16:12)iznik yazdı:
(07/11/2020, 14:51)feraz yazdı:
Sub test()
    Dim i As Long
    With ThisWorkbook.Sheets("Sayfa 1")
        Application.ScreenUpdating = False
        .Range("A2:A" & Rows.Count).EntireRow.Hidden = False
        For i = .Cells(Rows.Count, "i").End(3).Row + 1 To 2 Step -1
            If .Cells(i, "i").Value <= 15 Then .Cells(i, "i").EntireRow.Hidden = True
        Next
         Application.ScreenUpdating = True
    End With
Cevabınız için teşekkür ederim. Ancak kodu kodlatıp makro olarak eklediğimde çalışmadı.
Rica ederiz çalışmayan ve eklediğiniz kod ile dosyayı yüklermisiniz.
Kodu çalıştırmanız gerekecek bir düğmeye ekletip.


RE: Satır Gizleme - iznik - 07/11/2020

Dosyayı yükledim.


RE: Satır Gizleme - feraz - 07/11/2020

(07/11/2020, 14:51)feraz yazdı:
Sub test()
    Dim i As Long
    With ThisWorkbook.Sheets("Sayfa 1")
        Application.ScreenUpdating = False
        .Range("A2:A" & Rows.Count).EntireRow.Hidden = False
        For i = .Cells(Rows.Count, "i").End(3).Row + 1 To 2 Step -1
            If .Cells(i, "i").Value <= 15 Then .Cells(i, "i").EntireRow.Hidden = True
        Next
         Application.ScreenUpdating = True
    End With
End Sub

Ben küçük olarak görmüşüm Img-grin
<= 15 buradki işareti > olarak değiştiriniz.