Boş satırları otomatik gizleme

[2008model]

Merhabalar

benim 400 satırdan oluşan bir çalışmam var.diğer sayfalardan veri alıyor bu sebebten satırlar sayısında opsiyon bırakıyorum.işlem sonuda boş satırları gizleyip yazdırmak istiyorum sayfayı.satırları tek tek gizlemem mümkün değil.acaba makro ile kolayca bu işi halettmek mümkünmü yada en kolay yolu nedir.şimdiden yardım edecek herkese teşekkür eder hayırlı akşamlar dilerim.kolay gelsin

 

[2008model]

Başlık hatalıydı düzelttim.

 

[Orion1]

A sütununu sorgulayarak işlemi yapıyor.

Sub bos_satirlari_gizle()
Dim i As Long
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "A").Value = "" Then Rows(i).Hidden = True
Next i
End Sub
Sub bos_satirlari_goster()
Dim i As Long
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If Cells(i, "A").Value = "" Then Rows(i).Hidden = False
Next i
End Sub

 

[2008model]

Hocam teşekkürler ancak error veriyor hatamı yapıyorum acaba.birde sadece "a" sütünunumu sorguluyor?

 

[Orion1]

A sütunun sorguluyor.Ekli dosyayı inceleyiniz.

 

[2008model]

Hocam bu dosya da bende run tıme error verdi.makro güvenliği tüm makroları etkinleştir olarak ayarlı.

Bir sorum daha var gizleme yaparken tüm satırda değer olmamalı yani tüm satır tamamen boş olmalı.teşekkürler

 

[Orion1]

Hocam bu dosya da bende run tıme error verdi.makro güvenliği tüm makroları etkinleştir olarak ayarlı.

Bir sorum daha var gizleme yaparken tüm satırda değer olmamalı yani tüm satır tamamen boş olmalı.teşekkürler

Bende gayet güzel çalışıyor.

 

[2008model]

Hocam işimi görmedi ama eline emeğine sağlık ilgilendiğin için.halletmeğe çalışacağız bir şekilde

 

[Orion1]

Hocam işimi görmedi ama eline emeğine sağlık ilgilendiğin için.halletmeğe çalışacağız bir şekilde

Kodlar hata vermeseydi dediğiniz gibi tüm satırı denetleyebilirdik ama hata verdiği için bunu yapmanın bir anlamı olmayacak.Bu kodların hata vermemesi gerekiyor.Sorunsuz çalışması gerekiyor.

 

[2008model]

Hocam kodları çalıştırdım nihayet ancak sadece a sütununu sorguluyor.

Mesela "c""d""e""f""g""h""ı"
sütünlarını sorgulayıp hiçbirinde veri yoksa gizleme yapabilirmi??

 

[Orion1]

Dosyanız ekte.

Sub bos_satirlari_gizle()
Dim i As Long
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If WorksheetFunction.CountA(Range(Cells(i, "A"), Cells(i, "I"))) _
    = 0 Then Rows(i).Hidden = True
Next i
End Sub
Sub bos_satirlari_goster()
Dim i As Long
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If WorksheetFunction.CountA(Range(Cells(i, "A"), Cells(i, "I"))) _
   = 0 Then Rows(i).Hidden = False
Next i
End Sub

 

[Orion1]

Aşağıdakini deneyiniz.

Sub bos_satirlari_gizle()
Dim i As Long
For i = 1 To Cells(65536, "C").End(xlUp).Row
    If WorksheetFunction.CountA(Range(Cells(i, "C"), Cells(i, "I"))) _
    = 0 Then Rows(i).Hidden = True
Next i
End Sub
Sub bos_satirlari_goster()
Dim i As Long
For i = 1 To Cells(65536, "C").End(xlUp).Row
    Rows(i).Hidden = False
Next i
End Sub

 

[2008model]

Hocam daha iyi anlaşılsın diye örnek dosya ekledim. şimdi sanırım sorun daha iyi anlaşılacak.teşekkür ler

 

[Necdet]

Hocam daha iyi anlaşılsın diye örnek dosya ekledim. şimdi sanırım sorun daha iyi anlaşılacak.teşekkür ler

Keşke ilk mesajda örnek dosya olsaydı bu kadar karşılıklı ve gereksiz yazışma olmazdı.

 

[2008model]

zararın neresinden dönersen kar derlerya aynen öyle oldu.kusura bakmayın özür.

 

[2008model]

Yardım ihtiyacım var acil lütfen...

 

[2008model]

Otomatik satır saklama konusunda uzman arkadaşlar yardımcı olursa sevinirim.
Bu kodu bekliyorum .

(saklamasını istediğim satırdaki hücrelerde formül yazılı .hücre içeriğine herhangi bir değer taşımamışsa formül o satırların tümünü saklamalı)

 

[zekeriya torun]

hocam çok işime yaradı eline ve emeğine sağlık.teşekkürler.birde değeri "0" olanları gizlemeyi anlatsanız minnettar olurum

 

[bay_musti]

Sub bos_satirlari_gizle()
Dim i As Long
For i = 1 To Cells(65536, "A").End(xlUp).Row
If Cells(i, "A").Value = "0" Then Rows(i).Hidden = True
Next i
End Sub
Sub bos_satirlari_goster()
Dim i As Long
For i = 1 To Cells(65536, "A").End(xlUp).Row
If Cells(i, "A").Value = "0" Then Rows(i).Hidden = False
Next i
End Sub





zekeriya bey sizin istediğiniz kod bu sanırım ben de kullanıyorum hocam dan uyarlayıp yaptım a sutununda değeri sıfır olanları gizliyor olmayanları gösteriyor eğer başka sütunları da olaya katmak istiyorsanız a sutununa hepsini formülle bağlayabilirsiniz sanırım ben öyle yapıyorum

 

[bay_musti]

hocam benim de sormak istediğim bişey var benim yazdığım kodu kullanıyorum fakat bunu gizle göster butonlarına basmadan yapmak mümkünmüdür . yani hücreye formülle bi değer geldiği zaman görünür olsa veya herhangi bi değer varken sıfır olsa gizlenebilirmi yani otomatik olarak. kusura bakmayın bilmediğim için soruyorum. teşekkürederim şimdiden