C kolonunda sıfır olanlar, D kolonunda boş olanlar gizlensin

[umutsancar]

Merhaba arkadaşlar,

C kolonundaki sıfırların ve aynı zamanda D kolonundaki boş hücrelerin bulunduğu satırlar gizlensin. Konuyla ilgili bir ek gönderiyorum. Yardımlarınız için şimdiden teşekkürler.

Saygılar & sevgiler,
Umut Sancar

 

[Necdet]

Merhaba,

Aşağıdaki kodları kullanabilirsiniz.

Sub Gizle()
Dim i As Long
For i = 2 To [A65536].End(3).Row
    If Cells(i, "C") = 0 And Cells(i, "D") = "" Then
        Rows(i).EntireRow.Hidden = True
    End If
Next i
MsgBox "İşlem Tamamdır...."
End Sub

Sub Goster()
    Rows("1:" & [A65536].End(3).Row).EntireRow.Hidden = False
    Range("C10").Select
End Sub

 

[umutsancar]

Necdet Bey,

Çok teşekkür ederim. Tam istediğim gibi.


Umut Sancar

 

[irfancantr]

aRKADAŞLAR BENİMDE BİR SORUM OLACAK;

ÖRNEKTE OLAN DOSYANIN BİR BENZERİ BENDE VAR, FAKAT BENİM SORUM B30:K500 HÜCRELERİ ARALIĞINDA HER HÜCREDE FORMUL VAR VE ÇOĞU SIFIR "0"
BENİM İSTEĞİM SATIRDA 0'DAN FARKLI BİR DEĞER VARSA GİZLEMESİN AMA HEPSİ SIFIRSA O SATIRLARI GİZLESİN,

bÖYLE BİRŞEY MÜMKÜN MÜDÜR ACABA?

 

[irfancantr]

Biraz karışık oldu sanırım

 

[irfancantr]

çekinerek soruyorum ama yardım edebilecek kimse yok mu?

 

[baydeniro]

Sayın Necdet Yeşertener, paylaşım için çok teşekkürler.

 

[Necdet]

aRKADAŞLAR BENİMDE BİR SORUM OLACAK;

ÖRNEKTE OLAN DOSYANIN BİR BENZERİ BENDE VAR, FAKAT BENİM SORUM B30:K500 HÜCRELERİ ARALIĞINDA HER HÜCREDE FORMUL VAR VE ÇOĞU SIFIR "0"
BENİM İSTEĞİM SATIRDA 0'DAN FARKLI BİR DEĞER VARSA GİZLEMESİN AMA HEPSİ SIFIRSA O SATIRLARI GİZLESİN,

bÖYLE BİRŞEY MÜMKÜN MÜDÜR ACABA?

Sayın irfancantr,

Sorunuzu örnek dosya ile birlikte sorarsanız yanıt almanız daha çabuklaşır.
Yanıt verecek olan arkadaşlarımızda yanıt verirken yanlış anlayıp anlamadığı konusunda kuşkuya düşmeden çözümlerini üretirler.

 

[irfancantr]

kusura bakmayınız biraz geç oldu.

 

[irfancantr]

sayın hocam Necdet Yeşertener,

dosyayı ekledim sıfırı bol olan bölümü c102:L736 hücrelerinde,
122. satırda herhangi bir değer yoksa (sıfırdan farklı bir değer) o satırın gizlenmesini istiyorum.

İlginiz ve alakanız için şimdiden çok teşekkürler....

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SIFIR_OLAN_SATIRLARI_GİZLE()
    Dim X As Long
    
    Application.ScreenUpdating = False
    
    Cells.EntireRow.Hidden = False
            
        For X = 102 To Range("B65536").End(3).Row
        If Cells(X, 2).Value = 0 Then Rows(X).Hidden = True
        Next
    
    Application.ScreenUpdating = False
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[irfancantr]

Sayın hocam ilgi ve alakanız için çok teşekkürler fakat tam anlatamadığımı düşünüyorum.

Benim amacım malzemelerin karşısında bulunan gramajların dolu olup olmadığına baksın.eğer o malzemeler listesinin karşısında dolu değer yoksa o satırın hepsi gizlensin.

O gün içerisinde çıkmayacak malzemenin listeye girmesininde gereği kalmıyor bu şekilde.

Sizin hazırlamış olduğunuz kod ilk b sütununu inceliyor ve oraya göre gizleme yapıyor sanırım.

örn:

Dana eti = 0 0 20000 0 0 0 0 bu satır kalsın
kiraz = 0 0 0 0 0 0 0 bu satır gizlensin


inşallah bu açıklama yeterli olur