değeri 0 dan küçük olan satır ve sütunları gizle

[asterix1234]

Dosyasında değerleri 0 dan küçük olan satır ve sütunları otamatik gizlemek istiyorum. bu konu ile ilgili 2 sorum var sorularımı Ekteki dosyada belirttim yardımlarınız için teşekkürler..

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SATIR_SÜTUN_GİZLE()
    Dim X As Long, Y As Byte
    Application.ScreenUpdating = False
    Cells.EntireRow.Hidden = False
    Cells.EntireColumn.Hidden = False
    For X = 3 To [B65536].End(3).Row Step 4
    If Cells(X, "S") <= 0 Or Cells(X, "S") = Empty Then
    Rows(X & ":" & X + 3).EntireRow.Hidden = True
    End If
    Next
    For Y = 3 To 18
    If WorksheetFunction.SumIf(Columns(2), "Mevcut", Columns(Y)) = 0 Then
    Columns(Y).EntireColumn.Hidden = True
    End If
    Next
    Application.ScreenUpdating = True
End Sub

 

[asterix1234]

hocam, ellerinize sağlık

Fakat S sütunundaki değer < 0 olduğunda gizleme kodları A sütünüda dahil olarak gizlemek istiyorum.

yani servis adından S sütununa kadar gizlemek istiyordum

 

[asterix1234]

hocam ellerinize sağlık,

Fakat satır gizlemede A, B ve S sütunu gizlemiyor, S sütunundaki değer 0 dan küçük olduğunda gizleme kodlarında A,B ve S sütununuda gizlerse süper olacak

 

[Korhan Ayhan]

Selamlar,

Ne demek istediğinizi tam olarak anlamadım. Satır gizlerken neden sütun gizlenecek.

 

[asterix1234]

Hocam, haklısınız sanırım yanlış ifade ettim sorunumu

mesala ümraniye servisi için; S3<0 olduğunda A3:S3 arasındaki satırları gizlesin..

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[asterix1234]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

Hocam değişiklik yok gibi yine aynı, yani S3 değeri 0 olduğunda A3:S3 arasını gizlemiyor.

 

[Korhan Ayhan]

Selamlar,

Kavram kargaşası yaratıyorsunuz.

S sütunundaki değerler sıfırdan küçük olduğunda mı gizlenecek yoksa sıfıra eşit olduğunda mı?

 

[asterix1234]

Selamlar,

Kavram kargaşası yaratıyorsunuz.

S sütunundaki değerler sıfırdan küçük olduğunda mı gizlenecek yoksa sıfıra eşit olduğunda mı?

Korhan hocam işi bilmeyince anlatmakta böyle sorunlu oluyor. Siz bakmayın sıfıra eşit büyük dediğime, Gizleme kodları tam istediğim gibi

Fakat demek istediğim şu: Ümraniye servisini örnek alacak olursak. S3 değeri <0 olduğunda A3:S3 arasındaki satırları gizleyelim.

Mantık şu: eğer servis ücreti yok ise o servis ile alakadar satırlarında gözükmesine gerek yok.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim incelermisiniz.

 

[asterix1234]

Selamlar,

Üstteki mesajımdaki kodu güncelledim incelermisiniz.

Korhan Hocam, sıktım sizi amaaa...

Üstteki mesajda kodlarda ben bir değişiklik göremedim hiç ! yani 2 nolu mesajda "Bu mesaj en son " 16-11-2008 " tarihinde saat 21:20 itibariyle asterix1234 tarafından düzenlenmiştir.... "gibi mesajlar hiç yok kodlar hep aynı

ben sıkıntımı, sorunumu anlatan macro ve sizin kodlarınızın olduğu kayıtlı bir dosya ekledim. incelerseniz sevinirim

 

[Korhan Ayhan]

Selamlar,

#2 nolu mesajımdaki kodu güncelledim. İncelermisiniz.

Not: Bildiğiniz gibi sitemiz hacklendiği için eski dosyalara ulaşılamıyor. Bu sebeple uzmanlara bu dosyaları yeniden eklemeleri için geçici olarak yetki verilmiştir. Bu yetkiden dolayı mesajlarda yaptığımız düzeltmeler için bahsettiğiniz düzeltme mesajı cevaplara eklenmiyor.