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

Visual Basic Code
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 Adlı Kullanıcıdan Alıntı:

Visual Basic Code
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 Adlı Kullanıcıdan Alıntı:
(07/11/2020 14:51)feraz Adlı Kullanıcıdan Alıntı:

Visual Basic Code
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 Adlı Kullanıcıdan Alıntı:

Visual Basic Code
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