Note: The other languages of the website are Google-translated. Back to English

Bir sütundaki boş hücreler varsa satırları otomatik olarak nasıl gizleyebilirim?

Bir sütundaki bazı boş hücreleri dolduran bir veri aralığınız varsa ve şimdi, o sütundaki boş hücreleri içeren satırları otomatik olarak gizlemek istersiniz. Excel'de bu işi hızlı ve kolay bir şekilde çözmenin iyi yolları var mı?

VBA kodlu bir sütundaki boş hücreler varsa satırları otomatik gizle


ok mavi sağ balon VBA kodlu bir sütundaki boş hücreler varsa satırları otomatik gizle

Aşağıdaki kod, belirli bir sütundaki boş hücreler bir defada varsa tüm satırları gizlemenize yardımcı olabilir ve bu sütundaki hücre içeriğini silerseniz, satırlar da otomatik olarak gizlenir. Lütfen aşağıdaki işlemleri yapın:

1. Bir sütunda boş hücreler varsa satırları otomatik olarak gizlemek istediğiniz sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden, açılır pencerede Uygulamalar için Microsoft Visual Basic penceresi, lütfen aşağıdaki kodu boşluğa kopyalayıp yapıştırın modül:

VBA kodu: Bir sütundaki boş hücreler varsa satırları otomatik gizle:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("A1:A20")
            If xRg.Value = "" Then
                xRg.EntireRow.Hidden = True
        
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub

doc 1. satırları otomatik gizle

not: Yukarıdaki kodda, A1: A20 otomatik olarak gizlemek istediğiniz boş hücreleri içeren veri listesidir.

2. Ardından çalışma sayfasına geri dönün ve şimdi, herhangi bir hücreye çift tıkladığınızda ve düğmesine bastığınızda Keşfet tuşu, A sütununda boş hücreler içeren satırlar bir kerede gizlenmiştir ve A sütununun belirtilen hücrelerindeki herhangi bir hücre içeriğini temizlerseniz, satırlar otomatik olarak gizlenecektir.

doc 2. satırları otomatik gizle

 


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı

 

Yorumları sıralama ölçütü
Yorumlar (32)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, excel 2016 kullanıyorum ve çalışmıyor. Bir sözdizimi hata mesajı alıyorum. Yardım edebilir misin?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Karınca,

Yukarıdaki kod Excel 2016'mda iyi çalışıyor, koddaki hücre referansını ihtiyacınıza göre değiştirdiniz mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Çalışma zamanı hatası '13' alıyorum:



Tür uyumsuzluğu



Yardımcı olabilecek biri???
Bu yorum sitedeki moderatör tarafından en aza indirildi
Enter tuşuna bastıktan sonra bu makronun otomatik olarak çalışmasını durdurabilir miyim? Yalnızca tıkladığımda hücreleri gizlemek için bir düğmeye ekleyebilir miyim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
bunu hiç kimse anladı mı? ben de bilmek isterim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
cevabı bulabilen var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
aynı soru burada
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba beyler,
Belirli bir sütunun boş hücreler içerdiği satırları bir düğme kullanarak gizlemek için lütfen şunu yapın:
İlk olarak, Geliştirici sekmesinden bir Komut Düğmesi eklemelisiniz.
Ardından Komut Düğmesi için aşağıdaki VBA kodunu uygulayın, (Not: lütfen a1:a20 hücre referansını kendinize göre değiştirin)

Özel Alt KomutDüğmesi1_Click ()
Aralık Olarak Karartma, Aralık Olarak x
Set rng = Aralık("a1:a20")
Application.ScreenUpdating = Yanlış
Rng'de Her x İçin
Len(x.Text) = 0 ise
x.EntireRow.Hidden = Doğru
başka
x.EntireRow.Hidden = Yanlış
Eğer son
Sonraki x
Application.ScreenUpdating = True
End Sub

Lütfen deneyin, umarım size yardımcı olabilir!
Bu yorum sitedeki moderatör tarafından en aza indirildi
VBA koduyla 2 farklı sütunda boş hücreler varsa satırları otomatik olarak gizleme
Bu yorum sitedeki moderatör tarafından en aza indirildi
selam salpa,
2 farklı sütunda boş hücreler varsa satırları otomatik olarak gizlemek için lütfen aşağıdaki kodu uygulayın:

Özel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Dim xRg, xCell As Menzil
Dim xRgs, xRgArea As Aralık
xRgs = Aralık ("A1:A22,D1:D22") olarak ayarla
Application.ScreenUpdating = Yanlış
Hatada Ctn'ye Git
xRgs.Areas'taki Her xRgArea İçin
Debug.Print xRgArea.Address
xRgArea.Columns'daki Her xRg İçin
xRg.Rows'daki Her xCell için
Eğer xCell.Value = "" O zaman
xCell.EntireRow.Hidden = Doğru
Ctn'ye Git
ElseIf Değilse xCell.EntireRow.Gizli O zaman
xCell.EntireRow.Hidden = Yanlış
Eğer son
ctn:
Sonraki
Sonraki
Sonraki
Application.ScreenUpdating = True
End Sub

Hücre referanslarını ihtiyacınıza göre değiştirebilirsiniz.
Lütfen dene!
Bu yorum sitedeki moderatör tarafından en aza indirildi
بسم الله وجزاكم الله خيرا هذا الكود رائع ولكن رائع ولكن رائع بتطبيق كود الصف يبطأ الشيت بطريقة طويلة مادا
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kodun çalışıp çalışmayacağını bilmek istiyorum Formül sonucunda hücre boşsa?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, ACHINTA,
Yukarıdaki VBA kodu da formül sonucu boş hücrelere uygulanıyor, deneyebilirsiniz, teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Formül, başlangıçta bilgilere dayalı olarak hücreleri gizlemek için çalışır, ancak içerikleri değiştiğinde hücreleri yeniden ortaya çıkarmaz. Bilgiyle doldurulmuş (hücre araması yoluyla oluşan) tüm yeni hücreleri ortaya çıkarmasını istiyorum. Bunu nasıl yaparım?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bom dia, esta é minha também gerekli.

Preciso ocultar e quando a célula for preenchida (uso uma fórmula que preenche bir mesma se houver valor em outra planilha) seja reexibida bir linha novamente de forma automática.

Grato.
Bu yorum sitedeki moderatör tarafından en aza indirildi
İstediğim şey, aktif sayfada çalışmak için şöyle bir şey:

Eğer hücreler D2:D55 = ""
Sonra Hide.EntireRow

D2:D55 hücreleri = "herhangi bir değere sahipse"
Ardından Show.EntireRow

Nasıl?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Kacha, Koddaki hücre referansını aşağıdaki gibi kendi hücre aralığınıza değiştirmeniz yeterlidir: Private Sub Worksheet_Change(ByVal Target As Range)
'güncelleme Extendoffice
Aralık olarak Dim xRg
Application.ScreenUpdating = Yanlış
Aralıktaki Her xRg İçin("D2:D55")
xRg.Value = "" ise
xRg.EntireRow.Hidden = Doğru

başka
xRg.EntireRow.Hidden = Yanlış
Eğer son
Sonraki xRg
Application.ScreenUpdating = True
End Sub Kodu girdikten sonra, kodun etkinleşmesi için lütfen herhangi bir hücreye çift tıklamayı ve Enter tuşuna basmayı unutmayın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Otomatik gizlemeyi geri almanın en basit yolu nedir?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, mình có dùng 2 code trong 1 file excel (1 code là của bạn) với mục đích in ra những bản riêng biệt và không bị thừa dòng trống. Khi mình ấn từng bản thì ok nhưng nếu 1 loạt thì kodunda không có tác dụng, bạn xem giúp mình với nhé, mình cảm ơn!

Alt PRINT_PRINT()
Aralık Olarak Karartma, Aralık Olarak x
Set rng = Aralık("a16:a23")
Application.ScreenUpdating = Yanlış
Rng'de Her x İçin
Len(x.Text) = 0 ise
x.EntireRow.Hidden = Doğru
başka
x.EntireRow.Hidden = Yanlış
Eğer son
Sonraki x
Application.ScreenUpdating = True


Karart p1, p2, ben&
p1 = Sayfa1.Aralık("O1").Değer
p2 = Sayfa1.Aralık("O2").Değer
Eğer IsNumeric(p1) = False veya IsNumeric(p2) = False ise
tb = MsgBox("Öyleyse kod phai la so.", , "Thông báo")
Exit Sub
Eğer son
p1 > p2 ise
tb = MsgBox("Yani kod sau phai >= bu nedenle truoc kodu.", , "Thông báo")
Exit Sub
Eğer son
p1 < 1 Veya p2 < 1 ise
tb = MsgBox("Yani kod phai >= 1.", , "Tanga bao")
Exit Sub
Eğer son
p1 <= p2 ise
i için = p1'den p2'ye
Sheet1.Range("M2").Değer = i
Sayfa1.Yazdır
Sonraki
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hola,Necesito, makro olarak değil, aynı zamanda, sütunlarda değil. Seri olarak: en la birincil fila poner, bir las sütunlar que hiçbir quiero ocultar y no poner ningún valor bir las sütunlar que er ocultar. Estoy haciendo el siguente código, pero no se en que fallo:
Alt OcultarColumnaSin1()
Application.ScreenUpdating = Yanlış
Sütunlardaki Her Rango İçin
Eğer rango = "" O zaman
rango.EntireColumn.Hidden = Doğru
başka
rango.EntireColumn.Hidden = Yanlış
Eğer son
Sonraki rango
Application.ScreenUpdating = True
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu benim için harika çalışıyor, satırları gizler ve değerlerim formüllere göre değiştiğinde onları açar. Sahip olduğum soru, sayfamın 104 satır uzunluğunda olması. Bir hücreyi her tıkladığımda biraz çalkalanıyor. Etkinleştirildiğinde geçişi hızlandırmanın bir yolu var mı? Yoksa benim bilgisayarım mı? Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
E sütunu boş veya 0 ise satırları otomatik olarak gizlemek istiyorum
Bu yorum sitedeki moderatör tarafından en aza indirildi
E sütunundaki değer boş veya 0 ise satırın otomatik olarak gizlenmesini istiyorum. E'deki değer boş veya 0 dışında bir değere dönüşürse, gösterilmesini isterim. Rapor 1500 satırdır
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Cathy,
Boş hücrelere veya 0 değerlerine göre satırları otomatik olarak gizlemek için lütfen aşağıdaki vba kodunu kullanın:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("E1:E1500")
            If (xRg.Value = "") Or (xRg.Value = "0") Then
                xRg.EntireRow.Hidden = True
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub


Lütfen deneyin, umarım size yardımcı olabilir!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Onay kutusu içeren satır nasıl gizlenir?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Sweta

Onay kutulu satırları gizlemek için aşağıdaki makale size bir iyilik yapabilir:
Excel'de Satır Gizlendiğinde Onay Kutusu Nasıl Gizlenir?

Lütfen deneyin, hala başka bir sorunuz varsa, lütfen buraya yorum yapın.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kodu 2013/2019/2021 ofisinde yürütürken çalışıyor ancak tamamlanması çok fazla zaman alıyor (gizlenmesi yalnızca 95 satır).
Bunu nasıl hızlandırabilirsin?
Teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Asaf,
Excel dosyamda kod iyi çalışıyor, sakıncası yoksa ek çalışma kitabınızı buraya yükleyebilir misiniz? Böylece sorunu kontrol etmeye yardımcı olabiliriz.

Teşekkür ederim!
Bu yorum sitedeki moderatör tarafından en aza indirildi
apakah ada rumus lain?, saya berharap baris kosong itu akan terhapus saat mencetak file menjadi PDF tapi tampilan di excelnya tetap
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Nurcan
Sorununuzu çözmek için önce boş satırları gizlemeli ve ardından verileri yazdırmalısınız, verileri yazdırdıktan sonra boş satırları tekrar göstermeniz gerekir. Lütfen şu şekilde yapın:
1. Bu formülü uygulayın: =COUNTA(A2:E2) verilerinizin yanına, ekran görüntüsüne bakın:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-1.png
2. Ardından, yeni yardımcı Boş sütununu filtreleyin, tüm 0 değer satırlarını gizleyin, ekran görüntüsüne bakın:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-2.png
3. Ardından, yeni Boş sütunu gizlemeli ve verileri yazdırmalısınız, çalışma sayfasını yazdırdıktan sonra, lütfen boş satırları gerektiği gibi göstermek için filtreyi iptal edin.
Lütfen deneyin, umarım size yardımcı olabilir!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, makronun "otomasyonu" ile ilgili sorunlar yaşıyorum. Makroyu "manuel olarak" çalıştırmaya ihtiyaç duymadan kodun otomatik bir işlem olarak çalışmasının bir yolunu arıyorum. Kodunuzu kullanmakla ilgili sorunlar bulduğum için kodunuzun kendi varyantını kullanıyorum. Bu benim değişkenim:

Alt HideRows ()
Aralık olarak Dim xRg
Application.ScreenUpdating = Yanlış
Aralıktaki Her xRg için("A3:A800")
Eğer (xRg.Value = "") ise O zaman
xRg.EntireRow.Hidden = Doğru
başka
xRg.EntireRow.Hidden = Yanlış
Eğer son
Sonraki xRg
Application.ScreenUpdating = True
End Sub

Sürekli değişen değerler gerektiren bir elektronik tablo oluşturmaya çalışıyorum, bu nedenle gerçek bir "otomatik" süreç gerektirecektir. VBA'da nispeten yeniyim ve kodunuz aslında gereksinimlerimi zaten karşılıyorsa, bana VBA'da uygulamam için yardım eder/öğretir misiniz? Teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Vian
Aslında yazımızdaki kod otomatik olarak da çalıştırılabilmektedir.
Kodu kopyalayıp geçerli çalışma sayfasının kod modülüne yapıştırmanız, ardından çalışma sayfasına dönmeniz, herhangi bir hücreyi çift tıklamanız ve Keşfet tuşu, boş hücreyi içeren satır doğrudan gizlenir.

Lütfen bu makaledeki yöntemi adım adım takip edin, umarım size yardımcı olabilir!
Teşekkür ederim!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır