Stok listesinde sık kullanılmayan ürünleri geçici gizleme

[izcik]

Merhaba uzmanlarım.

Örnek dosyada bir stok listesi örneği var. Burada MAVİ renkli stoklar sık kullanılmayanları ,

KIRMIZI renkli stoklar ise sık kullanılanları temsil ediyor.

Bunun gibi yüzlerce alt alta yazılmış bir stok listesinde mavi ile yazılmış olanları geçici olarak gizlemek için (bunun adına süzmek mi deniyor, bilmiyorum)

ne yapılabilir.

Satırları seçip "gizle" özelliğini biliyorum fakat acemi excelciler kolay göremediği ve açamadığı için istediğim bu değil.

Bunun dışında başka bir yolu var mıdır?

Amacım mavi renk olanları sürekli kullanmadığım için, stok listemi daha azaltarak sadeleştirmek. Ama istediğim anda da bu stok kodlarını kendi tüm satırıyla birlikte görüntüleyebilmem lazım.

Önemli NOT: Normal listemde kırmızı mavi diye renkler yoktur tamamı siyahtır. Sadece kolay anlaşılabilsin diye renklendirdim.

Önemli olan benim A sütununda kendi seçtiğim bir stok kodu veya grubunu ; kendine ait olan tüm satırıyla beraber gizleyebilmem gerekir.

Örnek: A2 tüm satırından A10 a kadar olan kısmı gizleyeceğim. Ve başka acemi bir excel kullanıcısı , bu gizlenmiş satırların olduğunu görecek ve ihtiyacı olduğunda bu satırları açabilecek.

Bilmiyorum anlatabildim mi?

Saygılarımla

 

[Korhan Ayhan]

Selamlar,

2007 versiyon için bu özellik filtre menüsüne eklenmiştir. Fakat siz sanıyorum önceki versiyonları kullanıyorsunuz. Bunun için istediğiniz işlemi kullanıcı tanımlı fonksiyon kullanarak çözebiliriz. Ekte örnek dosyanız üzerinde gerekli açıklamaları yaptım. İncelermisiniz.

Kullanılan fonksiyon;

Option Explicit
 
Function RENK_KODU(HÜCRE As Range, Optional ÖLÇÜT As Byte = 1)
    If ÖLÇÜT = 1 Then
        RENK_KODU = HÜCRE.Interior.ColorIndex
    ElseIf ÖLÇÜT = 2 Then
        RENK_KODU = HÜCRE.Font.ColorIndex
    End If
End Function

=RENK_KODU(A1;1)     Bu şekilde hücre dolgu rengini bulabilirsiniz.

=RENK_KODU(A1;2)     Bu şekilde hücre yazı rengini bulabilirsiniz.

 

[1Al2Ver]

Sayın Korhan Ayhan merhaba,

Öğrenmek adına; D sütununa bir işaret, örneğin X koyulsa,

Bir togglebutton ile X yazılı olanları gizle-göster yapabilir miyiz ?

Olası ise gereken kodu rica ediyorum,

Teşekkür ederim.

 

[izcik]

Korhan Ayhan uzmanım emekleriniz için teşekkür ederim. Başka bir yolu var mı acaba? Ben renkleri sadece şu an için kolay anlaşılsın diye yazmıştım.

 

[Korhan Ayhan]

Selamlar,

Sn. 1Al2Ver,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Private Sub ToggleButton1_Click()
    Dim SATIR As Long
 
    Application.ScreenUpdating = False
 
    If ToggleButton1 = True Then
        For SATIR = 2 To Range("A65536").End(3).Row
            If UCase(Cells(SATIR, "D")) = "X" Then
                Rows(SATIR).Hidden = True
            End If
        Next
        ToggleButton1.Caption = "GÖSTER"
    Else
        Cells.EntireRow.Hidden = False
        ToggleButton1.Caption = "GİZLE"
    End If
 
    Application.ScreenUpdating = True
End Sub

 

[Korhan Ayhan]

Selamlar,

Sn. izcik,

Alternatif olarak VERİ-GRUPLANDIR VE SEVİYELENDİR-GRUPLANDIR menüsünü kullanarakta istediğiniz satırları seçip gizleyebilirsiniz.

 

[1Al2Ver]

Selamlar,

Sn. 1Al2Ver,

Aşağıdaki kodu kullanabilirsiniz.

Option Explicit
 
Private Sub ToggleButton1_Click()
    Dim SATIR As Long
 
    Application.ScreenUpdating = False
 
    If ToggleButton1 = True Then
        For SATIR = 2 To Range("A65536").End(3).Row
            If UCase(Cells(SATIR, "D")) = "X" Then
                Rows(SATIR).Hidden = True
            End If
        Next
        ToggleButton1.Caption = "GÖSTER"
    Else
        Cells.EntireRow.Hidden = False
        ToggleButton1.Caption = "GİZLE"
    End If
 
    Application.ScreenUpdating = True
End Sub

Sayın Korhan Ayhan, tekrar merhaba,

Çözüm ve zahmetleriniz için çok teşekkür ederim,

Saygılarımla.

 

[izcik]

Korhan Ayhan uzmanım istediğim buydu işte

 

[izcik]

Sol üst köşede yanyana duran 1 ve 2 yazılı kutucular ne işe yarıyor uzmanım?