Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Satır Gizleme

iznik
iznik
Excel Cevaplanmış Soruları
10
1297

Satır Gizleme

Çözüldü #1
iznik
Üye
iznik
Bul
Üye
Adı Soyadı:
Yaşı: 53
Konum:
Ofis Versiyonu:
Son Oturumu: 22/01/2021,00:45
Yorumları: 5
Konuları: 1
Kayıt Tarihi: 07/11/2020
Teşekkür Puanı: 0
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
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 48
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316 
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
iznik
Üye
iznik
Bul
Üye
Adı Soyadı:
Yaşı: 53
Konum:
Ofis Versiyonu:
Son Oturumu: 22/01/2021,00:45
Yorumları: 5
Konuları: 1
Kayıt Tarihi: 07/11/2020
Teşekkür Puanı: 0
(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
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 48
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
(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
iznik
Üye
iznik
Bul
Üye
Adı Soyadı:
Yaşı: 53
Konum:
Ofis Versiyonu:
Son Oturumu: 22/01/2021,00:45
Yorumları: 5
Konuları: 1
Kayıt Tarihi: 07/11/2020
Teşekkür Puanı: 0
Dosyayı yükledim.
.rar Dosya.rar (Dosya Boyutu: 20,38 KB | İndirme Sayısı: 2)
Cevapla
#6
feraz
Uzman
feraz
Bul
Uzman
Adı Soyadı: Za....
Yaşı: 48
Konum: -
Ofis Versiyonu: Diğer
Son Oturumu: 28/07/2024,00:46
Yorumları: 3.642
Konuları: 95
Kayıt Tarihi: 30/03/2013
Teşekkür Puanı: 316
(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