#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.
Dosya.rar
(Dosya Boyutu: 14,23 KB | İndirme Sayısı: 6)
Satır Gizleme
#1
Dosya.rar
(Dosya Boyutu: 14,23 KB | İndirme Sayısı: 6)
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(07/11/2020, 14:51)feraz yazdı:Cevabınız için teşekkür ederim. Ancak kodu kodlatıp makro olarak eklediğimde çalışmadı.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
(07/11/2020, 16:12)iznik yazdı:Rica ederiz çalışmayan ve eklediğiniz kod ile dosyayı yüklermisiniz.(07/11/2020, 14:51)feraz yazdı:Cevabınız için teşekkür ederim. Ancak kodu kodlatıp makro olarak eklediğimde çalışmadı.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
Kodu çalıştırmanız gerekecek bir düğmeye ekletip.
(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
<= 15 buradki işareti > olarak değiştiriniz.
Konuyu Okuyanlar: 1 Ziyaretçi
