Spinner Button İle Otomatik Boş Satırları Gizle&Göster Kod Yardımı

[Believing]

Sayın Uzman Arkadaşlar,

Spinner 2 butonu ile "B5" hücresine ay ismini ("aaaa" formatında) metin olarak yazdırıyorum. "B7:B37" aralığına ise "B5" hücresindeki ay'a ait günleri "gg.aa.yyyy" formatında formül ile yazdırıyorum. Aylara ait gün sayıların farklı olması nedeniyle, tabloda 31 günden az olan aylara ait boş satırlar kalmaktadır. "B5" hücresinde yapılan her değişiklikte, seçilen ay'a ait günlerin aktif olması ve boş satırların gizlenmesini sağlamak istiyorum.
Uzun zamandan beri konu üzerinde çalışıyor ve bir sonuç alamadığımdan, benim için çok değerli olan yardımlarınızı rica ediyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

Örnek Dosya Linki:

İndir Otomatik Gizle Göster

Dosyayı indir Otomatik Gizle Göster

dosya.co

Otomatik_Gizle_Goster.rar dosyasını indir - download

Otomatik_Gizle_Goster.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

 

[Mahmut Bayram]

Spinbuttonlara bağlayarak deneyebilirsiniz.

Application.ScreenUpdating = False
    Rows("7:37").EntireRow.Hidden = False
       
        For Satır = 7 To 37
            If Cells(Satır, "B") = "" Then
                Rows(Satır).Hidden = True
          Else

    Cells.EntireRow.Hidden = False
    End If
        Next
Application.ScreenUpdating = True

 

[Hepgel]

Deneyiniz.

Sayfanın kod bölümüne ekleyip, Butonlara makroyu atayın, boş satırları gizler.

Sub Satir_Gizle_Goster()
Application.ScreenUpdating = False
For x = 7 To 37
    If Cells(x, "B").Text <> "" Then Cells(x, "B").EntireRow.Hidden = False
    If Cells(x, "B").Text = "" Then Cells(x, "B").EntireRow.Hidden = True
Next x
Application.ScreenUpdating = True
End Sub

Yada
Forecast sayfasının kod bölümüne uyguladıktan sonra,
hem yıl değiştiren, hem de ayı değiştiren düğmeyle bu kodu ilişkilendirince istenilen olur.

Sub GOSTER_GIZLE()
son = Day(WorksheetFunction.EoMonth([B7], 0)) + 6
Rows("35:37").EntireRow.Hidden = False
If son <> 37 Then Rows(son + 1 & ":37").EntireRow.Hidden = True
End Sub

 

[Believing]

Sayın Mahmut Bey ve Sayın Hepgel,

Konuya gösterdiğiniz ilgi ver yardım için sizlere çok teşekkür ederim.
ALLAH sizlerden ve sevdiklerinizden razı olsun.
Hayırlı Cumalar dilerim.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[Hepgel]

Rica Ederim. Allah (c.c) cümlemizden razı olsun.
İyi Çalışmalar.

 

[Mahmut Bayram]

Ecmain