Koşullu biçimlendirme - Farklı

[mars2]

İyi Günler;
Tablomda yapacağım hesapla için yıl sayısına göre satırların gözükmesini istemekteyim. Buna benzer taksitli satışla ilgili örnekler var ancak onlar yatay olduğu, tabloda ise dikey durumdadır.

Örnek:

B2 hücresi Başlangıç yılı
B3 hücresi Bitiş yılı
B4 hücresi başlangıç ve bitiş dahil olmak üzere yıl farkı

A6 hücresinden başlamak üzere ilk yılı
200. Yılı
Bedel
Geçen Gün Sayısı
1 Günlük Tutar (TL)
Bu Süredeki Bedel (TL)


A12 hücresinden başlamak üzere 2. yılı
200. Yılı
Bedel
Geçen Gün Sayısı
1 Günlük Tutar (TL)
Bu Süredeki Bedel (TL)

Kaç yıl farkı (en fazla 10 yıl olabailir) varsa buna göre gösteren koşullu biçimlendirme veya uygulama için yardımlarınız.

 

[Ömer]

yanlış cevap

Merhaba,

Yanlış anlamışta olabilirim.

A6:A100 ( buradaki 100 değeri size bağlıdır ben tahmin yazdım ) aralığını fare ile seçin, Biçim / Koşullu Biçimlendirmeden formül bölümüne,

=5*$B$4+($B$4+4)<SATIR()

yazarak biçimden yazı rengini beyaz olarak düzenledikten sonra tamam butonuna basınız.

.

 

[mars2]

Sayın Ömer;
Cevabınız için teşekkürler. Ancak bu arada satırlarda gizlenmesi gerekecek.

 

[Ömer]

Sayın Ömer;
Cevabınız için teşekkürler. Ancak bu arada satırlarda gizlenmesi gerekecek.

Koşullu biçimlendirme istediğiniz için o şekilde verdim. Satırlarda gizlenecekse biçimlendirmeye gerek yoktur.

Sub Gizle()
For k = 6 To [A65536].End(3).Row
If 5 * [B4] + [B4] + 4 - k < 0 Then
Rows(k).EntireRow.Hidden = True
End If
Next
End Sub

.

 

[mars2]

Sayın Ömer;

Cevabınız için teşekkür. istediğim gibi, makrodaki
If 5 * [B4] + [B4] + 4 - k < 0 Then
5 ve 4 rakamları neyi temsil etmektedir.
5 her yıl 5 satırdan oluştuğunu mu?

 

[mars2]

İyi Günler;

Sub Gizle()
For k = 6 To [A65536].End(3).Row
If 5 * [B4] + [B4] + 4 - k < 0 Then
Rows(k).EntireRow.Hidden = True
End If
Next
End Sub

veya

=5*$B$4+($B$4+4)<SATIR()

uygulamada çalışma kitabı yeniden açılınca gizlenen yılları tekrar göstermek için ne yapmak gerekir.

 

[Ömer]

Sub Auto_Open()
Cells.EntireRow.Hidden = False
End Sub

.