Skip to main content

AccessTr.neT


Satır Gizleme

Satır Gizleme

Çözüldü #1
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.
.rar Dosya.rar (Dosya Boyutu: 14,23 KB | İndirme Sayısı: 6)
Cevapla
#2
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
Cevapla
#3
(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ı.
Cevapla
#4
(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.
Cevapla
#5
Dosyayı yükledim.
.rar Dosya.rar (Dosya Boyutu: 20,38 KB | İndirme Sayısı: 2)
Cevapla
#6
(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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task