Skip to main content

AccessTr.neT


Satır Gizleme

Satır Gizleme

#7
@feraz üstad eline sağlık. Bu da alternatif olsun.

Sub test()

  beginrow = 2    'başlangıç satır numarasıdır
  endrow = 2000  'bitiş satır numarasıdır
  checkcol = 9    'değeri kontrol edilecek kolon numarasıdır
 
    For rownum = beginrow To endrow
   
      If Cells(rownum, checkcol).Value >= 15 Then
      Cells(rownum, checkcol).EntireRow.Hidden = True
      End If
     
    Next rownum
     
End Sub

Bu kod belirli sayıda satır için çalıştırmanıza yarayan alternatiftir, belki konuyu inceleyen arkadaşların işine yarar.
Bu kodda dikkat edilmesi gereken husus beginrow ve endrow sayısıdır. Çalışmanızdaki beginrow başlık satırınız var ise onun altından başlamalı ki bu örnekte 2. satır ve endrow çalışmanızdaki satır sayısından az olur ise kod sadece o alan için çalışır.
Cevapla
#8
(07/11/2020, 17:58)atoykan yazdı: @feraz üstad eline sağlık. Bu da alternatif olsun.

Sub test()

  beginrow = 2    'başlangıç satır numarasıdır
  endrow = 2000  'bitiş satır numarasıdır
  checkcol = 9    'değeri kontrol edilecek kolon numarasıdır
 
    For rownum = beginrow To endrow
   
      If Cells(rownum, checkcol).Value >= 15 Then
      Cells(rownum, checkcol).EntireRow.Hidden = True
      End If
     
    Next rownum
     
End Sub

Bu kod belirli sayıda satır için çalıştırmanıza yarayan alternatiftir, belki konuyu inceleyen arkadaşların işine yarar.
Bu kodda dikkat edilmesi gereken husus beginrow ve endrow sayısıdır. Çalışmanızdaki beginrow başlık satırınız var ise onun altından  başlamalı ki bu örnekte 2. satır ve endrow çalışmanızdaki satır sayısından az olur ise kod sadece o alan için çalışır.
Sizinde elinize sağlık abey.Ben bu tarz işlemler için önce tüm satırları görünür yapıyorum.Siz yapmamışsınız galiba.
Cevapla
#9
Default olarak görünür olduğu ve örnekte başka makro ve kod olmadığı için eklemedim. Ancak belirttiğiniz iyi olmuş başta tüm satırların görünürlüğü eklenebilir.
Cevapla
#10
Teşekkür ederim.
Cevapla
#11
(07/11/2020, 17:58)atoykan yazdı: @feraz üstad eline sağlık. Bu da alternatif olsun.

Sub test()

  beginrow = 2    'başlangıç satır numarasıdır
  endrow = 2000  'bitiş satır numarasıdır
  checkcol = 9    'değeri kontrol edilecek kolon numarasıdır
 
    For rownum = beginrow To endrow
   
      If Cells(rownum, checkcol).Value >= 15 Then
      Cells(rownum, checkcol).EntireRow.Hidden = True
      End If
     
    Next rownum
     
End Sub

Bu kod belirli sayıda satır için çalıştırmanıza yarayan alternatiftir, belki konuyu inceleyen arkadaşların işine yarar.
Bu kodda dikkat edilmesi gereken husus beginrow ve endrow sayısıdır. Çalışmanızdaki beginrow başlık satırınız var ise onun altından  başlamalı ki bu örnekte 2. satır ve endrow çalışmanızdaki satır sayısından az olur ise kod sadece o alan için çalışır.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task