bir satırın değerine göre ilgili satırı gizlemek

[omerrica]

Selam;

ben bir butona tıkladığımda, tablodaki bir sütündaki hücrelerin alacağı değerlere göre ilgili satırın gizlenmesini ve gösterilmesini istiyorum. Ekteki tablomda j sütünündaki değerin 14 olması halinde 14 olan satırların gizlenmesini, istediğimde de gösterilmesini istiyorum, nasıl yapabilirim, epeyce inceledim başlıkları ama acemi olduğumdan pek birşey yapamadım, söz veriyorum vb öğreneceğim

 

[Necdet]

Merhaba,

Aşağıdaki kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub CommandButton1_Click()
    Dim i   As Long, _
        Son As Long
    
    Son = Cells(Rows.Count, "J").End(3).Row
    
    If CommandButton1.Caption = "GÖSTER" Then
        Rows("2:" & Son).EntireRow.Hidden = False
        CommandButton1.Caption = "GİZLE"
    Else
        For i = 2 To Son
            If Cells(i, "J") = 14 Then Rows(i).EntireRow.Hidden = True
        Next i
        CommandButton1.Caption = "GÖSTER"
    End If
    
End Sub