Soru Hazır kod içinde revize

[adigeturklim]

Merhaba, daha önce başka bir dosya için hazırlanan kısa bir kod çalışması var. Kodu, eklediğim excel dosyasında metin kutusuna koydum. Sizden ricam bu kodu stünlara göre değil de satırlara göre revize edebilir miyiz. Yani B2 hücresinde seçili aya göre alt kısımdaki ayları gizleyecek ve sadece o ayı görünür kılacak şekilde. Teşekkür ederim.

 

[adigeturklim]

Yardımcı olabilecek var mıdır? rica etsem

 

[Orion1]

Dosyanız ektedir.
B2 de değişiklik yapınca çalışıyor.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sonsat As Long, i As Long, arr(), tar As Byte
If Intersect(Target, [B2]) Is Nothing Then Exit Sub
Rows("10:" & Rows.Count).Hidden = False
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
arr = Array("", "Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aaralık")
Rows("10:" & Rows.Count).Hidden = True
Application.ScreenUpdating = False
For i = 1 To 12
    If arr(i) = Range("B2").Value Then
        tar = i
        Exit For
    End If
Next
For i = sonsat To 1 Step -1
    If IsDate(Cells(i, "B").Value) Then
        If Month(Cells(i, "B").Value) = tar Then Rows(i & ":" & i).Hidden = False
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[adigeturklim]

Sayın Orion1, teşekkür ederim emeğinize. Başarılı şekilde çalıştı