aynı tarihli satırları koşullu biçimlendirme

[dbicer83]

b2 hücresinde =bugün() fonksiyonu ile gün yazıyor.

10-40 50-80 90-120 satırları aralığında 3 ayrı tablo var hersatırında 1-31 aralığında tarihleri mevcut b2 hücresindeki tarh ile 3 aralıktaki tablolardaki aynı tarih satırlarınıı renklendirmek istiyorum vb siz nasıl yapabiliriz.Yardımcı olabilecek arkadaşlartan yardımlarını bekliyorum.

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [B2]) Is Nothing Then Exit Sub
Dim SUT As Integer
[A1:A120].EntireRow.Interior.ColorIndex = xlNone
For SUT = 2 To ActiveSheet.UsedRange.Rows.Count
If [B2] = Cells(SUT, "A") Then
Cells(SUT, "A").EntireRow.Interior.ColorIndex = 6
End If
Next
End Sub

 

[dbicer83]

vba olmadan birde dediğim tarih aralıklarda aynı ayın tarihleri 3 defa veya daha fazlada olabilir. 1-31/05/2008 aralığından 3 tablo var bunu vbsiz formül ile yapabilirmiyiz tablolar arasında boşluk var yanlız.teşekkürler ilginizden dolayı
satır aralığı a sütünü ile y sütünü arası renklendirecek.

 

[N.Ziya Hiçdurmaz]

Yanıt

Ekli örneğe göre formülleri çoğaltırsınız

 

[dbicer83]

açıklama ekteki dosyada tekrar bakabilirmisiniz.

 

[Necdet]

Merhaba,

A2:M131 arasını seçtikten sonra Koşullu Biçimlendirmede Formül :

=$A2=$B$1

 

[dbicer83]

Teşekkürler