Şartlı Satır Gizleme

[mustafa1205]

Ekte bulunan örnekte açıklama yapmaya çalıştım. D sütununda bulunan hücrelerdeki değerler eğer "sıfır" ise o satırları gizlemek istiyorum. Teşekkür ederim.

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz.

Sub GİZLE()
    Dim X As Long
    
    Application.ScreenUpdating = False
    
    Cells.EntireRow.Hidden = False
    
    For X = 2 To Cells(Rows.Count, "D").End(3).Row
        If Cells(X, "D") = 0 And Cells(X, "D") <> "" Then Rows(X).Hidden = True
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[mustafa1205]

Hocam şöyle bir sıkıntı oldu satır 2 den D sütununda bulunan son "sıfır" rakamı olan hücre dahil gizleme yapıyor. Benim yapmak istediğim sadece d sütununda "sıfır" olan satırları gizleme yapmak.

 

[Korhan Ayhan]

Merhaba,

Kodu güncelledim. Tekrar deneyiniz.

 

[mustafa1205]

Elinize Sağlık Korhan Hocam çok güzel bir şekilde çalışıyor. Tekrar teşekkürler. İyi çalışmalar

 

[bilalguler5]

Bu verdiğinz kodu tüm sayfalarda çalıştırmak

Merhaba Korhan bey çok sağolun anlattıklarınızdan çok istifade ettim. Benimde böyle bir sorunum vardı forumu baya bir araştırdım ve bu verdiğinz kod işimi hallediyor ancak benm excelimde 12 tane sayfa var ben bunun 11 tanesinde bu işlemi yapmak istiyorum bu makroyu sayfaya kaydedince sadece o sayfada işlem yapıyor bir seferde diğer sayfalarda da yapmasını nasıl sağlarız. Bu macro kodunda satırları gizliyor satırları silmesi nasıl olur. eğer ayrdımcı olabilirseniz çok sevinirim sabahtan beri forumda bu konuları inceliyorum.

 

[canerbulut]

Korhan üstadım elinize sağlık... Kod güzel olmuş .... Aynen kullandım.... Yanlız bende aralık 650 satır... çok yavaş çalışıyor bu yüzden... Hızlandırma şansımız varmı......

 

[ural66]

Satır gizleme açma

Kıymetli hocalarım. Benim de buna benzer bi problemim var. Giriş sayfasına veri giriyorum. Bu sayfam sabit. Yazdır sayfasında boş kalan ara satırların gizlenmesini veri girilirse görnmesini istiyorum. Gizlemeyi hallettim ama otomatik açmayı beceremedim. dosyam ekte yardımcı olur musunuz.

 

[ozdmir]

Merhaba hocam satır gizlemeyle ilgili benim de benzer sorunum var.E sütunundaki değerler 0 ise o satırı gizlemesini istiyorum.Rica etsem yardım edebilir misiniz??

 

[bayteksan]

"YAPMAK İSTEDİĞİM D SÜTUNUNDA BULUNAN HÜCRE DEĞERİ "SIFIR" 0 OLAN SATIRLARI KOD İLE GİZLEMEK İSTİYORUM.DİĞER BUTON İLE GÖSTERMEK İSTİYORUM. Teşekkür ederim

 

[Orion1]

"YAPMAK İSTEDİĞİM D SÜTUNUNDA BULUNAN HÜCRE DEĞERİ "SIFIR" 0 OLAN SATIRLARI KOD İLE GİZLEMEK İSTİYORUM.DİĞER BUTON İLE GÖSTERMEK İSTİYORUM. Teşekkür ederim

D sütununda bir şey yok.! C sütununda olmasın sıfırlar!!

 

[bayteksan]

Değeri sıfır olan satırlar gizlensin..

Özür dilerim hata benim.istediğimiifade edemedimŞimdiki dosyada düzelttim.
"YAPMAK İSTEDİĞİM HÜCRE DEĞERİ "SIFIR" 0 OLAN SATIRLARI KOD İLE GİZLEMEK İSTİYORUM.DİĞER BUTON İLE GÖSTERMEK İSTİYORUM.


Teşekkür ederim

 

[Orion1]

C sütunumu sorgulanacak,yoksa diğerleride sorgulanacak.Anlaşılmıyor.

 

[bayteksan]

Evet bu dosyada C sütunu;Aslında ben o makroyu ekteki dosyadaki;
D22 satırından itibaren değerler "0" a eşit olunca ben gizle butonuna basıp gizleyeyim.Göstere basınca göstersin.İlginize teşekkür ediyorum..

 

[bayteksan]

Afedersiniz E22 sütunu taranıp,ilgili satırlar gizlenip gösterilecek.
Tekrar özür dilerim.

 

[Orion1]

Afedersiniz E22 sütunu taranıp,ilgili satırlar gizlenip gösterilecek.
Tekrar özür dilerim.

Estafurullah.
Dosyanız ektedir.

Sub gizle59()
'coder:evrengizlen@hotmail.com
Dim sat As Long, i As Long
Application.ScreenUpdating = False
sat = Cells(Rows.Count, "E").End(xlUp).Row
For i = 22 To sat
    If Cells(i, "E").Value <> "" And Cells(i, "E").Value = 0 Then
        Rows(i).Hidden = True
    End If
Next i
Application.ScreenUpdating = True
End Sub
Sub göster()
'coder:evrengizlen@hotmail.com
Application.ScreenUpdating = False
sat = Cells(Rows.Count, "E").End(xlUp).Row
Rows("22:" & sat).Hidden = False
Application.ScreenUpdating = True

End Sub

 

[bayteksan]

İlginize çok teşekkür edeirim sayın Orion1.Günlerdir bu dosya ile uğraşıyorum.56 yaşında biri olarak hala öğrenme arzusu var.Yapmak istediğim çok şey var ama örne ve dstek lazım.Aslında ben bunu VBA kodu ile User formunda yapmak istiyorum ama ömrüm yetmez sanırım.Tekrar teşekkür ederim.Kolay gelsin....İyi geceler..

 

[foxuss]

çok pardon

merhaba çok pardon nöbet programı yazmmya çalışıyorum fakat bir yerde takıldım tabloda
toplam olarak her saatte kaç tane K Kaçtane Ç nöbeti tutmuştur bir kişi bunun cewabını bulamadım eğersay etopla denedim ama onlar aralık istiyor fakat benim ayrı ayrı hücreler mevcut nasıl toplayacağğımı bulamadım..
yani farklı hürelerde bulunan K ve Ç değerlerini toplamak istiyorumm..

 

[Orion1]

merhaba çok pardon nöbet programı yazmmya çalışıyorum fakat bir yerde takıldım tabloda
toplam olarak her saatte kaç tane K Kaçtane Ç nöbeti tutmuştur bir kişi bunun cewabını bulamadım eğersay etopla denedim ama onlar aralık istiyor fakat benim ayrı ayrı hücreler mevcut nasıl toplayacağğımı bulamadım..
yani farklı hürelerde bulunan K ve Ç değerlerini toplamak istiyorumm..

Bu konu cevap almış ve kapanmıştır.
Siz sorunuz için yeni bir başlık açarak sorunuzu sorunuz.

 

[bayteksan]

Sayın Orion1,
Dosyada değerleri değiştirdiğimde yani sıfırladığımda yazdığınız kod istediğimiz gibi çalışmadığını gördüm.Yani değerleri sıfırladığmda.Sizde deneyip görebilirsiniz.Teşekkür ederim.