formül sonucu sıfır olan hücrelerin gizlenmesi

[eeat40]

arkadaşlar; başlığı forumda aratınca bir çok konu var ama hepside makro içeriyor. benim isteğim excel 2010 da L7:L180 arasındaki değeri sıfır olan hücrelerin gizlenmesi. yardımlarınız için şimdiden teşekkürler.

 

[Ömer]

Merhaba,

Gizlemeden kastınız satırı gizlemekse, makro kullanmanız gerekir.

.

 

[eeat40]

evet değeri sıfır olan bütün satırlar gizlensin istiyorum. yoksa 1 sayfa yerine 3 sayfa çıktı almak zorunda kalıyorum.

 

[Ömer]

Gizlemek için;

Sub Gizle()
 
Dim i As Long
Application.DisplayAlerts = False
Cells.EntireRow.Hidden = False
 
For i = 7 To 180
    If Cells(i, "L") = 0 Then
        Rows(i).EntireRow.Hidden = True
    End If
Next i
Application.DisplayAlerts = True
End Sub

Göstermek için;

Sub Göster()
 
    Cells.EntireRow.Hidden = False
 
End Sub

.

 

[eeat40]

sayın Ömer; ilginiz için teşekkürler. ama işime yaramadı. dosyayı her açtığımda göster/gizle tıklamak yerine bunu otomatik yapan birşey arıyorum.

 

[canerr]

benzer problem

sayın Ömer; ilginiz için teşekkürler. ama işime yaramadı. dosyayı her açtığımda göster/gizle tıklamak yerine bunu otomatik yapan birşey arıyorum.

evet, ben de tam olarak böyle birşey istiyorum. ekli dosyaya uygularsanız sevinirim. bir de tarihle ilgili sorunum var. ekli dosyada açıklama yaptım. şimdiden teşekkürler.

 

[acebeci]

sayın Ömer; ilginiz için teşekkürler. ama işime yaramadı. dosyayı her açtığımda göster/gizle tıklamak yerine bunu otomatik yapan birşey arıyorum.

Bu işlem o sayfayı yazdırmak istediğinizde 0 olan değerleri gizlese işinizi görürmü?

 

[Ömer]

sayın Ömer; ilginiz için teşekkürler. ama işime yaramadı. dosyayı her açtığımda göster/gizle tıklamak yerine bunu otomatik yapan birşey arıyorum.

Sayın eeat40,

Mesajınızı sonradan düzelttiğiniz için sorunuzu yeni fakettim.

Aşağıdaki gibi deneyiniz..

Sub Auto_Open()
 
Dim i As Long
Application.DisplayAlerts = False
Cells.EntireRow.Hidden = False
 
For i = 7 To 180
    If Cells(i, "L") = 0 Then
        Rows(i).EntireRow.Hidden = True
    End If
Next i
Application.DisplayAlerts = True
 
End Sub

Sub Auto_Close()
 
    Cells.EntireRow.Hidden = False
 
End Sub

.

 

[Ömer]

evet, ben de tam olarak böyle birşey istiyorum. ekli dosyaya uygularsanız sevinirim. bir de tarihle ilgili sorunum var. ekli dosyada açıklama yaptım. şimdiden teşekkürler.

Merhaba,

Tarih için;

C9 hücresine yazarak alt satırlara kopyalayınız.

=TARİH(YIL(C8)+1;AY(C8);GÜN(C8))

Eksi değerler için;

A8:G25 ( 25 değerini artırabilirsiniz ) arasını fare ile seçin, Biçim / Koşullu Biçimlendirmeden / Formül bölümüne;

=$G8<0

yazarak biçimden yazı tipi rengine girin ve beyaz yapıp tamam butonu ile işlemi bitirin.

.