Koşulla Biçimlendirme - taksit sayısı kadar satırı gizle/göster

[mars2]

İyi Akşamlar;

B5 hücresindeki (değişken) adet kadar satırda taksitlendirme tablosunun görünmesi istemekteyim. Tablonun tamamı gözüksün istemediğimden koşullu biçimlendirme ile uzun zaman önce bu uygulama yapmıştım ancak, uğraşmadığımdan unuttum bu konuda sitede görsel veya anlatım yoluyla anlatan döküman bulamadığımdan uygulamaya ait bilgi ve belge konusunda yardımcı olmanız mümkün müdür.
Ekte önceden hazırlanmış örmek bulunmaktadır.

 

[Ömer]

Merhaba,

F5 / Özel / Koşullu Biçimlendirme ile, koşullu biçimlendirme alanını seçebilir daha sonra; Giriş sekmesinden / koşullu biçimlendirme / Kuralları yönet seçeneğinden formülleri görebilirsiniz.

 

[mars2]

Sayın Ömer bney,

İlginize teşekkürler.
Yukarıda verdiğiniz önermeyi takip etmeme rağmen beceremedim.

Ekli tablonun H28 hücresindeki sayısı kadar taksitlerin gözükmesi (Yukarıdaki örneklerde olduğu gibi) gerisinin de gizlenmesini, bunu koşullu biçimleme ile yapmak istemiştim ancak, farklı yöntem olması halinde yardımlarınızı beklemekteyim.

 

[Ömer]

Dosyanızda toplam satırını sabit yapmışsınız, koşullu biçimlendirmede bu yöntemle boş satırları gizleyemezsiniz. Eğer bu yöntemi kullanacaksanız makro ile satırları gizlemeniz gerekir.

C58 deki formülü aşağıdakiyle değiştirip C69 dan kurtulabilirsiniz.

=EĞER(A58="";"";C57-D57)

 

[mars2]

İyi akşamlar;

Dosyanızda toplam satırını sabit yapmışsınız, koşullu biçimlendirmede bu yöntemle boş satırları gizleyemezsiniz. Eğer bu yöntemi kullanacaksanız makro ile satırları gizlemeniz gerekir

Toplam satırı sabit olması gerekiyor. Bu nedenle makro konusunda yardımcı olursanız sevinirim.

 

[mars2]

İyi Akşamlar;
Sitede araştırmam sonucu, aşağıdaki kod ile ToggleButtonuyla boş satırları gizleyebiliyor ve gösterebiliyorum. Ancak, tablonun H28 hücresindeki taksit sayısına göre (koşullu biçimlendirmede olduğu gibi) butona basmadan gizleyen ve gösterebilen bir makro mümkün olabilir mi.


Private Sub ToggleButton1_Click()
Dim Satır As Long, b As Byte

Application.ScreenUpdating = False

If ToggleButton1 = True Then

Rows("57:80").EntireRow.Hidden = True
For Satır = 57 To 80
If Cells(Satır, "a") <> "" Then
Rows(Satır).Hidden = False
b = 1
End If
Next
If b = 1 Then ToggleButton1.Caption = "GÖSTER"

Else

Cells.EntireRow.Hidden = False
ToggleButton1.Caption = "GİZLE"

End If
Application.ScreenUpdating = True
End Sub

 

[Ömer]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim s As Integer

    If Intersect(Target, Range("H28")) Is Nothing Then Exit Sub
  
    If Target = "" Then Exit Sub
    
    s = 80 - 24 + Target + 1
    
    Rows("57:80").EntireRow.Hidden = False
    If Target = 24 Then Exit Sub
    Rows(s & ":80").EntireRow.Hidden = True

End Sub

 

[mars2]

Sayın Ömer bey;
İyi çalışmalar,
Konu hakkında yardım ve ilginiz ve kodlarınız için teşekkürler.